Listeden silince sayfanın silinmesi.

[mcetinkaya65]

Yardımlarınızla hazırladığım programa bir ilave yapmak istiyorum, tabi kî excel mantığına uyarsa. Ana sayfaya yazdığımız isme çift tıklarsak, örnek sayfanın benzeri bir sayfayı, tıklanan isme göre ilave edip açıyor. Çok güzel ama ana sayfadan bir isim silersek o isme eklenmiş sayfanın da silinmesi mümkün mü?
Saygılarımla..

 

[Korhan Ayhan]

Merhaba,

"Ana Sayfa" isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayınız.

Dim Sayfa_Adi As String
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Sayfa_Adi = "" Then Exit Sub
    If Target.Column = 2 And Target = "" Then
        If MsgBox(Sayfa_Adi & " isimli sayfayı silmek istiyor musunuz?  ", vbCritical + vbYesNo) = vbNo Then
            Target = Sayfa_Adi
        Else
            Application.DisplayAlerts = False
            Sheets(Sayfa_Adi).Delete
            Sayfa_Adi = ""
            Application.DisplayAlerts = True
        End If
    End If
Son:
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Sayfa_Adi = Target
End Sub

 

[mcetinkaya65]

Allah razı olsun,ilginize teşekkürler;
İyi Bayramlar!.