Hücredeki formatı ile TextBox a veri alma

[acebeci]

Arkadaşlar sorumu ekli dosyadada anlattım.Kısaca özetlemek gerekirse Çalışma sayfasından UserForm üzerindeki TextBox a verileri alırken TextBox daki sayı ve tarih formatı veriyi aldığı hücre ile aynı olabilirmi?

 

[BASKICI]

Selamlar.. Sayın acebeci ; Gerekli düzeltmeler yapıldı. İnceler misiniz ?

 

[acebeci]

Sayın BASKICI ilginizden dolayı çok teşekkür ederim Tarih sorunu çözülmüş galiba birde diğer sayı formatlarını(BÜRÜT,FİRE,NET ve devamındakiler) halledebilirsek gerçekden mükemmel olacak.Sizlere Nasıl teşekkür edeceğim bilemiyorum

 

[BASKICI]

birde diğer sayı formatlarını(BÜRÜT,FİRE,NET ve devamındakiler) halledebilirsek gerçekden mükemmel olacak.Sizlere Nasıl teşekkür edeceğim bilemiyorum

Dediğinizden kastınız nedir acaba ? Tam olarak anlayamadım

 

[acebeci]

Sayın BASKICI şimdi UserForm üzerinde textBox lar varya mesela Hücrede BÜRÜT:23.770 Yazıyorken textbox a aldığımızda BÜRÜT:23770 olarak alıyor Hücerde FİRE:475 Yazıyorken textbox a aldığımda 475,4 yazıyor diğer texboxlar da da böyle d2 hüceresindeki sayı 292.382 iken 29238,775 yazıyor gibi.Bunu düzeltmek istemiştim

 

[BASKICI]

Private Sub ComboBox1_Click()
Sheets(ComboBox1.Text).Select
TextBox17.Text = FormatNumber(Sheets(ComboBox1.Value).Cells(2, "d").Value, 0)

End Sub

ve

sayfa_adi = ComboBox1.Value
sat = TextBox16.Text + 3
TextBox2.Value = Format(Sheets(sayfa_adi).Cells(sat, "c").Value)
TextBox1.Value = Format(Sheets(sayfa_adi).Cells(sat, "b").Value)
TextBox4.Value = Format(Sheets(sayfa_adi).Cells(sat, "e").Value)
TextBox5.Value = Format(Sheets(sayfa_adi).Cells(sat, "f").Value, "##,###")
TextBox6.Value = Format(Sheets(sayfa_adi).Cells(sat, "g").Value, 0)
TextBox7.Value = Format(Sheets(sayfa_adi).Cells(sat, "h").Value, "##,###")
TextBox8.Value = Format(Sheets(sayfa_adi).Cells(sat, "ı").Value)
TextBox9.Value = Format(Sheets(sayfa_adi).Cells(sat, "j").Value, "##,###")
TextBox10.Value = Format(Sheets(sayfa_adi).Cells(sat, "k").Value)
TextBox11.Value = FormatNumber(Sheets(sayfa_adi).Cells(sat, "l").Value, 3)
TextBox12.Value = FormatNumber(Sheets(sayfa_adi).Cells(sat, "m").Value, 3)
TextBox13.Value = Format(Sheets(sayfa_adi).Cells(sat, "n").Value, "##,###")
TextBox14.Value = Format(Sheets(sayfa_adi).Cells(sat, "o").Value)
TextBox15.Value = Format(Sheets(sayfa_adi).Cells(sat, "p").Value, "##,###")

Sayın acebeci ; ilgili yeri bu şekilde değiştirebilir misiniz ?

 

[acebeci]

Sayın BASKICI tam olarak da istediğim buydu size naıl teşkkür etsem bilemiyorum.Tüm samimiyetimle çok teşekkür ederim İYİKİ VARSINIZ

 

[BASKICI]

Sayın acebeci ; ben ve diğer saygıdeğer arkadaşlarım üstadlarım burada paylaşmak için varız. Rica ederim yardımcı olabildiysem ne mutlu bana. İyi çalışmalar dilerim.