- Katılım
- 10 Mayıs 2005
- Mesajlar
- 82
slm sayın arkadaşlar,benim yapmak istediğim 500 sayfalık bir çalışma sayfam var.1.sayfaya koyduğum butonla girilmiş verileri silebiliriyorum ama sayfa çok olunca bunu yazması bayağı zaman alıyor.Bunun kısa bır kodu varmı acaba.2 sayfadaki bilgileri silmek için kullandığım kod:
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
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