textboxa yazdıklarım silinmesin ama belli bir kısmı

[kasimpalas]

1-yazdıklarımın sadece belli bir kısmının kalmasını sağlayabilirmiyim

bir de


2- kelimelerin ilk harfini büyük yazmak için kullandığım "TextBox1 = StrConv(TextBox1, vbProperCase)" komutu türkçe karakterleri değiştirmiyor buna ne yapabilirim. şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

Kodu bir deneyiniz.
Private Sub TextBox1_Change()
TextBox1 = Evaluate("=proper(""" & TextBox1 & """)")
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Mid(Range("a1"), 4, 5)
End Sub

 

[kasimpalas]

saolun verdiğiniz kodlar fazlasıyla işimi gördü son olarak comboboxta listenin tamamını görünür hale getirebilmem için ne yapmalıyım bu konuda da yardımcı olursanız sevinirim. tekrar teşekkürler :hey:

 

[N.Ziya Hiçdurmaz]

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "A1:A" & WorksheetFunction.CountA([A1:a65000])
End Sub

 

[kasimpalas]

veriler "additem " ile girilmiş olacak şekilde

combobox1.additem "ali"
combobox1.additem "veli"
.
.
.
.
.

 

[N.Ziya Hiçdurmaz]

Bu şekil ne kadar veriniz varsa görülüyor zaten.
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "ali"
.AddItem "veli"
.AddItem "selami"
End With
End Sub

 

[kasimpalas]

özür dilerim hata bende hatalı sordum kaydırma çubuğu olmadan tüm verilerin görünmesini istiyorum

 

[N.Ziya Hiçdurmaz]

Bu durumda listbox kullanmalısınız.
Private Sub UserForm_Initialize()
With ListBox1
.AddItem "ali"
.AddItem "veli"
.AddItem "selami"
End With
End Sub