Commandbutonunun 3 kere çalışması

[airborne]

s.a.

Excel Sayfamda Commandbutonum var. Bunun mesala A1 de 5 yazıyorsa sınırsız, 5 harici bir şey yazıyorsa 3 kere çalışması için nasıl bir bod yazılmalıdır.

Selametle..............

 

[uzmanamele]

Merhaba

Bunu deneyiniz.
Bu çalışma kitabı bölümüne

Private Sub Workbook_Open()
x = Sheets("Sayfa1").Range("a1")
y = 0
End Sub

Standart modüle

Public x As Byte
Public y As Byte

Çalışma sayfası kod bölümüne

Private Sub CommandButton1_Click()
If x = 5 Then
MsgBox "İyi çalışmalar..."
Exit Sub
End If
y = y + 1
If y > 3 Then
MsgBox "Çok çalıştım, biraz dinleneyim."
Exit Sub
End If
MsgBox y & " Defa çalıştım."
End Sub