[es] - Uzimanje podataka iz vise listova jedne knjige i vracanje u drugu knjigu

gledanost

Član broj: 248525
Poruke: 19
...148.91.adsl.dyn.beotel.net.

Profil

Uzimanje podataka iz vise listova jedne knjige i vracanje u drugu knjigu

^{02.04.2012. u 19:10 - pre 146 meseci}

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.

Odgovor na temu

rudy_kv
Dejan Rudnjanin
Nastavnik grupe geodetskih predmeta
MTŠ "14. oktobar"
Kraljevo

Član broj: 245118
Poruke: 93
*.3gnet.mts.telekom.rs.

+5 Profil

Re: Uzimanje podataka iz vise listova jedne knjige i vracanje u drugu knjigu

^{02.04.2012. u 23:18 - pre 146 meseci}

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

Prikačeni fajlovi

ispis.xlsm - 16.89k

podaci.xlsm - 12.51k

Odgovor na temu

gledanost

Član broj: 248525
Poruke: 19
*.dynamic.isp.telekom.rs.

Profil

Re: Uzimanje podataka iz vise listova jedne knjige i vracanje u drugu knjigu

^{20.06.2012. u 09:30 - pre 143 meseci}

Sa velikim zakasnjenjem HVALA PUNOOO.

Odgovor na temu