giá trị tương ứng trong combobox (1 người xem)

[jthanhtung]

Có 2 combobox là mã Hàng và tên hàng, tôi dùng rowsource đặt tên cho 2 combobox này, tôi muốn khi đánh vào combobox MÃ HÀNG thì combobox TÊN HÀNG tìm giá trị tường ứng hiện theo và ngược lại, anh chị giúp tôi với, tôi cảm ơn.

 

[jthanhtung]

có anh chị nào giúp tôi tí

 

[mickeybh]

Mình làm giúp vế 1 thôi, vế 2 thì mình không làm được theo kiểu add rowsource.

 

[Hamedanger]

Bạn Đổi tên 2 combobox thành txtmahang và txttenhang cho dễ quản lý

Xoá hết 2 cái rowsource đi , nhúng cái này vào userform

Private Sub UserForm_Initialize()TXTMAHANG.List = Sheet1.Range("A2:A" & Sheet1.Range("A65536").End(3).Row).Value
TXTTENHANG.List = Sheet1.Range("B2:B" & Sheet1.Range("B65536").End(3).Row).Value
End Sub

Private Sub TXTMAHANG_Change()Dim sRng As Range
Set sRng = Sheet1.Range("A2:A" & Sheet1.Range("A65536").End(3).Row).Find(TXTMAHANG.Value, , xlFormulas, xlWhole)
If TXTMAHANG.Value <> "" Then
TXTTENHANG.Value = sRng.Offset(, 1).Value
End If
Set sRng = Nothing
End Sub

Private Sub TXTTENHANG_Change()Dim sRng As Range
Set sRng = Sheet1.Range("B2:B" & Sheet1.Range("B65536").End(3).Row).Find(TXTTENHANG.Value, , xlFormulas, xlWhole)
If TXTTENHANG.Value <> "" Then
TXTMAHANG.Value = sRng.Offset(, -1).Value
End If
Set sRng = Nothing
End Sub

Xem đúng ý bạn chưa

 

[Hau151978]

Trong 2 combobox1 và 2, bạn để code này vào thủ tục sự kiện Change:

Trong Combobox1
Sub combobox1_change()
combobox2.listindex=combobox1.listindex
End sub

Combobox2 ngược lại.

 

[jthanhtung]

cám ơn bạn, đúng rồi

 

[jthanhtung]

sẵn đây cho tôi hỏi anh chị giúp tôi xíu, tôi có 2 textbox1 và textbox2 nếu textbox1 lớn hơn 2000 thì textbox2 hiện lên YES, còn nhỏ hơn 2000 thì hiện textbox2 = NO tôi làm thế này mà không chạy, nhìn giúp em tí, tôi cảm ơn nhiều

Private Sub txtPeak_Change()
If txtCbm.Value <> "" Then
txtPeak = "NO"
Else
If txtCbm.Value > 2000 Then
txtPeak = "YES"
End If
End Sub