TextBox

[kimfx]

Merhabalar,
Textbox'a hücreden veri aktarıyorum textbox'un formatını #,##0 şeklinde ayarladım, hücre formatı da virgülden sonra 2 rakam alacak şekilde yani (1,23) gibi ancak textbox da virgülden sonra 6-7 rakam çıkıyor (1,2345623698) gibi acaba bunu nasıl engellerim virgülden sonra 2 rakam yeter. Bir de textBox a girdiğim değerleri harf veya rakam (*) şeklinde görülmesi sağlanabilirmi. Teşekkürler

 

[Ongun]

Selam, aşağıdaki gibi denermisiniz

TextBox5 = Format((TextBox5.Value), "#,##0.00")

 

[zafer]

Merhaba

textbox'un properties kısmında
PasswordChar seçeneğine * işareti koyunuz

 

[kimfx]

Textbox a girilen değeri TextBox a kaydetmek

Merhaba arkadaşlar, TextBox la ilgili bir sorum daha olacak. UserForm üzerinde bulunan TextBox a girdiğim değeri hücrelere kaydedebiliyorum, ancak UserForm kapatılıp tekrar açılınca TextBox a önceden yazdığım değerler silinmiş olarak açılıyor. Acaba TextBox a girdiğimiz değerleri kalıcı nasıl yapabiliriz. Değerler kalıcı olurken bazen değişiklik gerekebilir değişiklikleri yaptığımızda girilen yeni değerler saklansın acaba bu mümkünmü? Teşekkürler :arkadas:

 

[Levent Menteşoğlu]

Saklayamazsınız. Bunun için hücredeki değeri userform initialize olayı ile tekrar textboxa aktarın.

[vb:1:6b792dc69c]Private Sub UserForm_Initialize()
TextBox1 = [a1].Value
End Sub
[/vb:1:6b792dc69c]

 

[Ongun]

Selam, aşağıdaki kod sayfa1 deki A1 hücre içeriğini form aktif olunca Textbox1 e getirir. Buna göre uyarlayabilirsiniz. Kolay gelsin.
Private Sub UserForm_Activate()
TextBox1.Text = Sayfa1.Cells(1, 1)
End Sub

 

[mehmett]

Kod sayfasında UserForm üzerindeki TextBox'lara ne yazmışsanız kalıcı olur. Yani textboxlara her seferinde farklı bilgiler yazıp kaydetseniz bile, kapatıp tekrar açtığınızda Kod sayfasında textboxlara girdiğiniz bilgiler karşılar sizi. Bilmem yanılıyormuyum.

 

[Levent Menteşoğlu]

Yanılıyorsunuz. Textboxa yazılan bir değer userform kapatılınca silinecektir. Fakat textboxun properties penceresindeki controlsource özelliğine bir hücre tanımlarsanız, bu durumda userformun her açılışında tanımlanan hücredeki veriyi textboxa geri getirir.

 

[mehmett]

Belki Excel sürümünden kaynaklanabilir sayın Leventm.

Ben kod sayfasında (yani tasarım aşamasında) textboxa ne yazmışsam dosyayı her açtığımda o geliyor. Neyse.

----

Benim textbox ile ilgili küçük bir sorunum var. Userform üzerinde üç beş tane textbox var ve bunlara girdiğim veriler belli hücrelere gidiyor..

Bir başka hücrede ise verilerin gittiği hücrelerden etkilenen bir formül var ve bu hücre sonuç hücresi.

Son textbox'ta bu sonucu görmek istiyorum. Yani ben diğer textboxlara veri girdikçe sonuncu textboxta değişimi görmek istiyorum.

Ã?rnek vermek gerekirse C11 hücresindeki değişiklikleri anında TextBox5'de görmek istiyorum.

Diğer textboxların kodu şöyle;

Private Sub TextBox1_Change()
[c7].Value = TextBox1
End Sub

TextBox5'in kodu nasıl olmalı.

Teşekkürler.

 

[Levent Menteşoğlu]

Ben kod sayfasında (yani tasarım aşamasında) textboxa ne yazmışsam dosyayı her açtığımda o geliyor.

Söylediğinizin versiyon farkı ile bir bağlantısı olamaz, mutlaka bir farklılığınız var. Sorunuza gelince formülün sonucunu anında görmeniz için formülün sonucunu etkileyecek en son textboxın change olayına textbox5=[c11] yazmanız yeterlidir.

 

[mehmett]

Levent bey

Hazırladığım minyatür UserFormda 3 tane textbox var ve kodları aşağıdaki gibi. (Bu küçük userform çalışırsa daha büyüğüne uygulanacak.)

Private Sub TextBox1_Change()
[b1] = TextBox1
End Sub

Private Sub TextBox2_Change()
[b2] = TextBox2
End Sub

Private Sub TextBox3_Change()
TextBox3 = [b3]
End Sub

İlk iki textboxa girilen değerler B1 ve B2 hücrelerine gidiyor. B3 hücresinde ise bu iki değerle ilgili bir işlem yapan formül var. Bu hücrede elde edilen sonucu TextBox3'de göremiyorum.

Nerde hata yapıyorum?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:ddde03e3f3]Private Sub TextBox2_Change()
[b2] = TextBox2
Textbox3=[b3]
End Sub

[/vb:1:ddde03e3f3]

 

[mehmett]

Bu sefer oldu, teşekkürler...

 

[mehmett]

Yukarıda bahsettiğim örnekte;

TextBox2'ye girilen değerin düzeltilmesi amacıyla backspace tuşu ile silinince Run-time error hatası veriyor. Bu hatayı engelleyebilirmiyiz.

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin. Sorun textboxtaki boşluğun metin olarak algılanmasından kaynaklanıyor.

[vb:1:27a37dffd0]Private Sub TextBox2_Change()
if textbox2="" then textbox2=0
[b2] = TextBox2
Textbox3=[b3]
End Sub

[/vb:1:27a37dffd0]

 

[mehmett]

Teşekkürler Levent bey...

 

[ALPEN]

Re: Textbox a girilen değeri TextBox a kaydetmek

Merhaba arkadaşlar, TextBox la ilgili bir sorum daha olacak. UserForm üzerinde bulunan TextBox a girdiğim değeri hücrelere kaydedebiliyorum, ancak UserForm kapatılıp tekrar açılınca TextBox a önceden yazdığım değerler silinmiş olarak açılıyor. Acaba TextBox a girdiğimiz değerleri kalıcı nasıl yapabiliriz. Değerler kalıcı olurken bazen değişiklik gerekebilir değişiklikleri yaptığımızda girilen yeni değerler saklansın acaba bu mümkünmü? Teşekkürler :arkadas:

Userform'u unload(hafızadan tamamen silmek) yerine hide ile saklarsak, üzerindeki tüm kontrollerin son hali olduğu gibi kalır.

Daha sonra tekrar show ile sakladığımız formu çağırdığımızda en son hali ile formu görebiliriz.

 

[tufan03]

Private Sub UserForm_Initialize()
TextBox1 = [a1].Value
End Sub

Sayın Leventm yukardaki kod doğru ama aktif sayfadaki veriyi textbox a getiriyor. Diyelimki farklı sayfalardaki hücrelerde bulunan verileri textbox içinde kalıcı bir şekilde nasıl gösteririz. Selemlar.

 

[Orion1]

Private Sub UserForm_Initialize()
TextBox1 = [a1].Value
End Sub

Sayın Leventm yukardaki kod doğru ama aktif sayfadaki veriyi textbox a getiriyor. Diyelimki farklı sayfalardaki hücrelerde bulunan verileri textbox içinde kalıcı bir şekilde nasıl gösteririz. Selemlar.

Aşağıdaki kod sayfa1 deki a1 hücresini gösteriyor.

Textbox1.value=sheets("Sayfa1").range("A1").value

 

[haso_excel]

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Text = FormatCurrency(TextBox3.Text, 2)
End Sub

Yukarıdaki kodu yazdığımda neden textbox ın içinde 250,25 yazdığım da 25,025.00 TL çıkıyor arkadaşlar. Benim amacım 250,25 yazmak bunun için formatda mı hata var acaba yardımcı olurmusunuz lütfen ?