En Son Dolu Satırdan 500.Satıra Kadar Seçip Silme

[17bn57]

arkadaşlar "a1:d10" hücreleri arasında verilerim var. Ben "a2:a500" arasındaki dolu hücreleri saydırarak "a11:d500" arasını seçip seçili hücrelerdeki değer,birleştirme, kenarlık. renklendirme vb. özellikleri temizlemek istiyorum. Bunun için aşağıdaki kodu yazdım ancak worksheetfunction komutundan dolayı olsa gerek sayfa aktif olmayınca kod hata veriyor. Bu konuda yardımcı olabilirmisiniz.

Not: "a1:d11" sabit değildir.

Sub sil()
Set s2 = ThisWorkbook.Sheets("sayfa1")
Set s3 = ThisWorkbook.Sheets("sayfa2")
silsat1 = WorksheetFunction.CountA(s2.[a2:a500])
s2.Range(Cells(silsat1 + 2, 1), Cells(500, 35)).Select
silsat2 = WorksheetFunction.CountA(s3.[a2:a500])
s3.Range(Cells(silsat2 + 2, 1), Cells(500, 35)).Select
End Sub

 

[Orion1]

aşağıdaki gibi deneyiniz.

Sub sil()
Dim silsat1 As Long, silsat2 As Long, s1 As Worksheet, s2 As Worksheet
Set s2 = ThisWorkbook.Sheets("sayfa1")
Set s3 = ThisWorkbook.Sheets("sayfa2")
silsat1 = WorksheetFunction.CountA(s2.[a2:a500])
s2.Select
s2.Range(Cells(silsat1 + 2, 1), Cells(500, 35)).Clear
silsat2 = WorksheetFunction.CountA(s3.[a2:a500])
s3.Select
s3.Range(Cells(silsat2 + 2, 1), Cells(500, 35)).Clear
s2.Select
End Sub

 

[17bn57]

orion1 hocam yardımınız için çok teşekkür ederim. Dün kaç saat bununla uğraştım denemediğim kod kalmadı. Değişken tanımlamak hiç aklıma gelmedi.