Nisam iskusan sa ovim, ali valjda moze da pomogne
Code:
Sub pokusaj()
Dim Podatak As String
Dim Lokacija As String
Dim p As String
Dim i As Integer
Dim broj As Integer
Windows("podaci.xlsm").Activate 'ime radne sveske u kojoj su smesteni podaci
broj = Sheets.Count
Podatak = InputBox("Uneti adresu celija koju treba uzeti sz svakog sheet-a:")
Lokacija = InputBox("Uneti adresu ispisa:")
For i = 1 To broj
Windows("podaci.xlsm").Activate
Sheets(i).Activate
p = Range(Podatak).Value
Windows("ispis.xlsm").Activate ' unesi ime radne sveske u koju zelis da preneses podatke
Sheets("Sheet1").Activate ' unesi ime sheet-a
Range(Lokacija).Offset(i - 1, 0) = p
Next i
End Sub
Evo prilazem i 2 fajla, ispis.xlsm u kom se i nalazi dugme za pokretanje makroa, i podaci.xlsm fajl u kome sam uneo neke nasumicne podatke na sheet-ovim 001,002, 0004 itd. kako sam razumeo da i jesu numerisani sa preskocima.
oba workbook-a moraju biti otvorena da bi ovo radilo.
VICTORIA CONCORDIA CRESCIT