Witam
W jednym arkuszu w kolumnach A:C mam dane i potrzebuję z tego arkusza
przekopiować do drugiego arkusza wartości z kolumny A z tych wierszy które w
kolumnie C mają "dopisz"
Próbowałem takie makro, ale coś nie działa ;(
Sub kopiowanie()
Application.ScreenUpdating = False
Set Arkusz_Zrodlowy = Sheets("Dane_1")
Set Arkusz_Celu = Sheets("Dane_2")

Arkusz_Celu.Select
Dim ile As Long
ile = Cells(65536, 1).End(xlUp).Row
wiersz_Celu = 2
Kolumna_Celu = 1

Arkusz_Zrodlowy.Select
Dim ile_zrodlo As Long
ile_zrodlo = Cells(65536, 1).End(xlUp).Row

With Arkusz_Zrodlowy.Select
For ile_zrodlo = 5 To ile_zrodlo
For Each x In Arkusz_Zrodlowy.Range("C:C")
If x = "" Then Exit For
If x = "dopisz" Then
Arkusz_Celu.Cells(wiersz_Celu, Kolumna_Celu) = x.Offset(0, -2)
End If
wiersz_Celu = wiersz_Celu + 1
Next x
Next ile_zrodlo
End With
Set Arkusz_Zrodlowy = Nothing
Set Arkusz_Celu = Nothing
Application.ScreenUpdating = True
MsgBox (" Dane zostały przekonwertowane ")
End Sub