Hücre değerine göre tık sayısı

[Kavinsky]

Herkese merhaba aşağıdaki kodda "KONTROL" isimli sayfada A9 hücresindeki rakama göre tıklama sınırlasın.
Örnek olarak A9 hücresinde 8 yazıyorsa, 8 kere tıklasın her tıklamada A9 Hücresinden 1 eksiltsin ve 0 kaldığında "İşlem tamamlandı" mesajı vererek A2 hücresini temizlesin.
Böyle bir şey mümkün müdür , işin içinden çıkamadım. Şimdiden teşekkür ederim

Private Sub CommandButton3_Click()
   Sheets("KONTROL").Range("G1").Value = Sheets("KONTROL").Range("G1").Value + 1
   MsgBox Sheets("KONTROL").Range("G1").Value & ". PAKET KONTROL EDİLDİ KASAYA KOYABİLİRSİNİZ."
End Sub

 

[bmutlu966]

Deneyiniz.

Private Sub CommandButton3_Click()
  
Sheets("KONTROL").Range("G1").Value = Sheets("KONTROL").Range("G1").Value + 1
   MsgBox Sheets("KONTROL").Range("G1").Value & ". PAKET KONTROL EDILDI KASAYA KOYABILIRSINIZ."
 
    If Sheets("KONTROL").Range("G1").Value = Sheets("KONTROL").Range("A9").Value Then
        CommandButton3.Enabled = False
        MsgBox "Islem tamamlandi.", vbInformation
        Sheets("KONTROL").Range("A2").ClearContents
    End If
End Sub

Veya

Private Sub CommandButton3_Click()

   Sheets("KONTROL").Range("A9").Value = Sheets("KONTROL").Range("A9").Value - 1
   Sheets("KONTROL").Range("G1").Value = Sheets("KONTROL").Range("G1").Value + 1
   MsgBox Sheets("KONTROL").Range("G1").Value & ". PAKET KONTROL EDILDI KASAYA KOYABILIRSINIZ."
  
    If Sheets("KONTROL").Range("A9").Value = 0 Then
        CommandButton3.Enabled = False
        MsgBox "Islem tamamlandi.", vbInformation
        Sheets("KONTROL").Range("A2").ClearContents
    End If
End Sub

 

[Kavinsky]

Çok teşekkür ederim üstadım işimi gördü

 

[Kavinsky]

Üstat aşağıdaki kodda "KASA KONTROL İŞLEMİ BİTTİ YENİ KASAYA GEÇİN" mesajı geldikten sonra USerform3 gözükmesini istemiyorum. Sadece

MsgBox Sheets("KONTROL").Range("B7").Value & ". PAKET KONTROL EDİLDİ KASAYA KOYABİLİRSİNİZ."

bu mesajdan sonra UserForm3 gözüksün istiyorum. Biraz deneme yaptım kodda görebileceğiniz üzere fakat başarılı olamadım.

Private Sub CommandButton3_Click()
CommandButton3.Enabled = True

NoG = Sheets("LOGOK").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("LOGOK").Range("A" & NoG) = Sheets("KONTROL").Range("A2")

NoG = Sheets("LOGOK").Range("B" & Rows.Count).End(xlUp).Row + 1
Sheets("LOGOK").Range("B" & NoG) = Sheets("KONTROL").Range("D4")

NoG = Sheets("LOGOK").Range("C" & Rows.Count).End(xlUp).Row + 1
Sheets("LOGOK").Range("C" & NoG) = Sheets("KONTROL").Range("D7")

NoG = Sheets("LOGOK").Range("D" & Rows.Count).End(xlUp).Row + 1
Sheets("LOGOK").Range("D" & NoG) = Sheets("KONTROL").Range("E2")

NoG = Sheets("LOGOK").Range("E" & Rows.Count).End(xlUp).Row + 1
Sheets("LOGOK").Range("E" & NoG) = Sheets("KONTROL").Range("B7") + 1

NoG = Sheets("LOGOK").Range("F" & Rows.Count).End(xlUp).Row + 1
Sheets("LOGOK").Range("F" & NoG) = Date

NoG = Sheets("LOGOK").Range("G" & Rows.Count).End(xlUp).Row + 1
Sheets("LOGOK").Range("G" & NoG) = Now


   Sheets("KONTROL").Range("C7").Value = Sheets("KONTROL").Range("C7").Value - 1
   Sheets("KONTROL").Range("B7").Value = Sheets("KONTROL").Range("B7").Value + 1
   MsgBox Sheets("KONTROL").Range("B7").Value & ". PAKET KONTROL EDİLDİ KASAYA KOYABİLİRSİNİZ."
 
    If Sheets("KONTROL").Range("C7").Value = 0 Then
        
            Range("A2:C2").Select
    Selection.ClearContents
    Range("B7").Select
    ActiveCell.FormulaR1C1 = "0"
        UserForm3.Hide
        MsgBox "KASA KONTROL İŞLEMİ BİTTİ YENİ KASAYA GEÇİN", vbInformation

    
    
    Range("C7").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=RC[-2]"
    Range("D7").Select
    Selection.ClearContents
    Range("A2:C2").Select

    CommandButton3.Enabled = False
    CommandButton2.Enabled = False
    End If
UserForm3.Show

End Sub