Excel - jak wykonać kopiowanie do ostatniej wolnej komórki?

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» piszczyk 04:17 » Shark20 03:52 » Martens 03:45 » cVas 02:53 » mo2 02:43 » rzymo 02:25 » mirek190 02:21 » Visar 02:04 » MARC 01:52 » BoloX 01:09 » Pinokio.p 00:49 Dzisiaj przeczytano 41137 postów, wczoraj 25974 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

Excel - jak wykonać kopiowanie do ostatniej wolnej komórki? , waldisobon 25/04/12 08:24
Mam 2 arkusze w skoroszycie - Dane i Wykaz.

W arkuszu dane w pola D5, D6 i D20 wpisuję dane.
Jak zrobic makro, które:

- wartość D5 skopiuje do pierwszej pustej komórki kolumny A w arkuszu Wykaz
- wartość D6 skopiuje do pierwszej pustej komórki kolumny B w arkuszu Wykaz
- wartość D20 skopiuje do pierwszej pustej komórki kolumny C w arkuszu Wykaz

Niektórych boardowiczów uważam za idiotów i
oni o tym wiedzą.

cos takiego , Dhoine 25/04/12 08:46
Sub Nazwa_Makra()

Sheets("Wykaz").Select
Range("A1").Select

ile_wierszy = 10000

For i = 1 To ile_wierszy
If Cells(i, 1) = "" Then
Cells(i, 1) = Sheets("Dane").Cells(5, 4)
i = ile_wierszy
End If
Next i

For i = 1 To ile_wierszy
If Cells(i, 2) = "" Then
Cells(i, 2) = Sheets("Dane").Cells(6, 4)
i = ile_wierszy
End If
Next i

For i = 1 To ile_wierszy
If Cells(i, 3) = "" Then
Cells(i, 3) = Sheets("Dane").Cells(20, 4)
i = ile_wierszy
End If
Next i

Range("A1").Select

End Sub
1. trzeba dodać , kubazzz 25/04/12 10:32
  Exit For
  w If'ie
  
  bo zapełni 10000 wierszy ;)
  SM-S908
2. ups , kubazzz 25/04/12 10:32
  słabo pacze
  SM-S908
Super, działa. , waldisobon 25/04/12 13:02
Dzięki!
Niektórych boardowiczów uważam za idiotów i
oni o tym wiedzą.