Pomoč transpose kopiranje

Pomoč pri delu z MS Excelom
Odgovori
debitel
Prispevkov: 15
Pridružen: Ne Sep 12, 2010 5:52 pm

Pomoč transpose kopiranje

Odgovor Napisal/-a debitel »

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
admin
Site Admin
Prispevkov: 3692
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Pomoč transpose kopiranje

Odgovor Napisal/-a admin »

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:

Koda: Izberi vse

=OFFSET(List1!$A$1;7*(COLUMN()-1)+ROW()-1;0)
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 ;)
lp,
Matjaž Prtenjak
Administrator
debitel
Prispevkov: 15
Pridružen: Ne Sep 12, 2010 5:52 pm

Re: Pomoč transpose kopiranje

Odgovor Napisal/-a debitel »

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
admin
Site Admin
Prispevkov: 3692
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Pomoč transpose kopiranje

Odgovor Napisal/-a admin »

:)... Ko podatke dobite na drugi list urejene jih pač skopirajte in prilepite brez formul... potem pa jih lahko urejate kolikor želite.

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)
In potem povlečete skozi pet kolon in dol po vrsticah. s tem boste dobili podatke urejene tako kot želite, potem pa pač označite vse podatke in jih skopirajte kot vrednosti. S tem boste dobili podatke natanko tako kot želite in tudi brez formul...
lp,
Matjaž Prtenjak
Administrator
debitel
Prispevkov: 15
Pridružen: Ne Sep 12, 2010 5:52 pm

Re: Pomoč transpose kopiranje

Odgovor Napisal/-a debitel »

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
debitel
Prispevkov: 15
Pridružen: Ne Sep 12, 2010 5:52 pm

Re: Pomoč transpose kopiranje

Odgovor Napisal/-a debitel »

Je mogoče napaka v formuli 1;7....
admin
Site Admin
Prispevkov: 3692
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Pomoč transpose kopiranje

Odgovor Napisal/-a admin »

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
Odgovori