kolommen

[smitty]

Hoi,
Ik heb een excelbestand dat gegenereerd wordt vanaf een website. Dit bestand bestaat uit 4 kolommen en een groot aantal rijen. Deze rijen kunnen varieren.
weet iemand hoe ik een macro kan schrijven die het aantal rijen door 4 deelt. En hierna deze delen langs elkaar zet. Voorbeeld. Ik heb op A1440 data staan.
DMV een macro zo ik dan een werkblad willen krijgen die bestaat uit
A1110
E1:H:110
I1:L110
M1110 met de data uiteraard
Ik heb begin en eind document bijgevoegd

 

[LucB]

jos,

Een Macro toegevoegd.

 

[smitty]

Macro

Helaas,
Als ik op de knop verdelen klik gebeurt er niets. De macro wordt niet gevonden. Als ik het goed heb staat deze in de personal.xls file die in Excelstart staat.

Hierdoor werkt het niet, denk ik. Zou je mij de vba-code kunnen sturen?? smits.j@planet.nl

Alvast bedankt.

Jos

 

[LucB]

Jos,

Hierbij de Code voor een normale Module.

Sub Verdelen()
Range("A111220").Cut Destination:=Range("E1")
Range("A221330").Cut Destination:=Range("I1")
Range("A331440").Cut Destination:=Range("M1")
Application.CutCopyMode = False
Columns("A").AutoFit
End Sub

 

[LucB]

Jos,

Nog een keer en waar die smileys vandaan komen is mij een raadsel.

Plak de code in een normale module.

Sub Verdelen()
Range("A111220").Cut Destination:=Range("E1")
Range("A221330").Cut Destination:=Range("I1")
Range("A331440").Cut Destination:=Range("M1")
Application.CutCopyMode = False
Columns("A").AutoFit
End Sub

 

[LucB]

Jos,

Volgende poging.

 

[Withaar]

LucB

In je bericht heb je afkortingen van smilies gebruikt (onbewust) bv wordt vertaalt naar een smilie met een knipoog.
Bij excel antwoorden heb je al snel dit probleem.
Gebruik van smilies kan je bij Opties (onder Jouw bericht) uit zetten.

N.b. via een omweggetje kan je ondanks dat je smilies uit hebt gezet ze toch in je bericht gebruiken...

In dit bericht staat het vinkje Gebruik geen smilies in dit bericht aan.
De BIG smile bij jou

is de vertaling van in jou bericht

Range("A111

220").Cut Destination:=Range("E1)
Moet dus eigenlijk Range("A111220").Cut Destination:=Range("E1") zijn

 

[smitty]

Hoi luc,

Deze macro werkt wel. Maar ik was eigenlijk op zoek naar iets dat automatisch het aantal rijen deelt. Het aantal rijen kan nl. varieren, en op deze manier moet ik de code steeds aanpassen.

Maar in ieder geval toch bedankt.


Jos