Soru Şartlı Hücre Temizle

[Hsn55]

İyi akşamlar;
Ekli örnek dosyada E11:H41 hücre aralığındaki verilerin H11:H41 hücresinde dolu hücrelerin karşısındaki satırlar hariç diğerlerini makro ile nasıl sileriz . Yardımcı olursanız sevinirim

Ekli dosyalar

İndir örnek

Dosyayı indir örnek

dosya.co

 

[RBozkurt]

Merhaba,

H sütununda belirtilen aralıktaki boş satırları siler.
Deneyiniz.

Sub H_Sil()
    Dim i As Long
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("VERİ GİRİŞİ")
    Application.ScreenUpdating = False
    For i = 41 To 11 Step -1
        If WorksheetFunction.CountA(ws.Range("H" & i)) = 0 Then
            ws.Rows(i).Delete Shift:=xlUp
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[Necdet]

Merhaba,
Alternatif olsun :

Sub Makro1()
    
    On Error Resume Next
    Range("H11:H41").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
End Sub

 

[Hsn55]

Merhabalar;
Biçimlendirmleri de siliyor. Sadece hücre içiersindeki veriler silinmesi gerekiyor

 

[RBozkurt]

Merhabalar;
Biçimlendirmleri de siliyor. Sadece hücre içiersindeki veriler silinmesi gerekiyor

Satır silme yazmışsınız bu işlemde herşey silinir,
H sütununda belirtilen aralıktaki boş hücrelerin karşılığında ki dolu hücrelerin değerleri mi temizlenecek?

Sub H_Temizle()
    Dim i As Long
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("VERİ GİRİŞİ")
    Application.ScreenUpdating = False
    For i = 11 To 41
        If WorksheetFunction.CountA(ws.Range("H" & i)) = 0 Then
            ws.Range("E" & i & ":H" & i).Value = ""
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[Hsn55]

Çok teşekkür ederim. Ellerinize sağlık

 

[RBozkurt]

Çok teşekkür ederim. Ellerinize sağlık

Kolay gelsin