TextBox hk

[ahmett46]

Slm. TextBox biçimlendirme diye arama yaptım ama istediğimi bulamadım. TextBox a girilen metni Caps Lock kullanmadan hepsini büyük yazdırmak istiyorum. Teşekkürler

 

[security]

Slm. TextBox biçimlendirme diye arama yaptım ama istediğimi bulamadım. TextBox a girilen metni Caps Lock kullanmadan hepsini büyük yazdırmak istiyorum. Teşekkürler

UCase ile yapabilirsiniz örnek

Private Sub TextBox1_Change()
TextBox1.Text = UCase(TextBox1.Text)
End Sub

 

[ahmett46]

Hocam sadece baş harfi büyük yazıyor tamamını büyük yazdırmak istiyorum

 

[security]

Hocam sadece baş harfi büyük yazıyor tamamını büyük yazdırmak istiyorum

Private Sub TextBox1_Change()
TextBox1 = büyük(TextBox1)
End Sub
Function büyük(veri)
Dim a As Integer
Dim b As String
    For a = 1 To Len(veri)
        If Mid(veri, a, 1) = "i" Then
            b = "İ"
        ElseIf Mid(veri, a, 1) = "ı" Then
            b = "I"
        Else
            b = Mid(UCase(veri), a, 1)
        End If
        büyük = büyük & b
    Next
End Function

veya

Private Sub TextBox1_Change()
    TextBox1.Value = BuyukHarf(TextBox1.Value)
End Sub
 
Function BuyukHarf(Veri As String)
    BuyukHarf = UCase(Replace(Replace(Veri, "i", "İ"), "ı", "I"))
End Function

 

[ahmett46]

Teşekkürler Hocam Bir sorum daha olacak çok oldun demezsen listbox taki verilerden hangisinin üstüne tıklarsam tıklayayım o veriyi sayfa1 A1 hücresine yazdırmak istiyorum. Ne yapmalıyım

 

[security]

Teşekkürler Hocam Bir sorum daha olacak çok oldun demezsen listbox taki verilerden hangisinin üstüne tıklarsam tıklayayım o veriyi sayfa1 A1 hücresine yazdırmak istiyorum. Ne yapmalıyım

Private Sub ListBox1_Click()
Sheets("Sayfa1").Select
Range("A1").Value = ListBox1
End Sub

 

[ahmett46]

Teşekkürler sayın hocam

 

[security]

Teşekkürler sayın hocam

Rica Ederim İyi Çalışmalar...

 

[ahmett46]

TextBox taki girilen bilgiler Her zaman görünsün TexBox a yeni bilgi girdiğim zaman yeni bilgiler görünsün mümkün mü? Teşekkürler

 

[security]

tam anlayamadım sorunuzu textbox yazdıgınız veriyi listboxa mı aktarıyorsunuz..
ve en son yazdıgınız verinin texten silinmeden durmasınımı istiyorsunuz?

 

[ahmett46]

Yok hocam
Private Sub H_Change()
Range("bilgi!c3").Value = H.Value
End Sub
kodlarıyla hücreye yazdırıyorum. Yazdırdığım hücredeki bilgiler TextBox 'ta da sürekli görünsün istiyorum. Hücredeki bilgileri yine aynı kodlarla değiştirebileyim. Teşekkürler

 

[security]

siz şu şekilde deneyin

Private Sub H_Change()
Range("bilgi!c3").Value = H.Value
End Sub
 
Private Sub UserForm_Initialize()
Sheets("bilgi").Select
H.Text = Range("c3").Value
End Sub

 

[ahmett46]

Hocam ekteki dosyada gönderici bilgilerindeki TextBox lar da girilen bilgiler görünecek

 

[ahmett46]

Tamam Hocam halloldu Teşekkürler elinize sağlık aynı zamanda kusura bakmayın. acemiyiz işte sayenizde bişeyler öğreniyoruz

 

[security]

Dosyanız ekte... Biraz geç oldu diğer konularada bakıyordum.

 

[security]

textboxlara büyük harfide ekledim . dosya bir önceki mesajımda güncellenmiştir...

 

[ahmett46]

Teşekkürler hocam büyük harf kullanımı konusunda bi sorum daha olacak. İsim girdiğim TextBox a iki kelimeden oluşuyorsa isim küçük soyisim büyük üç kelimeden oluşuyorsa ilk iki isim küçük soy isim büyük yazdırılabilir mi