Makro satırının "Option Explicit" ifadesi ile uyumu hk..

[EKREM1661]

Hocam esenlikler dileğiyle; aşağıda, belirli bir sayfa alanını yazım, çizim ve objelerden temizleyen makro satırlarının Option Explicit altında çalışabilmesi için, Dim S1, Proceed, Alan, obj, xOK, yok As Variant bu şekilde variant değişkeni ile çalıştı ancak, ne kadar doğru ?

Option Explicit

Private Sub CommandButton1_Click()
If Not Proceed = vbNo Then
With Range("A6:Z200")
    .Clear
    .NumberFormat = "General"
    .FormatConditions.Delete
    .Interior.ColorIndex = xlNone
End With

Set S1 = ActiveSheet
    S1.AutoFilterMode = False
Set Alan = S1.Range("A6:Z200")
For Each obj In S1.DrawingObjects
    If obj.Left <= Alan.Left + Alan.Width And obj.Left + obj.Width >= Alan.Left Then xOK = True Else xOK = False
    If obj.Top <= Alan.Top + Alan.Height And obj.Top + obj.Height >= Alan.Top Then yok = True Else yok = False
    If yok And xOK Then obj.Delete
Next
End If
End Sub

 

[cems]

Dosya eklemediğinizden deneme şansı olmadan gpt yardımı ile

Option Explicit

Private Sub CommandButton1_Click()
    Dim S1 As Worksheet
    Dim Proceed As VbMsgBoxResult
    Dim Alan As Range
    Dim obj As Shape

    ' Eğer kullanıcı "Hayır" derse, işlem yapılmasın
    If Not Proceed = vbNo Then
        ' Alanı temizleme
        With Range("A6:Z200")
            .Clear
            .NumberFormat = "General"
            .FormatConditions.Delete
            .Interior.ColorIndex = xlNone
        End With

        ' Sayfayı referans olarak al
        Set S1 = ActiveSheet
        S1.AutoFilterMode = False
      
        ' Alanı belirle
        Set Alan = S1.Range("A6:Z200")
      
        ' Çizim objelerini silme
        For Each obj In S1.Shapes
            If obj.Left <= Alan.Left + Alan.Width And obj.Left + obj.Width >= Alan.Left And _
               obj.Top <= Alan.Top + Alan.Height And obj.Top + obj.Height >= Alan.Top Then
                obj.Delete
            End If
        Next
    End If
End Sub

Siz dener misiniz ?

Dim S1, Proceed, Alan, obj, xOK, yok As Variant satırındaki tanımlama doğru değil. Çünkü burada yalnızca son değişken olan yok'un tipi Variant olarak belirlenmiş. Diğer tüm değişkenler (S1, Proceed, Alan, obj, xOK) varsayılan olarak Variant tipine sahip olmayacaktır. Doğru kullanım şöyle olmalı:

Dim S1 As Worksheet
Dim Proceed As VbMsgBoxResult
Dim Alan As Range
Dim obj As Shape
Dim xOK As Boolean
Dim yok As Boolean

 

[EKREM1661]

Teşekkür ederim sn cems, hem düzenlemeniz konuyu netleştirdi, elinize sağlık..