Archief - Excel avontuur !

Hallo

Ik heb een excel file die ik zou moeten "verbouwen"...

Huidige layout :

Kolom A Kolom B Kolom C Kolom D
rij 1 X 1 2 3

Gewenste layout

Kolom A Kolom B
rij 1 X 1
rij 2 X 2
rij 3 X 3

Iemand enige idee hoe ik dit snel kan realiseren...
Ik vind niet direct de juiste formule dat ik kan toepassen.

Merci
Impuls

echt niemand...
ik heb al met transponeren, draaitabel, expertoren naar acces...

in acces met een rapport lukt het maar als ik dan terug naar excel exporteer is het terug op één rij....

help...<= een noodkreet lol

cellen samenvoegen ?

ik weet niet eigenlijk goed wat ge wilt bereiken met die uitleg
mss een duidelijker tekeningske ?

vbscript

@ Fenix
ik denk dat vbscript ook de enige oplossing zal zijn

@Wundagore

Awel

Winkel A komt naar de beurs met persoon 1 persoon 2 persoon 3 persoon 4
Winkel B komt naar de beurs met persoon 5 persoon 6 persoon 7 persoon 8

Ik wil dus gewoon die personen onder mekaar krijgen en excel moet zelf de ruimte ertussen opvullen met dezelfde gegevens :

resultaat

Winkel a komt naar de beurs met persoon 1
Winkel a komt naar de beurs met persoon 2
Winkel a komt naar de beurs met persoon 3
Winkel a komt naar de beurs met persoon 4
Winkel b komt naar de beurs met persoon 5
Winkel b komt naar de beurs met persoon 5
etc....

Cheers
impuls

een beschamende bump...

ik ben er bijna....aanhouder wint

Sub finish()
Dim Num As Integer
Dim mini As Integer
Dim X As Integer
Dim van As String
Dim tot As String
X = 1


For Num = 1 To 330 'start loop
van = "a" & X
tot = "g" & X
'Knippen winkelinfo
Sheets("Blad1").Select
Range([van], [tot]).Select
Selection.Copy
X = X + 1

'Plakken winkelinfo
For mini = 1 To 5
Sheets("Blad2").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Next mini
Next Num ' end loop
End Sub

Hier staat blijkbaar die thread

FeNiX4LiFe zei:

vbscript

Klik om te vergroten...

Vbscript is totaal iets anders, dat gebruik je niet in excel. Je doelt op vba.


En@ threadstarter, k begrijp niet veel van je uitleg eigenlijk.

Je wil waarden uit ganse velden halen? Of is dat de bedoeling niet?

geen script in excell é.

gwn een vbscript die via het dommodel toegang krijgt tot excell en daar zn ding doet

FeNiX4LiFe zei:

geen script in excell é.

gwn een vbscript die via het dommodel toegang krijgt tot excell en daar zn ding doet

Klik om te vergroten...

A, da's iets anders dan heb ik't verkeerd begrepen ma da's wel ne serieuze way around natuurlijk.

ja my mistake...
heb het gewoon in vba geschreven...
sorry voor verwarring
Ik zal straks eens het resultaat posten !

Ja ik weet dat het veel beter kon
-dien offset moet er uit
-kan in één loop
...
maar tijdsgebrek...

Sub finish()
Dim Num As Integer
Dim Nem As Integer
Dim mini As Integer
Dim X As Integer
Dim Y As Integer
Dim van As String
Dim tot As String
Dim perv As String
Dim pert As String
Dim past As String

X = 2
Y = 2

For Num = 1 To 340 'start loop
van = "a" & X
tot = "g" & X

'Knippen winkelinfo
Sheets("Blad1").Select
Range([van], [tot]).Select
Selection.Copy
X = X + 1

'Plakken winkelinfo
For mini = 1 To 5
Sheets("Blad2").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Next mini
Next Num ' end loop

X = 2
For Nem = 1 To 340
perv = "a" & X
pert = "g" & X

'Knippen persoonsinfo
Sheets("Blad1").Select
Range([perv], [pert]).Select
Selection.Copy

'Plakken persoonsinfo
past = "h" & Y
Y = Y + 5
Sheets("Blad2").Select
Range([past]).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Next Nem
End Sub