[es] - kopiranje iz niza tabela u jednu ispod druge

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
95.180.7.*

+2 Profil

kopiranje iz niza tabela u jednu ispod druge

^{25.02.2016. u 13:06 - pre 99 meseci}

Imam 5 tabela u nizu, da li je moguce tih 5 tabela kopirati jednu ispod?
u prilogu primer I u zutom ospegu ocekivani rezultat.

Prikačeni fajlovi

primer111.xls - 29k

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
95.180.7.*

+2 Profil

Re: kopiranje iz niza tabela u jednu ispod druge

^{26.02.2016. u 23:24 - pre 99 meseci}

https://support.microsoft.com/...CSignIn=true&wa=wsignin1.0

ovde je primer iz kolone u redove, koju bi formulu upotrebiti za obrnuto?

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: kopiranje iz niza tabela u jednu ispod druge

^{27.02.2016. u 07:29 - pre 99 meseci}

Probaj ovaj VBA autora Bernie Deitrick

Code:
Sub TestMacro()
Dim i As Integer
Dim col As Integer
col = InputBox("How many columns per group?")
For i = 1 + col To ActiveSheet.UsedRange.Columns.Count Step col
Intersect(ActiveSheet.UsedRange, Columns(i).Resize(, col)).Cut _
Cells(Rows.Count, 1).End(xlUp)(2)
Next i
End Sub

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
*.dynamic.isp.telekom.rs.

+2 Profil

Re: kopiranje iz niza tabela u jednu ispod druge

^{04.06.2016. u 11:12 - pre 95 meseci}

Kako zameniti ovaj macro i da uradi obrnuto iz redova u kolone, rows to columns?

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
95.180.110.*

+2 Profil

Re: kopiranje iz niza tabela u jednu ispod druge

^{08.06.2016. u 11:49 - pre 95 meseci}

=OFFSET($A$1,(ROW()-1)*4+INT((COLUMN()-3)),MOD(COLUMN()-3,1))

probao sam ali uvek mi vraca transpose a meni treba jedno pored drugo
aaa bbb ccc
ddd eee fff
hhh xxx vvv
111 222 333
444 555 666
777 888 999
1e2 2e3 3e3
2e2 3e3 4e4
5e56e67e7

da ide ovako

aaa bbb ccc 111 222 333 1e2 2e3 3e3
ddd eee fff 444 555 666 2e2 3e3 4e3
hhh xxx vvv 777 888 999 5e56e67e7

ili macro koji sam pokusavao da uredim da obrnem umesto row, column ali nece?

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
89.216.49.*

Sajt: www.gowi.rs

+109 Profil

Re: kopiranje iz niza tabela u jednu ispod druge

^{09.06.2016. u 10:43 - pre 95 meseci}

Makro koji je Ivek dao radi tačno to što si tražio u prvom postu.

Makro koji bi radio inverzno - od vertikalnog oblika tabele da dobiješ horizontalni:

Code:

Sub SplitByRows()
    ' Prebacuje postojecu tabelu m x n
    ' U novu tabelu row x ( n x m/row)
    ' Startuje se kad je aktivna celija unutar postojece tabele
    Dim i As Integer
    Dim row As Integer
    ' Uslov za secenje postojece tabele (step za petlju - row)
    row = InputBox("How many rows per group?")
    ' Premestanje blok po blok u petlji
    For i = 1 + row To ActiveSheet.UsedRange.Rows.Count Step row
    ' Pomocu Intersect se formira opseg za premestanje
    ' Odrediste je prvi red, poslednja popunjena kolona + 1
        Intersect(ActiveSheet.UsedRange, Rows(i).Resize(row)).Cut _
                Cells(1, 1).End(xlToRight)(1, 2)
    Next i
End Sub

U prilogu na listu test možeš da se igraš -
SplitByColumn dobiješ od horizontalnog vertikalni oblik pa onda
SplitByRow dobiješ od vertiklanog (početni) horizontalni oblik itd

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Prikačeni fajlovi

primer111.xls - 48.5k

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
95.180.110.*

+2 Profil

Re: kopiranje iz niza tabela u jednu ispod druge

^{10.06.2016. u 14:46 - pre 95 meseci}

To je to, hvala Jpeca. Nisam ranije odgovarao net mi nije bio u funkciji.
Imao bih jos dva pitanja u vezi macroa, ali ne znam da li je za ovu temu?
1. kako kad ima dva macroa pokrenuti jedan ili drugi,
2. kad hocu da izvrsim neku operaciju tipa kopiraj rang A1:B10 iz svih sheet-ova u sheet master pocevsi od A1, treba da bi bude aktivna celija A1 u master sheet-u?
Hvala.

Odgovor na temu