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