textbox veri girişi hakkında

[hurkanpisirici]

merhabalar veri girşi yaptığım bir userformum var diyelimki textbox1 e "depo"
yazdığımda textbox2 de "depo" , başka biey yazdığımda "direk" yazsın? bunun kodunu bilen bir arkadaşım varsa yardımcı olabilirmi acaba?

 

[ipkins]

Private Sub TextBox1_Change()
TextBox2 = TextBox1

End Sub

 

[Orion1]

merhabalar veri girşi yaptığım bir userformum var diyelimki textbox1 e "depo"
yazdığımda textbox2 de "depo" , başka biey yazdığımda "direk" yazsın? bunun kodunu bilen bir arkadaşım varsa yardımcı olabilirmi acaba?

Aşağıdaki kodlar işinizi görürü.

Private Sub TextBox1_Change()
If TextBox1.Value = "depo" Then
    TextBox2.Value = "depo"
    Else
    TextBox2.Value = "direk"
End If
End Sub

 

[hurkanpisirici]

arkadaşlar çok teşekkür edeirm sağolun deniyeceğim hemen

 

[hurkanpisirici]

sayın evren bey istediğim gibi olmuş ama textboxu sildiğim zaman orda yazan veri silinmiyor.diyelimki ilk önce veri girdim daha sonra vazgeçtim o veriyi boş geçmek istedim, sildiğim zaman text2 aynen kalıyor?

 

[Orion1]

sayın evren bey istediğim gibi olmuş ama textboxu sildiğim zaman orda yazan veri silinmiyor.diyelimki ilk önce veri girdim daha sonra vazgeçtim o veriyi boş geçmek istedim, sildiğim zaman text2 aynen kalıyor?

Aşağıdaki gibi deneyiniz.

Private Sub TextBox1_Change()
If textbox1.value = "" then
    textbox2.value = ""
    elseif TextBox1.Value = "depo" Then
    TextBox2.Value = "depo"
    Else
    TextBox2.Value = "direk"
End If
End Sub

 

[hurkanpisirici]

evren bey çok teşekkür ederim kolaygelsin

 

[hurkanpisirici]

texbox veri girişi ile ilgili

mergaba bir userformum var ve iki textbox ım ben textbox1 e
kutuprofil,çç.,siyahboru,sanayiborusu,yada galvanizli boru yazdığımda textbox2 de "m" yazsın bunun haricinde başka malzeme girersem "kg" yazsın istiyorum kodunu bilen arkadaşım yardımcı olabilirmi acaba.

 

[hurkanpisirici]

yardımcı olan bi arkadaş yokmu?

 

[Orion1]

evren bey çok teşekkür ederim kolaygelsin

Rica ederim.
İyi çalışmalar.

 

[hurkanpisirici]

sayın evren bey bir userformum var ve iki textbox ım ben textbox1 e
kutuprofil,çç.,siyahboru,sanayiborusu,yada galvanizli boru yazdığımda textbox2 de "m" yazsın bunun haricinde başka malzeme girersem "kg" yazsın istiyorum.
bunada bir çözü üretirseniz çok sevinicem sabrınıza teşekkür ederim

 

[Orion1]

sayın evren bey bir userformum var ve iki textbox ım ben textbox1 e
kutuprofil,çç.,siyahboru,sanayiborusu,yada galvanizli boru yazdığımda textbox2 de "m" yazsın bunun haricinde başka malzeme girersem "kg" yazsın istiyorum.
bunada bir çözü üretirseniz çok sevinicem sabrınıza teşekkür ederim

Aşağıdaki kodlar işiniz görür.

Private Sub TextBox1_Change()
If TextBox1.Value = "" Then
    TextBox2.Value = ""
    ElseIf TextBox1.Value = "kutuprofil" Or TextBox1.Value = "siyahboru" _
    Or TextBox1.Value = "sanayiborusu" Or TextBox1.Value = "galvanizli boru" _
    Or TextBox1.Value = "çç." Then
        TextBox2.Value = "m"
        Else: TextBox2.Value = "kg"
End If
End Sub

 

[hurkanpisirici]

evren bey ne diyimki teşekkür duymaktan yoruldunuzellerinize sağlık

 

[ECYavuz]

Bir başka konuda sorduğunuz aynı soruya Sayın Evren cevap vermiş ama sanırım görmediniz.
İyi çalışmalar...

Private Sub TextBox1_Change()
If TextBox1.Value = "" Then
TextBox2.Value = ""
ElseIf TextBox1.Value = "kutuprofil" Or TextBox1.Value = "siyahboru" _
Or TextBox1.Value = "sanayiborusu" Or TextBox1.Value = "galvanizli boru" _
Or TextBox1.Value = "çç." Then
TextBox2.Value = "m"
Else: TextBox2.Value = "kg"
End If
End Sub

 

[Orion1]

evren bey ne diyimki teşekkür duymaktan yoruldunuzellerinize sağlık

Rica ederim.
İyi çalışmalar.

 

[hurkanpisirici]

Bir başka konuda sorduğunuz aynı soruya Sayın Evren cevap vermiş ama sanırım görmediniz.
İyi çalışmalar...

Private Sub TextBox1_Change()
If TextBox1.Value = "" Then
TextBox2.Value = ""
ElseIf TextBox1.Value = "kutuprofil" Or TextBox1.Value = "siyahboru" _
Or TextBox1.Value = "sanayiborusu" Or TextBox1.Value = "galvanizli boru" _
Or TextBox1.Value = "çç." Then
TextBox2.Value = "m"
Else: TextBox2.Value = "kg"
End If
End Sub

gördüm ve teşekkür ettim öle cevabı görmezmi insan