Hücre değeri değiştikçe satırların silinmesi

[sirkülasyon]

Değerli Arkadaşlar,
C5 hücresinde manuel değişiklik yapıldığı zaman F7:AJ7 arasının silinmesini sağlayan makro koduna ihtiyacım var.
Yardımcı olabilir misiniz?

Teşekkür eder saygılarımı sunarım.

 

[YUSUF44]

Aşağıdaki kodları deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C5]) Is Nothing Then Exit Sub
[F7:AJ7].Delete shift:=xlUp
End Sub

Yalnız manuel demişsiniz, eğer o hücrede kod aracılığıyla değişiklik yapıyorsanız ve o durumda silme olmasın istiyorsanız önceki kodlarınızda değişiklik yapmak gerekir.

 

[sirkülasyon]

Yusuf abi
Özür dileyerek bir istirhamda bulunabilir miyim?
Satır çizgilerini ve ne varsa hepsini sildi. Rica etsem satır çizgilerini silmeden sadece içeriğini temizlese mümkün müdür?

 

[YUSUF44]

[F7:AJ7].Delete shift:=xlUp

yerine

[F7:AJ7].ClearContents

yaptığınızda sadece içeriğindeki bilgileri siler.

 

[sirkülasyon]

Yusuf Abim Teşekkür eder saygılarımı sunarım.
Allah razı olsun.

 

[YUSUF44]

Eyvallah, iyi çalışmalar. Bilmukabele.