Bilgilerin silinmesi

[manisali50]

Arkadaşlar merhaba..
Ekteki “Tezgah bakım analizi” isimli dosyamın “Sayfa1” sayfasındaki bilgileri “Tezgah Sayfalarına Aktar” butonuna basınca aynı dosya içerisindeki “CM Tezgahları” ve CT Tezgahları” bölümüne aktarıyorum. Ancak “Sayfa1”deki bilgileri (C:H sütunları arası) silince CM ve CT Tezgahları sayfalarındaki bilgilerin de temizlenmesini istiyorum.. Yardımcı olursanız sevinirim.
Şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu Sayfa1 isimli sayfanızın kod bölümüne uygulayıp denermisiniz. C-H sütunları arasında hücre içeriğini sildiğinizde diğer sayfalar otomatik temizlenecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C2:H65536")) Is Nothing Then Exit Sub
    If WorksheetFunction.CountIf(Selection, "") = Selection.Count Then
        Sheets("CT TEZGAHLARI").Range("A13:E42,G13:J42").ClearContents
        Sheets("CM TEZGAHLARI").Range("A13:E42,G13:J42").ClearContents
    End If
End Sub

 

[manisali50]

Bir Korhan Ayhan klasiği daha..Çok teşekkür ederim sayın hocam..