Sub Makro1()
Sayfa2.[b6:f500].ClearContents
For a = 6 To [b65536].End(3).Row
If Cells(a, 5) <> "" Then
Rows(a).Copy
z = Sayfa2.[b65536].End(3).Row + 1
Sayfa2.Range("a" & z).PasteSpecial Paste:=xlPasteValues
End If
Next
Application.CutCopyMode = False
Sayfa2.Select
[a1].Select
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.