| Home Poczta Office Office2 Office 2000 Office XP Internet Explorer Outlook Express Outlook2 Windows XP Windows Windows Vista Exchange Server Windows Server SBS |
Witam!
Tak powinien wyglądać kod w odniesieniu do Twoich konkretnych danych:
Sub Macro1()
Set rd = Sheets("Dane_1") 'set read data sheet as rd
Set wd = Sheets("Dane_2") 'set write data sheet as wd
For i = 1 To rd.Range("C65536").End(xlUp).Row ' set i to the last row in
column C
If UCase(Cells(i, 3)) = "DOPISZ" Then
wd.Cells(wd.Range("A65536").End(xlUp).Row + 1, 1) = rd.Cells(i, 1)
End If
Next i
End Sub
Nie miałem dostępu do excela, i nie mogłem sprawdzić tego kodu...
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/
