textboxa veri girince diğer textboxa otomatik veri

[aslan1969]

selamlar
textbox'a ürün numarasını girdiğimde
diğer textbox'a fiyatının otomatik gelmesini sağlayabilirmiyiz
saygılar

 

[programer]

Aşağıdaki Kodu UserForm'a Kopyapayıp denermisiniz

Private Sub ComboBox2_Change()
On Error Resume Next
Dim X As Integer
X = Sheets("veri").Range("B:B").Cells.Find(What:=ComboBox2, LookIn:=xlValues).Row
ComboBox2.Value = ComboBox2
TextBox28 = Sheets("veri").Cells(X, 7)
End Sub

 

[aslan1969]

selamlar
evet çalıştı
yardımınız için çok teşekkür ederim
saygılar

 

[programer]

selamlar
evet çalıştı
yardımınız için çok teşekkür ederim
saygılar

ben teşekkür ederim

 

[aslan1969]

selamlar
verdiğiniz kodu textboxa uyarladım oda çalıştı
adet girdiğimde textbox16 ya çarpımını yapan kodu nasıl uyarlayabilirim
saygılar

 

[programer]

Aşağıdaki kodu Userform Kod Sayfasına Ekleyip Denermisiniz

Private Sub TextBox10_Change()
TextBox16.Value = Val(TextBox10.Value) * Val(TextBox12.Value)
End Sub

 

[aslan1969]

selamlar
çok teşekkür ederim
birim fiyatla adet çarpımına ytl formatını nasıl yazdırabiliriz
saygılar

 

[programer]

selamlar
çok teşekkür ederim
birim fiyatla adet çarpımına ytl formatını nasıl yazdırabiliriz
saygılar

tam olarak ne istediğinizi anlayamadım sonucun yanındamı YTL ibaresi görmek istiyorsunuz. Aşağıdaki kod işişini görür sanırım

TextBox16.Value = Val(TextBox10.Value) * Val(TextBox12.Value) & "TYL"

 

[aslan1969]

selamlar
textboxlara girilen sayılar hücrelere aktarılırken sanırım metin olarak algılanıyor
mesela textboxa 500 yazdığımızda hücreye 500.00 YTL yazdırabilirmiyiz
saygılar

 

[programer]

selamlar
textboxlara girilen sayılar hücrelere aktarılırken sanırım metin olarak algılanıyor
mesela textboxa 500 yazdığımızda hücreye 500.00 YTL yazdırabilirmiyiz
saygılar

veri yazacağınız hücreyi para biçimini kullanarak bicimlendirin. İşlem yapacağınız textboxlarada Val(TextBox1.Value) gibi kulanırsanız sorun hallolucaktır

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.Belki size bir fikir verebilir.

Private Sub CommandButton1_Click()
sat = Cells(65536, "A").End(xlUp).Row + 1
Cells(sat, "A").Value = TextBox1.Value * 1
Range("A" & sat).NumberFormat = "#,##0.00 ""YTL"";-#,##0.00 ""YTL"""
End Sub

Private Sub TextBox1_AfterUpdate()
If IsNumeric(TextBox1.Value) Then TextBox1.Value = Format(TextBox1.Value, "#,##0.00")
End Sub

 

[aslan1969]

selamlar
teşekkür ederim
sürekli soru soruyorum ama
öğrenecek o kadar çok şey varki
ilginç olan şu
öğrendikçe yeter demiyor insan
dahaa çok öğrenmek istiyor
çok teşekkür ederim
saygılar