Değiştir butonunda Hata var

[86126]

Arkadaşlar elimde bir userformum var macrodan pek anlamıyorum örneklerle birşeyler yaptım kanımca. Kodlarını ekte gönderiyorum. Sıkıntım şudur.
Kaydette sayı formatında kaydettiğim değerleri, bulla alıp değiştir dediğimde "metin olarak saklanan sayı" formatına çeviriyor. Buda toplamlarda hataya sebebiyet veriyor. bunu nasıl engelleyebilirim.
Private Sub CommandButton4_Click() >>>>>>>>>>>>>>>>>Değiştir kodu
sat = ComboBox2.ListIndex + 6
Cells(sat, "a") = TextBox1
Cells(sat, "c") = TextBox3
Cells(sat, "d") = ComboBox4
Cells(sat, "e") = TextBox5
Cells(sat, "f") = ComboBox3
Cells(sat, "g") = TextBox7
Cells(sat, "h") = TextBox8
Cells(sat, "I") = TextBox9
Cells(sat, "k") = TextBox10
Cells(sat, "l") = TextBox11
Cells(sat, "m") = TextBox12 ...................... şeklinde devam ediyor

 

[Orion1]

Merhaba.
Veriyi aldığınız nesneye * 1 koyun.
Misal

Cells(sat, "c") = TextBox3

eğer textbox3 sayısal bir değerse aşağıdaki gibi düzenleyin.Diğerlerinide benzer şekilde düzenleyin.

Cells(sat, "c") = TextBox3 * 1

 

[86126]

İlgin için teşekkür ederim. Yalnız Kod hata veriyor. Çalışmıyor. Bul kodunamı ekleyeceğim. Bul kodu
Private Sub CommandButton3_Click() >>>>>>>>>>>>>>>>Bul
sat = ComboBox2.ListIndex + 6
TextBox1 = Format(Cells(sat, "a"), "dd.mm.yyyy")
TextBox3 = Cells(sat, "c")
ComboBox4 = Cells(sat, "d")
TextBox5 = Cells(sat, "e")
ComboBox3 = Cells(sat, "f")
TextBox7 = Cells(sat, "g")
TextBox8 = Cells(sat, "h")
TextBox9 = Cells(sat, "I")
TextBox10 = Cells(sat, "k")
TextBox11 = Cells(sat, "l")
TextBox12 = Cells(sat, "m")

 

[ocamsul]

Arkadaşlar elimde bir userformum var macrodan pek anlamıyorum örneklerle birşeyler yaptım kanımca. Kodlarını ekte gönderiyorum. Sıkıntım şudur.
Kaydette sayı formatında kaydettiğim değerleri, bulla alıp değiştir dediğimde "metin olarak saklanan sayı" formatına çeviriyor. Buda toplamlarda hataya sebebiyet veriyor. bunu nasıl engelleyebilirim.

sayı içeren TextBoxların Change prosedürlerini Formatlayabilirsiniz. Bu çözer zannedersem. ÖRNEĞİN:

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "#,##0.00")
End Sub

 

[Orion1]

Merhaba.
Hücrelere yazdırdığınız kodları bulun onlarda gerekli düzeltmeyi yapın.

 

[86126]

yazdırdığım kodlar değiştir butonu olarak bildirdiğim kod.

 

[86126]

yardım yapacak arkadaş arıyorum. Bul ve değiştire sayı formatı uyglamam gerekiyor. textbox7 den itibaren.

 

[86126]

arkadaşlar problemi çözdüm. sonlarına value yi ekledim.