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
	» jablo 16:34 » Sherif 16:33 » ulan 16:30 » kicior 16:28 » KHot 16:21 » ligand17 16:20 » malyy 16:17 » dulik 16:08 » McMi21 16:04 » zibi13 16:00 » rulezDC 15:55 » hokr 15:51 » RoBakk 15:44 » luzak2363 15:43 » raczek70 15:42 » Doczu 15:36 » Miron 15:34 » [yureq] 15:16 » Syzyf 15:10 » 247 15:05 Dzisiaj przeczytano 14994 postów, wczoraj 16451 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ą.