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
	» ulan 22:54 » ManiusNG 22:52 » metacom 22:49 » [yureq] 22:42 » Mademan 22:23 » Markizy 22:20 » Fl@sh 22:19 » cVas 22:18 » szczebel 22:18 » zartie 22:10 » DYD 22:04 » alkatraz 22:00 » rurecznik 21:59 » XepeR 21:55 » Hitman 21:52 » MARtiuS 21:50 » evil 21:49 » Emios 21:47 » bmiluch 21:44 » DJopek 21:42 Dzisiaj przeczytano 17923 postów, wczoraj 37731 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ą.