DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub sil()
For i = Cells(65536, 1).End(xlUp).Row to 2 step -2
Rows(i).Delete
Next i
End Sub
Sub sil()
z= Cells(65536, 1).End(xlUp).Row
if z mod 2 = 1 then z = z -1
For i = z to 2 step -2
Rows(i).Delete
Next i
End Sub