işaretlenenlerin silinmesi

[osmandemir]

merhaba kolay gelsin iki sayfada bilgilerimiz var.diğer sayfada da ilk iki sayfadiki bilgilerin tamamı var.ilk iki sayfa daki G sutunuda işaret koyduğumda toplam bilgilerin bulunduğu sayfada ki satırın silinmesini istiyoruz.olabilirmi şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu dosyanızın ThisWorkbook bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim BUL As Range, ONAY As Byte
    
    On Error GoTo Son
    
    If Intersect(Target, Range("G2:G65536")) Is Nothing Then Exit Sub
    If Sh.Name <> "SİM" Then
        If Target <> "" Then
            Set BUL = Sheets("SİM").Range("F:F").Find(Cells(Target.Row, "F"), LookAt:=xlWhole)
            If Not BUL Is Nothing Then
                ONAY = MsgBox(Cells(Target.Row, "F") & " isimli kayıt silinecektir !" & Chr(10) & _
                "İşlemi onaylıyor musunuz?", vbCritical + vbYesNo, "Dikkat !")
                If ONAY = vbYes Then
                    Application.EnableEvents = False
                    Sheets("SİM").Rows(BUL.Row).Delete
                    MsgBox "Silme işlemi tamamlanmıştır.", vbInformation
                Else
                    MsgBox "Silme işlemi iptal edildi !", vbInformation
                End If
            End If
        End If
    End If

Son:
    Set BUL = Nothing
    Application.EnableEvents = True
End Sub

 

[osmandemir]

çok teşekkür ediyorum

 

[osmandemir]

merhaba kolay gelsin ben ad ve soyad ayrı olunca işaretlediklerim sim den silinmiyor farklı birşey mi yapıyorum bakabilirmisiniz zahmet olmazsa

 

[osmandemir]

yanlış anlaşılmasın ad soyad ayrı hücrelerde olduğu zaman işaretlediğim silinmiyor