Zdravo,
Nekak cel dan tuhtam, počasi moram prositi za pomoč:
imam podatke v samo enem stolpcu, torej prvem. Naprimer:
A1
Ime 1
Priimek 2
Naslov 3
Telefon 4
Ime 7
Priimek 8
Naslov 9
Telefon 10
Potem sta dve vrstici prazni in se vpis ponovi. Vpisov je toliko da pridem do polja 51000, torej enormno. Rad bi ustvaril preprosto macro funkcijo, ki bi spremenila zapis, oziroma le tega kopirala takole:
A1,B1,C1,D1
1,2,3,4
7,8,9,10
....
Pri tem bi rad da upošteva dva vmesna prazna polja in da kopira vpise enega pod drugega, torej da malo skrčim teh 50000 polj v globino. Tega nikakor ne znam, znam naredit makro ki na ukaz to naredi za prvi vpis, da bi pa šel avtomatsko na naslednjega pa ne.
Kakšna ideja?
Hvala
Pomoč transpose kopiranje
Re: Pomoč transpose kopiranje
Pozdravljeni,
Za kaj takšnega ne potrebujete makra... Dovolj bo že malce osnovnošolske matematike. Torej vi imate vse vpise v eni koloni in vsak vpis se nahaja v svoji vrstici, kjer se lepo vidi, da ima pravzaprav svojo zaporedno številko.
Vsak zapis zasede 7 vrstic, kar pomeni, da se recimo 35-ta oseba začne na 7 * (35 - 1) + 1 mestu oz. v vrstici 239. Postavite se torej na list 2 in v celico A1 vnesite sledečo formulo:
Sedaj pa to formulo samo povlecite še do vrstice 7... in potem jo vlecite preko vseh kolon in v vsaki koloni se bo izpisala nova oseba ![Wink ;)](./images/smilies/icon_wink.gif)
Za kaj takšnega ne potrebujete makra... Dovolj bo že malce osnovnošolske matematike. Torej vi imate vse vpise v eni koloni in vsak vpis se nahaja v svoji vrstici, kjer se lepo vidi, da ima pravzaprav svojo zaporedno številko.
Vsak zapis zasede 7 vrstic, kar pomeni, da se recimo 35-ta oseba začne na 7 * (35 - 1) + 1 mestu oz. v vrstici 239. Postavite se torej na list 2 in v celico A1 vnesite sledečo formulo:
Koda: Izberi vse
=OFFSET(List1!$A$1;7*(COLUMN()-1)+ROW()-1;0)
![Wink ;)](./images/smilies/icon_wink.gif)
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Pomoč transpose kopiranje
Ne vem če sva se popolnoma razumela, ni dovolj da jih samo preuredi v stolpce, rad bi te stolpce tudi urejal, sortiral od a do Z recimo, različni filtri, itd... kar ne morem če je v polju formula.
Bom dal konkreten primer:
PIPELIFE SLOVENIJA D.O.O.
Ljubljanska cesta 52 A, Trzin
1236 Trzin
01 530 22 20
CT MASTERTECH D.O.O.
Trnoveljska cesta 24, Trnovlje pri Celju
3000 Celje
03 428 50 40
DOM TRADE D.O.O., ŽABNICA PRODAJNI CENTER KRANJ
Ulica Mirka Vadnova 2, Kranj
4000 Kranj
04 201 00 02
DOM TRADE D.O.O., ŽABNICA PRODAJNI CENTER LESCE
Alpska cesta 43, Lesce
4248 Lesce
04 530 22 30
ESAL D.O.O.
Anhovo 9, Anhovo
5210 Deskle
05 392 15 72
To bi rad imel v taki obliki (sicer podatki niso isti, za idejo bo):
VRTANJE, REZANJE IN BRUŠENJE BETONA, ALEN KUDUZOVIĆ S.P. Jenkova cesta 1, Velenje 3320 Velenje 031 601 333
CM CELJE, D.D. PODROČJE ASFALTA IN KAMNOLOM Velika Pirešica 51, Velika Pirešica 3310 Žalec 03 713 37 12
PODGRAJŠEK BRANKO S.P. Cesta na Roglo 5 A, Zreče 3214 Zreče 03 752 09 36
LAFARGE CEMENT D.O.O. Kolodvorska cesta 5, Trbovlje 1420 Trbovlje 03 565 23 00
KOCH SINIŠA S.P. Log 15 A, Hrastnik 1430 Hrastnik 041 282 549
Bom dal konkreten primer:
PIPELIFE SLOVENIJA D.O.O.
Ljubljanska cesta 52 A, Trzin
1236 Trzin
01 530 22 20
CT MASTERTECH D.O.O.
Trnoveljska cesta 24, Trnovlje pri Celju
3000 Celje
03 428 50 40
DOM TRADE D.O.O., ŽABNICA PRODAJNI CENTER KRANJ
Ulica Mirka Vadnova 2, Kranj
4000 Kranj
04 201 00 02
DOM TRADE D.O.O., ŽABNICA PRODAJNI CENTER LESCE
Alpska cesta 43, Lesce
4248 Lesce
04 530 22 30
ESAL D.O.O.
Anhovo 9, Anhovo
5210 Deskle
05 392 15 72
To bi rad imel v taki obliki (sicer podatki niso isti, za idejo bo):
VRTANJE, REZANJE IN BRUŠENJE BETONA, ALEN KUDUZOVIĆ S.P. Jenkova cesta 1, Velenje 3320 Velenje 031 601 333
CM CELJE, D.D. PODROČJE ASFALTA IN KAMNOLOM Velika Pirešica 51, Velika Pirešica 3310 Žalec 03 713 37 12
PODGRAJŠEK BRANKO S.P. Cesta na Roglo 5 A, Zreče 3214 Zreče 03 752 09 36
LAFARGE CEMENT D.O.O. Kolodvorska cesta 5, Trbovlje 1420 Trbovlje 03 565 23 00
KOCH SINIŠA S.P. Log 15 A, Hrastnik 1430 Hrastnik 041 282 549
Re: Pomoč transpose kopiranje
![Smile :)](./images/smilies/icon_smile.gif)
Samo sedaj vidim, da bi vi želeli podatke v vrsticah in ne kolonah, zato se formula samo malce spremeni:
Koda: Izberi vse
=OFFSET(List1!$A$1;7*(ROW()-1)+COLUMN()-1;0)
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Pomoč transpose kopiranje
Niti ne gre, tole dobim, razen prve vrstice je vse napačno:
PIPELIFE SLOVENIJA D.O.O. Ljubljanska cesta 52 A, Trzin 1236 Trzin 01 530 22 20 0
Trnoveljska cesta 24, Trnovlje pri Celju 3000 Celje 03 428 50 40 0 0
4000 Kranj 04 201 00 02 0 0 DOM TRADE D.O.O., ŽABNICA PRODAJNI CENTER LESCE
04 530 22 30 0 0 ESAL D.O.O. Anhovo 9, Anhovo
0 0 CALCIT D.O.O. Stahovica 15, Stahovica 1242 Stahovica
MERXGRAD D.O.O. Polje 351 B, Ljubljana 1260 Ljubljana - Polje 01 549 12 70
VELUX SLOVENIJA D.O.O. Ljubljanska cesta 51 A, Trzin 1236 Trzin 01 724 68 68 0
Na klancu 5, Vuzenica 2367 Vuzenica 02 876 43 63 0
3312 Prebold 03 700 13 10 0 ELKI D.O.O.
03 759 26 30 0 0 DOKA SLOVENIJA OPAŽNA TEHNOLOGIJA D.O.O. Spodnji Plavž 14 D, Jesenice
0 MIX, PODJETJE ZA TRGOVINO Z GRADBENIM IN INSTALACIJSKIM MATERIALOM IN PREVOZNE STORITVE D.O.O. Stegne 15, Ljubljana 1000 Ljubljana
RHEINZINK Ulica bratov Babnik 10, Ljubljana 1000 Ljubljana 01 510 10 86
PIPELIFE SLOVENIJA D.O.O. Ljubljanska cesta 52 A, Trzin 1236 Trzin 01 530 22 20 0
Trnoveljska cesta 24, Trnovlje pri Celju 3000 Celje 03 428 50 40 0 0
4000 Kranj 04 201 00 02 0 0 DOM TRADE D.O.O., ŽABNICA PRODAJNI CENTER LESCE
04 530 22 30 0 0 ESAL D.O.O. Anhovo 9, Anhovo
0 0 CALCIT D.O.O. Stahovica 15, Stahovica 1242 Stahovica
MERXGRAD D.O.O. Polje 351 B, Ljubljana 1260 Ljubljana - Polje 01 549 12 70
VELUX SLOVENIJA D.O.O. Ljubljanska cesta 51 A, Trzin 1236 Trzin 01 724 68 68 0
Na klancu 5, Vuzenica 2367 Vuzenica 02 876 43 63 0
3312 Prebold 03 700 13 10 0 ELKI D.O.O.
03 759 26 30 0 0 DOKA SLOVENIJA OPAŽNA TEHNOLOGIJA D.O.O. Spodnji Plavž 14 D, Jesenice
0 MIX, PODJETJE ZA TRGOVINO Z GRADBENIM IN INSTALACIJSKIM MATERIALOM IN PREVOZNE STORITVE D.O.O. Stegne 15, Ljubljana 1000 Ljubljana
RHEINZINK Ulica bratov Babnik 10, Ljubljana 1000 Ljubljana 01 510 10 86
Re: Pomoč transpose kopiranje
Je mogoče napaka v formuli 1;7....
Re: Pomoč transpose kopiranje
Da "napaka" je zagotovo v formuli, besedico "napaka" pa sem dal v navednice zato, ker je pač tam število 7 potrebno zamenjati s številom vrstic, ki ga v vašem seznamu zasede ena oseba.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator