Tüm çalışma kitabında formüllü hücreler silinirken uyarı verme

[mkuru28]

Merhaba arkadaşlar.
Bir çalışma kitabı içerisinde bulunan tüm sayfalarda formüllü hücrelere manuel giriş yapıldığında veya Delete tuşu ile silinmeye kalkıldığında bir uyarı verme ve onay verilirse işlemi gerçekleştirme için nasıl bir makro kullanabilirim.

 

[Muzaffer Ali]

Merhaba.
"BuÇalışmaKitabı" adlı kod sayfasına aşağıdaki kodları kopyalayın.

Dim FormulVar As String

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If FormulVar <> "" Then
        If MsgBox("Hücre formül içeriyor, yine de değiştirmek istiyor musunuz?", vbYesNo + vbQuestion) = vbNo Then
            Application.EnableEvents = False
            Target.Formula = FormulVar
            Application.EnableEvents = True
        End If
    End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Text <> "" Then
        If Left(Target.Formula, 1) = "=" Then
            FormulVar = Target.Formula
        Else
            FormulVar = ""
        End If
    End If
End Sub

 

[mkuru28]

Hocam denedim ama çalışmadı. Formüllü bir hücreye hem manuel giriş yapınca hem de Delete tuşu ile silince ikisinde de uyarı vermeden direk işlemi yapıyor.

 

[Muzaffer Ali]

Kodu söylediğim yere kopyalamamışsınız.

 

[mkuru28]

Dim FormulVar As String

Hocam çok özür dilerim. Kodun yukarıdaki kısmını eklememişim. O nedenle çalışmıyormuş. Yukarıdaki kısmı da ekleyince çalıştı. Emeğinize sağlık. Eksik olmayın.

 

[mkuru28]

Hocam bu kodu tüm çalışma kitabına değil de istediğimiz bir sayfaya uyarlamak istersek bu mümkün müdür? Mümkün ise sayfanın kod bölümüne bu kodu nasıl değiştirerek uyarlayabiliriz? Bir kaç deneme yaptım ama beceremedim.

 

[mkuru28]

Hocam bir de bazı formüllerde şu kısım hata veriyor.

If Left(Target.Formula, 1) = "=" Then

Hata ekranı şu
Run-Time error '13':
Type mismatch
Ve bu hatayı verdiği formüllü hücrelerde silme değiştirme işlemi yapıldığında uyarı vermeden formülün değiştirilmesine veya silinmesine müsaade ediyor.

 

[Muzaffer Ali]

Önce şuna karar verin tüm sayfalarda mı çalışsın, bazı sayfalarda mı çalışsın yoksa sadece bir sayfada mı çalışsın.

2. mesajdaki kodu hata vermeyecek şekilde revize ettim. Tekrar deneyin.