Pretpostavljam da je ovo lako za one koji znaju, ali meni je jako hitno i nemam vremena da trazim po forumu i zbog toga se izvinjavam ako dupliram temu. Naime imam svesku sa 340 listova cija su imena sifre na primer 0001, 0002 i tako dalje ali nije pravilan niz ima preskoka. Treba mi funkcija ili makro koji bi uzeo neki podatak iz te sveske iz jedne celije ali iz svih listova i vratio ih u kolonu u drugoj svesci. Listu imena listova imam kao kolonu u toj drugoj svesci ako je potrebna. Do sad sam koristio funkciju =INDIRECT(A7&"!D13) gde je A7 celija u kojoj se nalazi ime lista, a D13 celija iz koje zelim podatak. Sad imam problem jer je sveska zasticena i ne mogu ubaciti novi list i primeniti ovu formulu nego moram iz druge sveske. Ako neko ima bilo kakvo resenje bio bih vise nego zahvalan.
Uzimanje podataka iz vise listova jedne knjige i vracanje u drugu knjigu
Zaključano
Zakačeno
Nisam iskusan sa ovim, ali valjda moze da pomogne
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.
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
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.
Potpis
VICTORIA CONCORDIA CRESCIT
Sa velikim zakasnjenjem HVALA PUNOOO.