dzieki za odpowiedz, poradzil mi Maciej Los inny sposob za co bardzo mu dziekuje :
Private Sub UserForm_Initialize()
Dim wbk As Workbook
Dim wsh As Worksheet
Dim wbk2 As Workbook
Dim wsh2 As Worksheet
Dim i As Long
Dim j As Long
Dim sciezka1 As String
Dim sciezka2 As String
sciezka1 = ThisWorkbook.Path & "\sprzedajacy.xls"
sciezka2 = ThisWorkbook.Path & "\nabywcy.xls"
Set wbk = Workbooks.Open(sciezka1)
Set wbk2 = Workbooks.Open(sciezka2)
Set wsh = wbk.Worksheets("sprzedajacy")
Set wsh2 = wbk2.Worksheets("nabywcy")
j = 2
Do While wsh2.Range("A" & j) <> ""
Me.ComboBox15.AddItem ""
Me.ComboBox15.Column(0, Me.ComboBox15.ListCount - 1) = wsh2.Range("A" & j)
Me.ComboBox15.Column(1, Me.ComboBox15.ListCount - 1) = wsh2.Range("B" & j)
Me.ComboBox15.Column(2, Me.ComboBox15.ListCount - 1) = wsh2.Range("C" & j)
j = j + 1
Loop
Me.ComboBox15.ListIndex = 0
Me.lblnazwaodb.Caption = Me.ComboBox15.Column(0, Me.ComboBox15.ListIndex)
Me.lbladresodb.Caption = Me.ComboBox15.Column(1, Me.ComboBox15.ListIndex)
Me.lblnipodb.Caption = Me.ComboBox15.Column(2, Me.ComboBox15.ListIndex)
wbk2.Close SaveChanges:=False
Set wsh2 = Nothing
Set wbk2 = Nothing
i = 2
Do While wsh.Range("A" & i) <> ""
Me.ComboBox14.AddItem ""
Me.ComboBox14.Column(0, Me.ComboBox14.ListCount - 1) = wsh.Range("A" & i)
Me.ComboBox14.Column(1, Me.ComboBox14.ListCount - 1) = wsh.Range("B" & i)
Me.ComboBox14.Column(2, Me.ComboBox14.ListCount - 1) = wsh.Range("C" & i)
i = i + 1
Loop
Me.ComboBox14.ListIndex = 0
Me.lblnazwa.Caption = Me.ComboBox14.Column(0, Me.ComboBox14.ListIndex)
Me.lbladres.Caption = Me.ComboBox14.Column(1, Me.ComboBox14.ListIndex)
Me.lblnip.Caption = Me.ComboBox14.Column(2, Me.ComboBox14.ListIndex)
wbk.Close SaveChanges:=False
Set wsh = Nothing
Set wbk = Nothing
End Sub
Private Sub ComboBox14_Change()
Me.lblnazwa.Caption = Me.ComboBox14.Column(0, Me.ComboBox14.ListIndex)
Me.lbladres.Caption = Me.ComboBox14.Column(1, Me.ComboBox14.ListIndex)
Me.lblnip.Caption = Me.ComboBox14.Column(2, Me.ComboBox14.ListIndex)
End Sub
Private Sub ComboBox15_Change()
Me.lblnazwaodb.Caption = Me.ComboBox15.Column(0, Me.ComboBox15.ListIndex)
Me.lbladresodb.Caption = Me.ComboBox15.Column(1, Me.ComboBox15.ListIndex)
Me.lblnipodb.Caption = Me.ComboBox15.Column(2, Me.ComboBox15.ListIndex)
End Sub |