Inputbox'ta Cancel Seçilirse

[mlakdag]

Herkese saygı ve sevgilerimi sunuyorum,

Sorum kısaca Inputbox'ta Cancel seçildiğinde örneğin bir textbox'a bir değer atamak yada başka bir komutun çalışmasını sağlamak mümkün müdür ?

 

[Levent Menteşoğlu]

Aşağıdaki kod sanırım işinizi görecektir. Cancel butonuna bastığınızda A1 hücresine 1 yazar;"[a1]=1" yazan yere kendi kodunuzu yazınız.

selamlar

Sub a()
b = InputBox("aaaa")
If b = "" Then
[a1]=1
End If
End Sub

 

[mlakdag]

Sayın leventm,

teşekkürlerimi sunuyorum.

 

[baydeniro]

Sayın Levent Menteşoğlu, çok teşekkür ederim, 2004 ten kalma ve bana çok yararlı oldu.