Çözüldü Sütunda değişliklik olduğunda bir başka sütunda bulunan veriler silinsin

[sirkülasyon]

Sayfada C6:C45 aralığındaki isimler değişince D6:I45 aralığında ki verilerin silinmesini onaylı olarak nasıl sağlayabilirim.Makroyu değişik sayfalarda da kullanmak istediğimden dolayı
Sayfa adını ve hücre aralığını değiştirebileceğim şekilde makro konusunda yardımcı olabilir misiniz?

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

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C6:C45")) Is Nothing Then Exit Sub
    Onay = MsgBox("Silme işlemini onaylıyor musunuz?", vbCritical + vbYesNo + vbDefaultButton2)
    If Onay = vbNo Then
        Exit Sub
    Else
        For Each Veri In Intersect(Selection, Range("C6:C45"))
            Range("D" & Veri.Row & ":I" & Veri.Row).ClearContents
        Next
    End If
End Sub

 

[Haluk]

    Onay = MsgBox("Silme iþlemini onaylýyor musunuz?", vbCritical + vbYesNo + vbDefaultButton2)

Korhan Bey, editörde sıkıntı mı var?

.

 

[Asri]

Alternatif ;

Sayfanın kod bölümüne aşağıdaki kodları yapıştırıp deneyiniz.

Public onceki

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C6:C45]) Is Nothing Then Exit Sub
     If Target.Value <> onceki Then
         a = MsgBox("Yapılan değişikliği onaylıyor musunuz?", vbExclamation + vbYesNo, "Onay !")
         If a = vbNo Then
           Target.Value = onceki
                Exit Sub
         End If
         Range("D" & Target.Row & ":I" & Target.Row).ClearContents
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [C6:C45]) Is Nothing Then Exit Sub
    onceki = Target.Value
End Sub

 

[Korhan Ayhan]

Benim klavyede arıza var. Mesajımı düzenledim.

 

[sirkülasyon]

Yardımını esirgemeyen tüm ustalarıma teşekkür eder, saygı ve sevgilerimi sunarım.

 

[sirkülasyon]

Sayın asri
kod If Target.Value <> onceki Then kısmında
Korhan ağabeyin ise kodun For Each Veri In Intersect(Selection, Range("C6:C45")) kısmında
hata verdi.

 

[bycakir]

asri nin kodunda bastaki
Public onceki
verisini silmeyin ben kullandım çalışıyor kod korhan beyin kodda enter yada başka satır çeçtiğinde seçili olan satırı siliyor işlemin yapıldıgı satırı silmiyor.

asri den gelen kod daha kullanışlı geldi bana .

 

[sirkülasyon]

Sorun düzeldi.
Korhan Ayhan ve asri ağabeyime teşekkür ederim. bycakir uyarınız için sağ olun.