Makro ile satır silmek

[caykpkm]

Sayfa1 ve Sayfa2'deki tablolarda bulunan son dolu satırlarlarda bulunan verileri makro ile nasıl silebilirim.

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub sssil()
ss = Sheets("sayfa1").Range("a65536").End(3).Row
    Rows(ss).ClearContents
End Sub

 

[caykpkm]

Sayın uzmanamele teşekkür ederim, fakat 2 nci sayfadaki son satırı aynı makro ile sildiremedim.

 

[uzmanamele]

Sayın uzmanamele teşekkür ederim, fakat 2 nci sayfadaki son satırı aynı makro ile sildiremedim.

merhaba

Sub sssil()
ss = Sheets("[COLOR="Red"]sayfa1[/COLOR]").Range("a65536").End(3).Row
    Rows(ss).ClearContents
End Sub

tek sayfa için örnek verilmiştir.
sayfa adını değiştirmeniz gerekir.
ya da birden fazla sayfa için tek makroda kullanılması gerekir.

2 adet için ise basit olarak bu olabilir

Sub sssil()
ss = Sheets("sayfa1").Range("a65536").End(3).Row
    Rows(ss).ClearContents
ss = Sheets("sayfa2").Range("a65536").End(3).Row
    Rows(ss).ClearContents
End Sub

 

[caykpkm]

Bu Şekilde denemiştim malesef ikinci sayfada son satır silinmiyor.

 

[caykpkm]

Bu uygulama, ilk sayfanın son satırı ile ilk satırını siliyor. İkinci sayfada herhangi bir değişiklik yapmıyor.

 

[uzmanamele]

Bu uygulama, ilk sayfanın son satırı ile ilk satırını siliyor. İkinci sayfada herhangi bir değişiklik yapmıyor.

merhaba
sayfa2 A sütununda veri var mı?
örnek dosya ekleyiniz.

 

[caykpkm]

Dosya ekte

 

[uzmanamele]

merhaba

bunu deneyiniz.

Sub sssil()
ss1 = Sheets("PER").Range("B65536").End(3).Row
    Sheets("PER").Rows(ss1).ClearContents
ss2 = Sheets("MATRAH").Range("B65536").End(3).Row
    Sheets("MATRAH").Rows(ss2).ClearContents
End Sub

 

[caykpkm]

ss = Sheets("PER").Range("a65536").End(3).Row
Rows(ss).ClearContents
Sheets("MATRAH").Select
ss = Sheets("MATRAH").Range("B65536").End(3).Row
Rows(ss).ClearContents
Sheets("PER").Select
Uzmanamele teşekkür ederim, şeklinde değiştirince çalıştı.

 

[uzmanamele]

ss = Sheets("PER").Range("a65536").End(3).Row
Rows(ss).ClearContents
Sheets("MATRAH").Select
ss = Sheets("MATRAH").Range("B65536").End(3).Row
Rows(ss).ClearContents
Sheets("PER").Select
Uzmanamele teşekkür ederim, şeklinde değiştirince çalıştı.

merhaba
bu şekilde çalışması PER sayfasındayken kodun çalıştırılmasından dolayıdır. aynı kodu MATRAH sayfasındayken çalıştırırsanız hatalı olur.
bu şekilde deneyiniz.

Sub sssil()
ss = Sheets("PER").Range("B65536").End(3).Row
    [COLOR="Red"]Sheets("PER").[/COLOR]Rows(ss).ClearContents
ss = Sheets("MATRAH").Range("B65536").End(3).Row
    [COLOR="red"]Sheets("MATRAH").[/COLOR]Rows(ss).ClearContents
End Sub