• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü InputBox X çıkış yapmayı engelleme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

bulentkars

Yeni Üye
Katılım
30 May 2022
Mesajlar
605
Çözümler
5
Aldığı beğeni
104
Excel V
Office 365 TR
Konu Sahibi
Arkadaşlar Merhaba;

Forumda çok aradım ancak bulamadım. Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler

Yapmak istediğim;

Aşağıda inputbox' ta sadece ENTER+OK+CENCEL Butonlarını tıklana bilinsin.
Yukarıda çıkış x İşareti tıklandığından inputbox'un kapanmasını engellemek istiyorum.

Sub İnputBox_Cıkıs_Engelleme()

sayi = InputBox("ÜCRETLİ PUANTAJI Yazdırılacak. Kopya sayısını giriniz :", "Kopya sayısı", 2)
If sayi <> "" Then

End If

End Sub
 
Çözüm
If StrPtr(sayi) = 0 Then
satırını "sıfır değeri girilirse" seçeneği dahil ederek yeniden ekliyorum.
If StrPtr(sayi) = 0 Or sayi = "0" Then
Bu şekilde kullanabilirsiniz.
input box komut düğmeleri sabittir.X dan kapatılmasını engellemenin nedeni nedir
 
Konu Sahibi
Başta çalışan makro var,
sonra inputbox çalışıyor,
inputbax ta x ile çıkış yaptığından doğru sonuç vermiyor. ancak tamam veya cencel yaptığında sorun çıkmıyor.
bu yüzden x engellemek istiyorum.

mümkün mü acaba
 
onun yerine inputtan gelen değeri başlangıçta değişkene atayın kod içinde değişkeni kullanın sorun çözülür
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
Adnan Bey;
bu işimi görmüyor,
benim istediğim x ten hiç bir şekilde çıkış yapıp inputbox'un kapatılmasını istemiyorum.
inputbox'a veri girme zorunluğu yok, girse de olur girmese de olur.
inputbox üzeriden mümkün değilse en son userfrom koymak zorunda kalacağım.
teşekküerler
 
Bülent bey normalde iş görmesi lazım input box x düğmesini kapamayı ben bilmiyorum
 
If StrPtr(sayi) = 0 Then
satırını "sıfır değeri girilirse" seçeneği dahil ederek yeniden ekliyorum.
If StrPtr(sayi) = 0 Or sayi = "0" Then
Bu şekilde kullanabilirsiniz.
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst