[ gledanost @ 02.04.2012. 19:10 ] @
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.
[ rudy_kv @ 02.04.2012. 23:18 ] @
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.
[ gledanost @ 20.06.2012. 09:30 ] @
Sa velikim zakasnjenjem HVALA PUNOOO.