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
	» Fl@sh 10:05 » jablo 10:05 » Wolf 10:05 » Liu CAs 10:03 » Pietka 10:03 » JE Jacaw 10:02 » Kilgor 10:01 » DYD 10:00 » ligand17 09:57 » rrafaell 09:53 » @GUTEK@ 09:52 » Faraonix 09:49 » Kool@ 09:46 » Kenny 09:43 » Dexter 09:43 » KHot 09:42 » milekp 09:41 » Doczu 09:40 » Artaa 09:38 » Sebek 09:31 Dzisiaj przeczytano 41140 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ą.