Soru Excelde bir hücrede veri degisince veriler silinsin

[sebahattin]

Selamun Aleyküm Ekcel web ustadları ekte bulunan dosyamda kurban listesinde bulunan sayfamda H sütunda veriler bulunmakta kullanıcı H sütununda bir değişiklik yaptığında(veriyi silip veya değiştiğinde ) o veriye ait sırası ile I,J,K,L,M,S,U verilerinin sılınmesini talep ediyoruz ve kullanicaya veriler silindi diye mesaj versin diyoruz bu konuda sizden cözüm istıyoruz

 

[Saban Sertkaya]

ChatGPT 3,5 ile oluşturulmuştur.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim ws As Worksheet
    Dim msg As String

    ' İzlenen hücrelerin aralığını belirtin
    Set KeyCells = Me.Columns("H")

    ' Değişiklik yapılan hücrelerin H sütununda olup olmadığını kontrol edin
    If Not Application.Intersect(KeyCells, Target) Is Nothing Then
        Application.EnableEvents = False ' Olayları geçici olarak devre dışı bırakın

        ' Kullanıcının hangi satırda bir değişiklik yaptığını bulun
        Dim rowNum As Long
        rowNum = Target.Row

        ' İstenen sütunlardaki hücreleri silin
        Me.Cells(rowNum, "I").Value = ""
        Me.Cells(rowNum, "J").Value = ""
        Me.Cells(rowNum, "K").Value = ""
        Me.Cells(rowNum, "L").Value = ""
        Me.Cells(rowNum, "M").Value = ""
        Me.Cells(rowNum, "S").Value = ""
        Me.Cells(rowNum, "U").Value = ""

        Application.EnableEvents = True ' Olayları tekrar etkinleştirin

        ' Kullanıcıya mesaj göster
        MsgBox "Veriler silindi.", vbInformation
    End If
End Sub

 

[sebahattin]

Hocam bunu hangi kodun altına yazmamış gerekir

 

[Saban Sertkaya]

Sayfa isminizin üzerine fare ile sağ tuş yapıp, KOD GÖRÜNTÜLE deyin, ekrana gelen kısımda, sağdaki boş alana (kod alanına) yapıştırın.
Sonra sayfanıza geçip, sonucu gözlemleyin.

 

[sebahattin]

Kodu sayfama yapıstırdım sonuç boyle verdi

 

[dEdE]

Sayfanızda aynı isimli iki kod bloğu var. İki blok teke indirilmeli (kodlar birleştirilmelidir.)

 

[sebahattin]

hocam ben bunu fark edemıyorum dosyamı size gönderiyorum siz düzenleyıp bize gönderebilirmisiniz

 

[sebahattin]

Bu konuda çözüm bekliyoruz

 

[sebahattin]

Selamün aleykum hocam bu konuda cevap verecek dostumuz var herhalde bekliyoruz

 

[sebahattin]

Sorumuza cevap bekliyoruz benim için onemli

 

[sebahattin]

Sorumuza cevap lutfen