Soru Aynı satırda ikinci komutu engellemek.

[erdoganaydin]

Merhaba,

Basit ön muhasebe tuttuğum bir tablom var makro da kullanıyorum. Satış yap butonuna bastığımda ürünü stoktan düşüyor. Fakat dalgınlkla ikinci birkez basarsam tekrar stok düşüyor vs ortalık karışıyor. Bu kodun aynı satırda eğer bir değişiklik yoksa aynı işlemi tekrarlamasını engellemek istiyorum. birde butonun mouse ile aşağı kaymasını yapmaya çalıştım ama olmadı sol tık yapınca bulunduğum alana geliyor otomatik hareket etmiyor. Konu hakkında yardımlarınızı rica ederim.

teşekkürler.

Kodu Paylaşıyorum.

 

[uzmanamele]

Merhaba

Kazara değişiklik yapmamak için botona bastıktan sonra "emin misiniz?" diye sorsun.
Evet ise devam eder, Hayır ise çıkarsınız.

 

[erdoganaydin]

teşekkür ederim, fakat tam okumadınız sanırım. yaptığım işlemi unuttuysam bana eminmisin demesinin anlamı yok ki?

 

[TiOr]

Slm,
Paylaştığım Kodu Kendinize Uyarlayınız.
Bu şekilde size uyarı verecek evet derseniz işleme devam edecek hayır derseniz işlemi durduracak.

Private Sub CommandButton1_Click()
Dim ts
ts = MsgBox("Satış Yap ve Stoktan Düş. Eminmisin?", vbYesNo, "DİKKAT")
If ts = vbNo Then Exit Sub
TextBox1 = ""
MsgBox "Satış Yapıldı ve Stoktan Düşüldü", vbInformation, "SONUÇ"

End Sub

İyi çalışmalar...

 

[YUSUF44]

Bu isteğinizi örnek dosya olmadan çözmek çok zor. Excel yapılacak kaydın mükerrer olduğunu nasıl anlayacak?

Kaydırmayla hareket eden düğme işi biraz karışık. Aşağıdaki konuyu incelemenizi öneririm:

Sayfayı bölme hk

İyi geceler. Aşağıda resimde ki kırmızı ile işaretlenmiş alanın sayfa aşağıya doğru indikçe orada kalması ile ilgili fikir verebilir misiniz? Sarı alanlarda tablo dilimleyicileri var ve sayfa da 1000 satır aşağıya doğru görseller veriler vs. var. fakat bu seçim bölümünün ekranda kalmasını...

www.excel.web.tr

 

[uzmanamele]

Satış yap butonuna bastığımda ürünü stoktan düşüyor. Fakat dalgınlkla ikinci birkez basarsam tekrar stok düşüyor vs ortalık karışıyor.

teşekkür ederim, fakat tam okumadınız sanırım. yaptığım işlemi unuttuysam bana eminmisin demesinin anlamı yok ki?

Dalgınlıkla 2. kez basarsanız diye önerdim, Syn TiOr kodu yazmış.
Unutursam diyorsanız o başka.

 

[necati]

Merhaba,
* İşlem yapılan hücreye veya satıra arkaplan boyaması yapılır.
* Gün içinde dalgınlıkla ikinci kez tıklanan hücre için "if" bloku yazılarak mesajlı veya mesajsız direkt makrodan çık yapılarak işlem yaptırılmaz.
* Zaten hücre boyalı olduğu için görsel olarak da bir uyarı verilmiş oluyor.
* Boyama yapılan yerler dosyayı kapatırken veya açılışta "renk yok" ile sıfırlanır. Böylece her gün işlemlere beyaz sayfa ile başlanır.

 

[erdoganaydin]

Slm,
Paylaştığım Kodu Kendinize Uyarlayınız.
Bu şekilde size uyarı verecek evet derseniz işleme devam edecek hayır derseniz işlemi durduracak.

Private Sub CommandButton1_Click()
Dim ts
ts = MsgBox("Satış Yap ve Stoktan Düş. Eminmisin?", vbYesNo, "DİKKAT")
If ts = vbNo Then Exit Sub
TextBox1 = ""
MsgBox "Satış Yapıldı ve Stoktan Düşüldü", vbInformation, "SONUÇ"

End Sub

İyi çalışmalar...

desteğiniz için teşekkür ederim sevgili TiOr sorun çözüldü.