Butona tıkladığımda yapılsınmı penceresi...

[guento]

İyi Günler;
Butona tıkladığımda butonun görevini yapmadan önce
küçük bir pencere açılmasını ve "yapılsın mı?" diye sormasını nasıl sağlayabilirim?

Teşekkürler...

 

[Orion1]

If MsgBox("YAPILSINMI?", vbYesNo + vbQuestion, "YAPILSINMI") = vbNo Then Exit Sub

 

[BG]

Merhaba

İyi Günler;
Butona tıkladığımda butonun görevini yapmadan önce
küçük bir pencere açılmasını ve "yapılsın mı?" diye sormasını nasıl sağlayabilirim?

Teşekkürler...

bir alternatifte benden olsun

Private Sub CommandButton1_Click()
    sor = MsgBox("Görev Yapılsın mı?", vbQuestion + vbYesNo)
        If sor = vbYes Then
            Range("A1").Value = "İŞLEM TAMAM"
        Else
            Range("A1").Value = "İŞLEM İPTAL"
        End If
End Sub

 

[guento]

Yardımlarınız için çok teşekkürler; ama yazdığınız formülü aşağıdaki formülün neresine yapıştırıcam acaba yardım edermisiniz?

Teşekkürler.



Sub TEMIZLE1()
'
' TEMIZLE1 Macro
'

'
ActiveSheet.Unprotect
ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=3
Range("B2,C2,D2,A5:A70").Select
Range("A5").Activate
Range("B2,C2,D2,A5:A70,C72:C83,D72,D74,D76,D78,E80,E82,C54:C70").Select
Range("C70").Activate
Range("B2,C2,D2,A5:A70,C72:C83,D72,D74,D76,D78,E80,E82,C54:C70,C5:C53").Select
Range("C53").Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-300
Range("B2").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowSorting:=True, AllowFiltering:=True
End Sub

 

[Orion1]

Sub TEMİZLE1 'in hemen altındaki ilk satıra.Benim yazdığım kodu yapıştırınız.

 

[guento]

Bu ne hız çok ama çok teşekkürler...

 

[Orion1]

Bu ne hız çok ama çok teşekkürler...

Rica ederim.
Bizim mesleğimiz hız.
İyi çalışmalar.