kopiranje iz niza tabela u jednu ispod druge

[ vojvoda1010 @ 25.02.2016. 13:06 ] @

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

[ vojvoda1010 @ 26.02.2016. 23:24 ] @

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

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

[ Ivek33 @ 27.02.2016. 07:29 ] @

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

[ vojvoda1010 @ 04.06.2016. 11:12 ] @

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

[ vojvoda1010 @ 08.06.2016. 11:49 ] @

=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?

[ Jpeca @ 09.06.2016. 10:43 ] @

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

[ vojvoda1010 @ 10.06.2016. 14:46 ] @

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.