Soru Şarta Bağlı Silme İşlevi

[dengeceteris]

Sevgili Arkadaşlar herkese merhaba !

Forumda bir kaç örnek buldum ama uyarlayamadım doğrusu. Şimdi tabloda aşağıya doğru 1000 satırım var. Bunlardan bir çok aralığı işlemden önce temizlemek için aşağıda ki gibi bir formül giriyorum. Bu binli satırlara kadar uzayıp gidiyor. Tabiki sorunum bir satır ekleme işi yapınca yazdığım bütün kodlar boşa gidiyor.

Ss.Range("Q47:T51").ClearContents
Ss.Range("Q61:T65").ClearContents
Ss.Range("Q74:T77").ClearContents
Ss.Range("Q83:T86").ClearContents
Ss.Range("Q92:T96").ClearContents

Aslında silinmesini istediğim aralıkların ilk sütununda kodlar var. Bunun için de aşağıda ki gibi bir kod yazıyorum ancak silme işleminin tam tersi yerleri siliyor veya boşa eşitse gibi değişik varyasyonlar denedim ama olmadı. Amacım birinci sütunda herhangi bir kod var yada doluysa Q:T aralığında silme işlemi yapsın boş ise yapmasın.

For i = 3 To sons
If Ss.Cells(i, 1) <> "" Then
Ss.Range("Q5:T1000").ClearContents
End If
Next

 

[YUSUF44]

Aşağıdaki gibi deneyin:

For i = 3 To sons
If Ss.Cells(i, 1) <> "" Then
Ss.Range("Q" & i & ":T" & i).ClearContents
End If
Next

 

[dengeceteris]

Yusuf üstadım minnetarım..