macro ile veri silme

[td]

ekteki dosyamda sayfa1 de silmeyi başardığım verileri vb kolarında ne gibi değişiklik yaparsam sayfa 2 dekileri silmesini sağlarım(buton sayfa 1 de kalacak)
TEŞEKKÜRLER.......

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

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

 

[td]

sn COST_CONTROL
her zaman imdadıma yetişiyorsunuz ALLAH sizden razı olsun
iyiki varsınız......tekrar TEŞEKKÜRLER.............

 

[RIKU]

Benim de bu silme konusunda bir sorunum olacak. Çok uğraştım ama bi türlü halledemedim. Ufak bi silme makrosu yazmam gerek ama nedense kafam basmıyo. Eeee yetenek işi tabii ki Neyse sorum şu Excelin mesela 1.sayfasındaki çift sayılı satırları silmek istiyorum, Lütfen yardım edin...

 

[Ali]

sorum şu Excelin mesela 1.sayfasındaki çift sayılı satırları silmek istiyorum

Mükerrer olan kayıtlarımı silmek istiyorsunuz. Sorunuzu biraz daha açabilirmisiniz.