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
	» Syzyf 16:19 » ToM78 16:18 » Liu CAs 16:13 » Pio321 16:12 » KHot 16:12 » Brauni 16:11 » kyusi 16:03 » Yooras 16:00 » rainy 15:51 » myszon 15:46 » yanix 15:29 » Kenny 15:28 » Sociu 15:28 » zibi13 15:16 » rulezDC 15:12 » wrrr 15:12 » GLI 15:07 » Artaa 15:06 » matali 15:03 » cVas 14:55 Dzisiaj przeczytano 48474 postów, wczoraj 82584 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ą.