hücrenin boş olup olmadığı ile kontrol

[a_self_lion]

Selam Arkadaşlar;

Hücrenin boş olup olmadığına bakarak o hücrenin bir üst satırını ve kendi satırını silinmesi ve aşağı doğru devam etmesi gerekiyor.

Bakilacak HÜcreler Sırası ile L6, L8, L10, L11, L13 …….. Taplonun bitimine kadar.
Taplo Bitimi sabit değildir.
Bu kontrolu sağlarayark bu bakılan hücre boş ise bir üst satırı ve kendi satırı silinsin Makro İle Nasil Yapabilirim.

Örnek Dosyamı ekliyorum.

Teşekkür ederim yardımeden arkadaşlar için.

 

[Exelans]

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = 6 To Cells(5, 1).End(xlDown).Row + 1 Step 2
If Range("A" & i - 1) = "" Then GoTo SON
If IsNumeric(Range("L" & i)) And Range("L" & i) > 0 Then GoTo Devam
Rows(i - 1).Delete Shift:=xlUp
Rows(i - 1).Delete Shift:=xlUp
i = i - 2
Devam:
Next i
SON:
Application.ScreenUpdating = True
End Sub

 

[a_self_lion]

Tam olarak olmadı örnek taploda çalışıyor ama başka diğer taplolarımda çalışmıyor veya taploda iki satır eklediğim zaman çalışmıyor

 

[Exelans]

Örnek TABLO göndermişsiniz ona göre yapmaya çalıştım.
Örnek tablo dediğinize göre veri formatlarınız hep aynı olmalı.
Ama sizin L sütununuzda bazı hücreler boş, bazıları ise boşluk içeriyor.
Diğer tablolarınızda nedir bilemiyorum.

Sizin belirlediğiniz formata göre kodlar çalışıyorsa diğer formatlara da uydurulabilir.

taploda iki satır eklediğim zaman çalışmıyor
demişsiniz de bu satırları nereye eklediğinizi söylememişsiniz.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz.

Sub KONTROL_ET_BOŞSA_SİL()
    [L5:L65536].Replace What:=" ", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    For X = [A65536].End(3).Row To 5 Step -2
    If Cells(X, "L") = "" Then Rows(X - 1 & ":" & X).Delete
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[a_self_lion]

Herzamanki gibi müthiş ve kusursuz bir iş. Sayın CostControl arkadışım çok teşekkür ederim. Senin gibi birisi ile aynı meslekten olduğum için ne kadar gurur duysam az valla. Dört dörtlük iş çıkartıyorsun. Allah senden razı olsun.

Exelans
Size de ilginiden dolayı teşekkür ederim. Taplom elbette stantard ama taplolar içine bilgileri ekleyince fiziksel olarak artar azalır ama şekil olarak bozulmaz her zaman aynı formattır. Ama bilgilerimiz azalır çoğalır. Bizde makrolarımızı Sayın Değerli Arkadaşımız CostControl gibi genel olarak düşünerek mümkün olanbilecek hemen hemen bütün ihtimallere göre yaparsak çok daha sağlıklı ve diğer işlerde de sürekli kullanırız ki zaman tasarrufu sağlarız.

Teşekkürler.

 

[Exelans]

Sanırım fazla söze gerek yok.