verileri bos olan bir üst satira otomatik kaydirmak mümkünmüdür ?

[dennisf06]

merhaba

makrolar kullanarak A sütununda verileri listeliyorum. liste kimi zaman 20 kimi zaman 40 satirdan olusuyor. yalniz bazen listedeki verilerden bir kacini cikarip ayni sayfadan rapor ciktisi almam gerekiyor. sorum su;

sayet aradaki satirlardan bir kacini sildigim zaman mevcut veriler otomatik olarak bos kalan bir üst satira kaydirilabilir mi ? her seferinde bos satirlari gizleyerek rapor ciktisi almak zorunda kaliyorum. tesekkür ederim. saygilarimla.

 

[tahsinanarat]

bu kodları deneyiniz.

Option Explicit
Sub Leerzeilenlöschen()
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[dennisf06]

merhaba Sn tahsinanarat bey;

öncelikle kusura bakmayin cevabim gec oldu. verdiginiz kodlari bilgim dahilinde sayfanin kod bölümüne yazdim olmadi, bir modül icerisine yazip butona bagladim Row.Delete kismi hata verdi gene olmadi. nasil yapmam konusunda yardimci olursaniz memnun olacagim. ekte örnek bir dosya gönderiyorum. tesekkür ederim. saygilarimla.

 

[tahsinanarat]

Ekli dosyanızı inceleyiniz

Siler silmez boş satırın gitmesini istiyorsanız ekli dosyanızdaki kodları kullanın, eğer bir butona bağlamak isterseniz aşağıdaki kodları kullanın

Sub satirsil()
sonsat = Range("A65536").End(xlUp).Row
For x = sonsat To 1 Step -1
If Cells(x, 1) = "" Then
Rows(x).Delete
End If
Next
End Sub

 

[tahsinanarat]

Yukarıdaki kodlar da çalışıyor, sanırım Entrie Row arasında boşluk olmuş,
aşağıdaki gibi bitişik olması gerekiyordu. Bunuda deneyebilirsiniz.

Sub Leerzeilenlöschen()
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

kaydet tuşuna basınca Entire Row şeklinde araya boşluk koyduğunu farkettim, siz bu boşluğu silersiniz. Kolay gelsin

 

[dennisf06]

tesekkür ederim Sn tahsinanarat bey. saglicakla kalin...