Private Sub Workbook_Open()
Dim db As database
Dim Rs As Recordset
Dim Dokument As Document
Dim Vork As Worksheet
Dim Putanja As String
Dim I As Integer, N As Integer, M As Integer, J As Integer, BrojMagacina As Integer
Dim Podatak, SifraMagacina() As String, SifraArt As String, SQL As String


Putanja = Me.Path
SQL = "SELECT tskladiste.sif_pj " _
       & "FROM tskladiste " _
       & "GROUP BY tskladiste.sif_pj " _
       & "ORDER BY tskladiste.sif_pj"
Set Vork = Me.Worksheets("Evidencija")
Vork.Cells(7, 1) = "Artikal"
Set db = OpenDatabase(Putanja & "\primjer.mdb")
Set Rs = db.OpenRecordset(SQL)
N = Rs.RecordCount
ReDim SifraMagacina(1 To N) As String
For I = 1 To N
SifraMagacina(I) = Rs.Fields(0)
Next I


For I = 1 To N * 4 Step 4
Vork.Cells(7, I + 1) = "Cijena"
Vork.Cells(7, I + 2) = "Ulaz"
Vork.Cells(7, I + 3) = "Izlaz"
Vork.Cells(7, I + 4) = "Stanje"
If I = 1 Then
Vork.Cells(6, I) = "'" & Rs.Fields(0)
Vork.Cells(3, I + 1) = "Krinus veleprodaja"
Else
Vork.Cells(6, I + 1) = "'" & Rs.Fields(0)
Vork.Cells(3, I + 1) = "Krinus Prodavnica " & Val(Rs.Fields(0)) - 1
End If
Rs.MoveNext
Next I
Rs.Close
SQL = "SELECT tskladiste.Sifart " _
      & "FROM tskladiste " _
      & "GROUP BY tskladiste.Sifart"
Set Rs = db.OpenRecordset(SQL)
N = Rs.RecordCount
For I = 8 To N + 7
Vork.Cells(I, 1) = "'" & Rs.Fields(0)
Rs.MoveNext
Next I
Rs.Close
For I = 1 To N
SifraArt = Vork.Cells(I + 7, 1)
SQL = "SELECT * FROM QIzlaz_Exel WHERE Sifart='" & SifraArt & "'"
Set Rs = db.OpenRecordset(SQL)
M = Rs.RecordCount
If M > 5 Then
MsgBox "Sranje"
End If
    For J = 1 To M
    BrojMagacina = (Val(Rs!sif_pj) - 1) * 4
    Podatak = Rs.Fields(1)
    Vork.Cells(I + 7, BrojMagacina + 2) = Podatak
    Podatak = Rs.Fields(2)
    Vork.Cells(I + 7, BrojMagacina + 3) = Podatak
    Podatak = Rs.Fields(3)
    Vork.Cells(I + 7, BrojMagacina + 4) = Podatak
    Podatak = Rs.Fields(4)
    Vork.Cells(I + 7, BrojMagacina + 5) = Podatak
    Rs.MoveNext
    Next J
Next I
End Sub