Verinin, kritere bağlı olarak otomatik silinmesi

[EKREM1661]

Değerli Arkadaşlar..! (hayırlı çalışmalar dileğiyle)

Activate veya SelectionChange olatında çalışabilecek şöyle bir kod lazım..

A sütununda (sıra numaraları) ve H sütununda veriler mevcut..
Ancak, H sütunundaki verinin varlığı, hizasındaki A sütununda bulunan verinin varlığına bağlı olsun.
Yani, H sütununda bulunan veri, karşılığı olan A sütunu dolu ise kalsın, değilse silinsin..
Diyelim ki, A20 de sayı yoksa, H20 deki veriyi otomatik olarak silsin..

Fakat bu uygulama 6:ncı satırdan itibaren olsun. Çünkü buralarda başlıklar mevcut. (Gerekirse örnek eklerim.)

 

[Orion1]

select olayı değilde change olayına.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B7:B" & Rows.Count)) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = "" Then Target.Offset(0, -1).Value = ""

End Sub

 

[EKREM1661]

Evren hocam..! verdiğiniz kodu uygulayamadığım için örnek dosya ekledim..

 

[chngrcn]

Evren hocam..! verdiğiniz kodu uygulayamadığım için örnek dosya ekledim..

Evren hocamın kodu doğrudur.. sizin gönderdiğiniz dosyaya göre aşağıdaki gibi uyarlanmalıdır.. saygılar..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range[COLOR="Red"]("A6:A"[/COLOR] & Rows.Count)) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = "" Then Target.Offset[COLOR="red"](0, 25).[/COLOR]Value = ""

End Sub

 

[EKREM1661]

Teşekkürler..Arkadaşlar..

 

[Orion1]

Evren hocam..! verdiğiniz kodu uygulayamadığım için örnek dosya ekledim..

Dosyanız ektedir

 

[EKREM1661]

Sn Evren hocam.. Çok güzel oldu.. Eline sağlık.. Sonuç olarak, silinmesini istediğim veriler, ilgili satırın A sütununda işlem yapınca tek tek siliniyor. Bir de; Tamamının bir celsede silinmesini nasıl sağlarız..
Anlıyacağın; benim kontrol etmeme gerek kalmadan (z sütunundaki verilerin, a sütununda karşılığı yoksa tamamı temizlensin..

 

[Orion1]

Sn Evren hocam.. Çok güzel oldu.. Eline sağlık.. Sonuç olarak, silinmesini istediğim veriler, ilgili satırın A sütununda işlem yapınca tek tek siliniyor. Bir de; Tamamının bir celsede silinmesini nasıl sağlarız..
Anlıyacağın; benim kontrol etmeme gerek kalmadan (z sütunundaki verilerin, a sütununda karşılığı yoksa tamamı temizlensin..

Dosyanız ektedir.

Sub sil_59()
Dim sat As Long
sat = Cells(Rows.Count, "Z").End(xlUp).Row
Range("A6:A" & sat).SpecialCells(xlCellTypeBlanks).Offset(0, 25).Clear
End Sub

 

[Seyit Tiken]

Bu şekilde deneyiniz.

For i = [Z65536].End(3).Row To 1 Step -1
If Cells(i, "A") = "" Then Cells(i, "Z").ClearContents
Next i

 

[EKREM1661]

Saygıdeğer Seyit hocam ve Evren hocam.. Çok teşekkür ediyorum..