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

Private Sub UserForm_Initialize()
Dim wbk As Workbook
Dim wsh As Worksheet
Dim i As Long
Dim sciezka1 As String


sciezka1 = Application.Workbooks("faktura.xls").Path

 Set wbk = Workbooks.Open(sciezka1 & "\sprzedajacy.xls")
 

Set wsh = wbk.Worksheets("sprzedajacy")

i = 2
Do While wsh.Range("A" & i) <> ""
    UserForm1.ComboBox14.AddItem wsh.Range("A" & i)
    i = i + 1
Loop
wbk.Close SaveChanges:=False

Set wsh = Nothing
Set wbk = Nothing

End Sub