Transponeren

[Abyss]

In excel heb ik adressen staan. deze staan in een kolom onder elkaar.
bv. adres 1 beslaat A1 tot A10
adres 2 beslaat A 12 tot A22 enz enz

Hoe kan ik deze lijst in 1 keer transponeren en de adressen dan onderelkaar in een rij laten plaatsen
bv adres 1 staat op rij 1 (cel A1 tm J1)
adres 2 staat op rij 2 (cel A2 tm J2) enz enz

 

[richard1970]

Beste Abyss,

Ik snap het probleem niet helemaal. Kennelijk weet je wat transponeren is. Je kopieert alle cellen, en gaat via Plakken Speciaal naar transponeren, en klikt op OK.

Wat gaat er dan fout?

Richard

 

[Wigi]

Abyss,

gebruik functies en de structuur van je adressen. Zie bijlage aub. Ik gebruikte de functie

=VERSCHUIVING($A$1;10*(RIJ()-1)+KOLOM()-2;0)

voor het eerste deeltje van het 1ste adres.

Succes ermee, vraag maar indien niet tevreden

Wigi

 

[Wigi]

Beste Abyss,

Ik snap het probleem niet helemaal. Kennelijk weet je wat transponeren is. Je kopieert alle cellen, en gaat via Plakken Speciaal naar transponeren, en klikt op OK.

Wat gaat er dan fout?

Richard

Richard,

transponeren werkt hier niet want alle adressen staan onder mekaar. (en de vraagsteller wenste ze niet per adres te kopieren naar kolommen die naast mekaar, zodat transponeren op de gebruikelijke manier wel mogelijk zou zijn.)

Zie mijn vorige bijlage

Wigi

 

[Abyss]

Abyss,

gebruik functies en de structuur van je adressen. Zie bijlage aub. Ik gebruikte de functie

=VERSCHUIVING($A$1;10*(RIJ()-1)+KOLOM()-2;0)

voor het eerste deeltje van het 1ste adres.

Succes ermee, vraag maar indien niet tevreden

Wigi

Ik ga het even uitesten mocht ik nog vragen hebben zal ik niet aarzelen, denk ik, maar dat weet ik nog niet zeker denk ik

 

[LucB]

Met deze Macro moet het ook lukken.
De macro is aan te passen op meerdere adresblokken.
bv 4-rijig, 5-rijig enz.

Afstelling is nu ingesteld op 11 rijen (10 gevuld en 1 blanco)

 

[Dawood]

Luc,

dit is precies wat ik ook zoek, alleen dan net andersom. het is
echter de eerste keer dat ik naar een macro kijk, en deze aan
te passen gaat me dan ook niet lukken binnen afzienbare tijd.
Nou ja, ik heb het aantal cellen van 11 in 10 veranderd maar
veel meer begrijp ik er (nog) niet van.

Zou je hem misschien nog eens kunnen posten waarbij je
dus de data van het resultaat weer onder elkaar in 1 kollom krijgt?

Ik heb 650 rijen van 10 cellen( kollomen) breed, waarvan ik secties
van 200 opvolgende getallen onder elkaar in een kollom wil krijgen
en ben tot op heden handmatig bezig, En die makro van jou zou
het precies zo doen zoals het moet.

Alvast bedankt,

Goeten Dawood

 

[LucB]

Hallo Dawood,

Welkom op HelpMij.

Als alle rijen in kolom A beginnen zal deze Macro het klusje voor je klaren.
Succes.

 

[Dawood]

Bedankt voor je snelle reactie Luc !

Ik heb echter 1 probleempje, de Data die getransponeerd word,
bestaat uit celverwijzingen (koppeling) naar een ander tabblad
in hetzelfde Excel document. Dit omdat ik handmatig data uit
een Data memory van een PLC in het excel sheet (blad 1) plak.

Aangezien deze data regelmatig geupdated word, werk ik dus
met koppelingen/erwijzingen en deze worden netjes gerangranschikt
in blad 2.

Bij het uitvoeren van de macro, worden echter de koppelingen vervangen
door de actuele celwaardes, welke dus bij de volgende update niet veranderen.
Is hier een oplossing voor, of word dat te ingewikkeld? Nogmaals, ik ben een leek
op het gebied van macros, en weet dus niet of wat ik vraag reëel is.

Verder verplaatst de macro 11 cellen en dat moeten er 10 zijn, bij de V H
verplaatsing kon ik deze nog wel aanpassen, maar bij de H V macro kan ik deze
"instelling niet meer terug vinden. Opzich niet zón ramp, want ik delete nu de
"extra" blanco rijen handmatig na het uitvoeren van de macro.

Gegroet, Dawood

PS in de bijlage heb ik de data op blad 2 handmatig stuk voor stuk verplaatst.

 

[LucB]

Hallo Dawood,

Jouw verwijzingen zijn relatief en dan gaat het met transponeren fout.
De Macro aangepast, nu geen lege rijen meer.

Sub Transponeren_Rijen_Naar_Kolom()
'De Macro werkt met een willekeurig aantal Rijen en kolommen
Dim Lr As Long, k As Long
Dim Lc As Long, i As Long

Lr = Range("A" & Rows.Count).End(xlUp).Row
Lc = Cells(1, Columns.Count).End(xlToLeft).Column

Application.ScreenUpdating = False
Columns(1).Insert
k = 1
For i = 1 To Lr
Range(Cells(i, 2), Cells(i, Lc + 1)).Copy
Cells(k, 1).PasteSpecial xlValues, , , True
'Als je verwijzingen absoluut zijn kun je xlValues veranderen in xlAll
'In jouw geval zijn de verwijzingen relatief en dan gaat het niet
k = k + Lc 'hier de + 1 weggehaald, dan geen lege rij meer.
Next i
Range(Cells(1, 2), Cells(Lr, Lc + 1)).Clear
Application.CutCopyMode = False
Columns("A").AutoFit
Range("A1").Select
Application.ScreenUpdating = True
End Sub

 

[Dawood]

Oke Luc, bedankt weer voor je reply.

die is duidelijk, ik begrijp waar de schoen wringt,
ik heb de aanpassing gedaan wat de lege rijen betreft
en ook XLvalues in XLALL veranderd, en dat werkt goed.

De logische volgende vraag is natuurlijk; Is er het mogenlijk
6650 relatieve verwijzingen in een keer om te zetten naar absolute
verwijzingen. Ik heb wel en getest gezien hoe je dat voor een enkele cel
moet doen en een cel of tien is nog wel te doen, maar heb niets kunnen
vinden over een ''Batch" omzetting. Zo niet , dan is het een aardig klusje,
voor in de vrije uurtjes.

Groeten Dawood.

 

[Wigi]

Dawood,

Om je enkele uurtjes te verkorten:

- je kan code opstellen die:
zoekt op je werkblad naar specifieke bereiken en vervolgens absolute verwijzingen maakt

- eigenlijk, de ASAP utilities van Bastien Mensink hebben een optie om dit ineens voor mekaar te krijgen.

Wigi

 

[Dawood]

Geweldig !!

LUC, bedankt voor je inzet en de macro's, ABYSS bedankt voor het stellen van je vraag en starten van deze topic en WIGI bedankt om het geheel te completeren met me te wijzen op
het bestaan van ASAP utilities !

Ik ben er met jullie hulp helemaal uit, thanx !

Groeten Dawood.

 

[dirkdrent]

Met deze Macro moet het ook lukken.
De macro is aan te passen op meerdere adresblokken.
bv 4-rijig, 5-rijig enz.

Afstelling is nu ingesteld op 11 rijen (10 gevuld en 1 blanco)

Hoe pas je deze macro aan, naar 2 rijeen???

Gr. Dirk