DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
Son1 = S1.[A50].End(3).Row
Son2 = S2.[A50].End(3).Row
S1.Range(Cells(Son1, "A"), Cells(Son1, "E")).ClearContents
S2.Range(S2.Cells(Son2, "A"), S2.Cells(Son2, "E")).ClearContents
End Sub
Mükerrer olan kayıtlarımı silmek istiyorsunuz. Sorunuzu biraz daha açabilirmisiniz.sorum şu Excelin mesela 1.sayfasındaki çift sayılı satırları silmek istiyorum