Veri Temizleme Uyarısı

[yavuz829]

Merhaba Arkadaşkar excel sayfasına eklediğim bir buton ile da hüceleri temizliyorum. Bu kodlara MsgBox eklemek istiyorum. Yani temizlemek istediğnizden emin misiniz gibi evet hayır mesaj uyarısını eklemek istiyorum. Çok uğraştım yapamadım.

Sub Temizle()
    Range("I2:K37").Select
    Selection.ClearContents
    Range("B2:C11,B13:C22,B24:C33").Select
    Range("B24").Activate
    ActiveWindow.SmallScroll Down:=24
    Range("B2:C11,B13:C22,B24:C33,B35:C44,B46:C55").Select
    Range("B46").Activate
    ActiveWindow.SmallScroll Down:=19
    Range("B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77").Select
    Range("B68").Activate
    ActiveWindow.SmallScroll Down:=28
    Range("B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77,B79:C88,B90:C99") _
        .Select
    Range("B90").Activate
    ActiveWindow.SmallScroll Down:=22
    Range( _
        "B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77,B79:C88,B90:C99,B101:C110,B112:C121,B123:C132" _
        ).Select
    Range("B123").Activate
    ActiveWindow.SmallScroll Down:=31
    Range( _
        "B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77,B79:C88,B90:C99,B101:C110,B112:C121,B123:C132,B134:C143,B145:C154,B156:C162" _
        ).Select
    Range("B156").Activate
    ActiveWindow.SmallScroll Down:=21
    Range( _
        "B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77,B79:C88,B90:C99,B101:C110,B112:C121,B123:C132,B134:C143,B145:C154,B156:C162,B163:C165,B167:C176" _
        ).Select
    Range("B167").Activate
    ActiveWindow.SmallScroll Down:=22
    Range( _
        "B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77,B79:C88,B90:C99,B101:C110,B112:C121,B123:C132,B134:C143,B145:C154,B156:C162,B163:C165,B167:C176,B178:C187,B189:C198" _
        ).Select
    Range("B189").Activate
    ActiveWindow.SmallScroll Down:=20
    Range( _
        "B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77,B79:C88,B90:C99,B101:C110,B112:C121,B123:C132,B134:C143,B145:C154,B156:C162,B163:C165,B167:C176,B178:C187,B189:C198,B200:C209,B211:C220" _
        ).Select
    Range("B211").Activate
    Selection.ClearContents
    Range("B2").Select
End Sub

 

[YUSUF44]

Sub satırından sonra aşağıdaki satırları ekleyin:

uyar = MsgBox("Tüm veriler silinecek. Emin misiniz?", vbYesNo)
If uyar = vbYes Then

End sub satırından önce de aşağıdaki satırı ekleyin:

End if

 

[YUSUF44]

Bu arada kodlarınız gereksiz uzun. Aşağıdaki satırlar da aynı işi görüyor:

Sub Temizle()
uyar = MsgBox("Tüm veriler temizlenecek." & Chr(10) & Chr(10) & "Emin misiniz?", vbYesNo)
If uyar = vbYes Then
    Range ("I2:K37,B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77,B79:C88,B90:C99,B101:C110,B112:C121," & _
        "B123:C132,B134:C143,B145:C154,B156:C162,B163:C165,B167:C176,B178:C187,B189:C198,B200:C209,B211:C220") & _
        .ClearContents
    Range("B2").Select
Else
    MsgBox "İşlem iptal edildi, heyecana gerek yok :)", vbInformation
End If
End Sub

 

[Necdet]

Merhaba,
Deneyiniz, kodlarınızı da biraz kısaltmaya çalıştım.

Sub Temizle()

    Dim EH As String
    
    EH = MsgBox("Silmek İstiyor Musunuz?", vbYesNo, "Veri Silme")
    
    If EH = vbYes Then
        Range("I2:K37").ClearContents
        Range( _
            "B2:C11,B13:C22,B24:C33,B35:C44,B46:C55,B57:C66,B68:C77,B79:C88,B90:C99,B101:C110,B112:C121,B123:C132,B134:C143,B145:C154,B156:C162,B163:C165,B167:C176,B178:C187,B189:C198,B200:C209,B211:C220" _
            ).ClearContents
        Range("B2").Select
    Else
        MsgBox "SİLMEKTEN VAZ GEÇTİNİZ.....", vbInformation
    End If
        
End Sub

 

[Necdet]

Geç kaldım

 

[yavuz829]

Çok, çok teşekkürler Hocam ellerinize sağlık.
Tam istediğim gibi olmuş.