Belirli sütun ve Hücreleri temizleme

[sedat2161]

Hayırlı günler arkadaşlar. Ekli dosyamda U sütunun herhangi bir hücresinde veri bulunursa (L:U) aralığındaki bilgileri butona tıkladığımda silinmesi işlemi ile ilgili yardımlarınızı bekliyorum. Hayırlı günler ve çalışmalar diliyorum.

 

[Korhan Ayhan]

Deneyiniz.

Kod "U" sütununda dolu hücreleri sayar. Eğer varsa (hangi satırda olduğu önemli değil) "L2:U..." alanını temizler.

Option Explicit

Sub Alan_Temizle()
    If Application.WorksheetFunction.CountA(Range("U:U")) > 0 Then
        Range("L2:U" & Rows.Count).ClearContents
        MsgBox "Veriler silinmiştir.", vbInformation
    Else
        MsgBox "Silinecek veri bulunamadı!", vbExclamation
    End If
End Sub

 

[sedat2161]

Deneyiniz.

Kod "U" sütununda dolu hücreleri sayar. Eğer varsa (hangi satırda olduğu önemli değil) "L2:U..." alanını temizler.

Option Explicit

Sub Alan_Temizle()
    If Application.WorksheetFunction.CountA(Range("U:U")) > 0 Then
        Range("L2:U" & Rows.Count).ClearContents
        MsgBox "Veriler silinmiştir.", vbInformation
    Else
        MsgBox "Silinecek veri bulunamadı!", vbExclamation
    End If
End Sub

Hocam kusura bakmayın eksik bilgi verdim. Siz cevap yazdıktan sonra fark ettim. U satırında veri olmasa (L:U) arasında bilgisi bulunan personelin silinmemesi gerekiyor. Yardımlarınızı bekliyorum.

 

[Korhan Ayhan]

Eklediğiniz dosyaya göre hangi satırların (L-U aralığı) silinmesi gerekiyor?

 

[sedat2161]

Eklediğiniz dosyaya göre hangi satırların (L-U aralığı) silinmesi gerekiyor?

Hocam U sütununda veri varsa (L-U aralığı) silinmesi gerekiyor. U sütununda veri olamayanlar silinmeyecek.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Alan_Temizle()
    Dim Alan As Range
   
    For Each Alan In Range("U2:U" & Cells(Rows.Count, 1).End(3).Row)
        If Alan.Value <> "" Then
            Range("L" & Alan.Row).Resize(, 10).ClearContents
        End If
    Next
   
    MsgBox "Veriler silinmiştir.", vbInformation
End Sub

 

[sedat2161]

Deneyiniz.

Option Explicit

Sub Alan_Temizle()
    Dim Alan As Range
  
    For Each Alan In Range("U2:U" & Cells(Rows.Count, 1).End(3).Row)
        If Alan.Value <> "" Then
            Range("L" & Alan.Row).Resize(, 10).ClearContents
        End If
    Next
  
    MsgBox "Veriler silinmiştir.", vbInformation
End Sub

Hocam emeğinize sağlık. ALLAH razı olsun. Konu çözüldü.

 

[Korhan Ayhan]

Döngüleri öğrenmeniz gerekiyor.

https://www.excel.web.tr/threads/doengueler.1923/

https://www.excel.web.tr/threads/doengueler.5325/

https://www.excel.web.tr/threads/mantiksal-doengueler-1.97433/

 

[sedat2161]

Hocam inşallah çözmeye çalışacağım. İlginiz için teşekkür ederim.