DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Application.ScreenUpdating = False
For i = 1 To Cells(65536, 1).End(xlUp).Row
If Trim(Cells(i, 1)) <> "" And Trim(Cells(i, 1)) <> "m.cinsi" Then
Range(i & ":" & i).EntireRow.Copy
Sheets("sayfa2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End If
Next i
Application.ScreenUpdating = True