Snasui Excel Forum

Code: Select all

Sub LoadCmb()
Dim sdsheet As Worksheet

Set sdsheet = ThisWorkbook.Sheets("SORT db")

If sdsheet.Cells(Rows.Count, 1) .End(xlUp) .Row = 1 Then

    sdLR = 2
Else
    sdLR = sdsheet.Cells(Rows.Count, 1).End(xlUp).Row
End If

For x = 2 To sdLR
  HideForm.CmbEmp.AddItem sdsheet.Cells(x, 1) & " - " & sdsheet.Cells(x, 2)
Next x

End Sub

Code: Select all

Sub LoadCmb()
Dim Rall As Range
  Dim r As Range
  With Sheets("SORT db")
    Set Rall = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
  End With
  For Each r In Rall
    HideForm.CmbEmp.AddItem r
  Next r

End Sub

Code: Select all

Private Sub btnCancle_Click()
    HideForm.Hide
End Sub

Private Sub obEmpID_Change()
        Call LoadCmb
End Sub
Private Sub obname_Change()
        Call LoadCmb
End Sub

Code: Select all

Sub LoadCmb()
    Dim Rall As Range
    Dim r As Range
    Dim r1 As Range
    If HideForm.obEmpID = True Then
        HideForm.obname = False
        With Sheets("SORT db")
            Set Rall = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
        End With
        For Each r In Rall
            HideForm.CmbEmp.AddItem r
        Next r
    Else
        HideForm.obEmpID = False
        With Sheets("SORT db")
            Set Rall = .Range("B2", .Range("B" & Rows.Count).End(xlUp))
        End With
        For Each r1 In Rall
            HideForm.CmbEmp.AddItem r1
        Next r1
    End If
End Sub