Combobox seçime göre textbox veriyi label yazdırma

[netvolxxx]

Merhaba userfom userinde combobox ta gelen veriler sağ-sol-alt-üst

textbox ta ki veriyi örnek metal 1mm boyalı yazıyor

combobox üzerinde sağ seçtim

label1 metal 1mm boyalı yazıcak

combobox üzerinde alt seçtim
label4 e metal 1mm boyalı yazıcak

4 tane label var combox seçime göre textbox yazan neyse onu label nasıl aktarabilirim..
bi türlü ilişkisini kuramadım nasıl olcak ustadların yardımlarınıza ihtiyacım var....

 

[Muzaffer Ali]

Merhaba

Bir buton ekleyin buton kodları aşağıda.

Private Sub CommandButton1_Click()
    Select Case ComboBox1.Text
        Case "Alt"
            Label4.Caption = TextBox1.Text
        Case "Üst"
            Label1.Caption = TextBox1.Text
        Case "Sağ"
            Label2.Caption = TextBox1.Text
        Case "Sol"
            Label3.Caption = TextBox1.Text
    End Select
End Sub

 

[netvolxxx]

Merhaba

Bir buton ekleyin buton kodları aşağıda.

Private Sub CommandButton1_Click()
    Select Case ComboBox1.Text
        Case "Alt"
            Label4.Caption = TextBox1.Text
        Case "Üst"
            Label1.Caption = TextBox1.Text
        Case "Sağ"
            Label2.Caption = TextBox1.Text
        Case "Sol"
            Label3.Caption = TextBox1.Text
    End Select
End Sub

istediğim buydu ustad teşekürr ederim sağol...

 

[Korhan Ayhan]

Yazım hatası yapmadıysam bu da olabilir...

Private Sub CommandButton1_Click()
    Me.Controls("Label" & WorksheetFunction.Lookup(ComboBox1.Text, {"Alt","Sağ","Sol","Üst"}, {4,2,3,1})) = TextBox1.Text
End Sub

Ya da;

Private Sub CommandButton1_Click()  
    Me.Controls("Label" & Application.Match(ComboBox1.Text, Array("Üst", "Sağ", "Sol", "Alt"), 0)).Caption = TextBox1.Text
End Sub

 

[netvolxxx]

Yazım hatası yapmadıysam bu da olabilir...

Private Sub CommandButton1_Click()
    Me.Controls("Label" & WorksheetFunction.Lookup(ComboBox1.Text, {"Alt","Sağ","Sol","Üst"}, {4,2,3,1})) = TextBox1.Text
End Sub

Ya da;

Private Sub CommandButton1_Click() 
    Me.Controls("Label" & Application.Match(ComboBox1.Text, Array("Üst", "Sağ", "Sol", "Alt"), 0)).Caption = TextBox1.Text
End Sub

teşekürrr ederim Korhan hocam cevap için sağolun... yukardaki de işimi görmüştü allah razı olsun...