Inputbox özellikleri

[quesh]

Merhaba arkadaşlar.

Ben Inputboxa yazılan yazının büyük harf (caps lock açık) olarak yazdırılmasını istiyorum. örneğin ben inputboxa elma yazdığım an inputbox'ta bu ELMA olarak görünsün istiyorum. Nasıl yapabilirim ?

Kodum aşağıdaki gibi.

Private Sub OptionButton2_Click()
Sheets("KAPAK").Range("P25:P27").Clear
TextBox2.Value = Sheets("KAPAK").Range("F36").Value
Sheets("KAPAK").Range("p26").Value = OptionButton2.Value
transfer = InputBox("Hangi Dağıtım Şirketinden Transfer Oldu? Lütfen Yazınız.", "M U R A T  H.")
Sheets("kapak").Range("j26") = transfer
End Sub

 

[uzmanamele]

merhaba

sitede benzer birçok örnek bulabilirsiniz.

Sub Düğme1_Tıklat()
transfer = InputBox("Hangi Dağıtım Şirketinden Transfer Oldu? Lütfen Yazınız.", "M U R A T  H.")
[a1] = UCase(transfer)
End Sub

 

[quesh]

Teşekkür ederim ancak kodu yazdığımda inputboxa girilen yazının uppercase olmadığını görüyorum. küçük olarak kalıyor.

merhaba

sitede benzer birçok örnek bulabilirsiniz.

Sub Düğme1_Tıklat()
transfer = InputBox("Hangi Dağıtım Şirketinden Transfer Oldu? Lütfen Yazınız.", "M U R A T  H.")
[a1] = UCase(transfer)
End Sub

 

[zefede]

Inputboxa yazılan yazının büyük harfe dönüşmesini yapamıyorum.
yardımınız için teşekkürler