Satır Sil Makro

[ziya]

Aşağıdaki makro istediğim satırları silmedi. Yardım rica ediyorum.

Makro özetle şu. Dolu Son satırı bul +1 ekle. Son boş satır ile 5000 nolu satır arasını sil.

Range("O2").Select
ActiveCell.FormulaR1C1 = "=MATCH(LOOKUP(2,1/(C[-14]<>""""),C[-14]),C[-14],0)" + 1
SATIR = Range("O2")
SONSATIR = 5000
Rows(SATIR & ":" & SONSATIR).Select
    
Selection.ClearContents
Selection.Delete Shift:=xlUp

 

[Cengiz Demir]

Son satır için bu formülü kullanabilirsiniz. (Active.... ve Range... ile başlayan satırları silebilirsiniz)

SATIR = Cells(Rows.Count, 1).End(xlUp).Row +1

Ayrıca bu kodlar satırı komple silmez. ilgili sütündaki hücreleri silip alt hücreleri yukarıya kaydırır.

Selection.ClearContents
Selection.Delete Shift:=xlUp

Satır komple silinsin istiyorsanız; yukarıdaki iki satır yerine bu kodu kullanmalısınız.

Selection.EntireRow.Delete

 

[ziya]

Teşekkür ederim.
Çalışmayan tek bir satır var.

Rows(SATIR & ":" & SONSATIR).Select

Bu satır, benim yazdığımda da sizin yazdığınızda da çalışmıyor. İlginç olan ise error vermiyor.

 

[ziya]

Silmesini tariflediğimi sandığım satırları tanımıyor, dolayısiyle silmiyor.

 

[ziya]

Çalıştı.
Tekrar teşekkür ederim.

 

[Cengiz Demir]

Ben denemiştim. seçim yapıyordu bende.

Acaba sürüm farkı ile ilgili bir sorun mu var ?


Edit: Rica ederim. (Ben bu mesajı yazıp atmadan önce siz ikinci mesajı atmışsınız )

 

[ziya]

Ben denemiştim. seçim yapıyordu bende.

Acaba sürüm farkı ile ilgili bir sorun mu var ?


Edit: Rica ederim. (Ben bu mesajı yazıp atmadan önce siz ikinci mesajı atmışsınız )

Sorun, yardım ettiğin kişinin 70 yaşında olması.

 

[Cengiz Demir]

Ne güzel, keşke bizler de sizin yaşınıza geldiğimizde, hala bir şeyler öğrenme ve yapma istek ve azmimizi kaybetmesek.
Sizinki sorun değil, bence bir lütuftur

Sorun, yardım ettiğin kişinin 70 yaşında olması.

 

[ziya]

Ne güzel, keşke bizler de sizin yaşınıza geldiğimizde, hala bir şeyler öğrenme ve yapma istek ve azmimizi kaybetmesek.
Sizinki sorun değil, bence bir lütuftur

Hem yardımlarına kem güzel sözlerine teşekkür ederim.
Bu siteden çok şey öğrendim, oldukça eski üyesiyim.
Ama belli bir yaştan sonra hem öğrenmek zorlaşıyor, hem de öğrendiklerini sık kullanmıyorsan kesinlikle unutuyorsun. O nedenle yeni bir şeyler öğrenmek heyecanı kalmıyor.
Selam ve sevgilerimle,