Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

Automatsko kopiranje iz vise sheet-ova u jedan sheet

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 5 odgovora
  • 3.192 pregleda

Najnovija ↓

Automatsko kopiranje iz vise sheet-ova u jedan sheet 01.11.2015. u 14:56 · pre 133 meseca #1
Molim za pomoc.
Hteo bih da koiram neke podatke iz vise sheet-ova u jedan sheet.
Primer: radni SHEET1, u njega hocu da kopiram podatke iz SHEET2 i to celiju A1, SHEET3 celiju A1, SHEET4 celiju A1... SHEET129 celijaA1.
Kako da u SHEET1 uradim da ne moram rucno da upisujem u A1 =SHEET1,A1, pa u A2 =SHEET2,A1.
Da li postoji automatizam za to?
Re: Automatsko kopiranje iz vise sheet-ova u jedan sheet 01.11.2015. u 19:37 · pre 133 meseca #2
Mozes jednostavno odraditi pomocu macroa.

Code:

Private Sub CommandButton1_Click()
For i = 1 To 128
Sheets("Sheet1").Cells(i, 1).Value = Sheets("Sheet" & i + 1).Cells(1, 1).Value
Next i
End Sub
Re: Automatsko kopiranje iz vise sheet-ova u jedan sheet 02.11.2015. u 12:40 · pre 133 meseca #4
Code:

Sub Button1_Click()
For i = 1 To 8
Sheets("UK").Cells(i, 1).Value = Sheets("Sheet" & i ).Cells(10, 1).Value
Next i
End Sub


Kratko pojasnje da mozes poslije da prilagodjavas

For i = 1 To 9
petlja koja ide od prvog do zadnjeg sheet-a, zavisno kolko ih imas

Sheets("UK").Cells(i, 1).Value
sheet u kojos se smjestaju rezultati u koloni A


Cells(10, 1) = A10, npr. B9=Cells(9, 2)
maj operativni2003.xls365k
Re: Automatsko kopiranje iz vise sheet-ova u jedan sheet 02.11.2015. u 14:55 · pre 133 meseca #6
O radu sa makroima imaš posebnu temu: http://www.elitesecurity.org/t222802-Office-Rad-sa-makroima

Rešenje bez makroa podrazumeva korišćenje funkcije INDIRECT. Npr ako u sumarnom listu u kolonu A uneseš nazive listova sa koga se uzivaju vrednosti
INDIRECT( A1 & "!A10") vratiće vrednost ćelije A10 iz Sheet1, pa kopiraš formulu nadole za ostale listove.

Pogledaj list sumarni u prilogu


Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
maj operativni2003.xls333k
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme