[excel 2003]

[daan1111]

In excelbestand [A} staat een kolom AG met 827 regels. Deze kolom wil ik graag pasten in kolom C van excelbestand . Maar in het nieuwe bestand moet er tussen elke waarden 4 blanks komen.

Dus:
12
12
344
2334
enz

Wordt:
12
(4 blanks)
12
(4 blanks)
344
(4 blanks)



Hoe kan ik dit het beste doen? Ik heb een macro aangemaakt maar ik weet niet hoe ik heb het best vanaf het begin tot het laatste getal van kolom AG kan laten lopen.

Wat is de code voor zo'n macro?

 

[gebruiker33]

Eigenschappen van cel aanpassen.

Iets van Standaard naar Tekst of Getal.

 

[Cobbe]

Met deze formule kun je die waarden ophalen naar kolom C:

=[A.xls]Blad1'!AG1

en zover doortrekken als nodig.

en volgende macro doet de rest:

Sub lege_rijen_tussenvoegen()
Application.ScreenUpdating = False
For i = 1 To 4400
    For y = 1 To 4
       Rows(i + 1).Insert
    Next
    i = i + 4
Next
End Sub

 

[daan1111]

@ Cobbe

Dank voor je snelle hulp.

Het werkt precies zoals ik in de vraag vertelde. Maar ik had de vraag anders moet stellen.

Er zijn meerder kolommen in file [A], namelijk AG, AT, BG en BT. De waarden in die kolom wil ik graag in een file in kolom C onder elkaar krijgen met 1 blank op de eerste plaats.

Dus

[AG] [AT] [BG] [BT23
1. 33 33 54 894
2. 44 78 56 55
3. 33 33 567 66
4. 566 122 98 556


Wordt:
[C]
1. (blank)
2. 33
3. 33
4. 54
5. 894
1. (blank)
2. 44
3. 78
4. 56
5. 55
1. (blank)
enz.



En zo zijn er nog 4*4 kolommen in file [A] die in de 4 kolommen [D], [E], [F] en [G] van file moeten komen. Dus weer 1. blank en dan 2. 3. 4. en 5. onder elkaar

Enig idee hoe dit het beste gedaan kan worden?

 

[Cobbe]

Dat zou wel moeten lukken met Transponeren maar zonder voorbeeld wordt dat moeilijk.
Heb een voorbeeldje bijgevoegd.

 

[WHER]

Misschien geeft dit voorbeeld je inspiratie om het met formules aan te pakken?

 

[daan1111]

Dank voor jullie antwoord.

Cobbe, ik heb jouw macro gebruikt en die werkt uitstekend.

Hoe kan ik macro veranderen zodat alle 827 waarden per kolom worden gebruikt ipv 25 waarden. Dus ik zoek een regeltje om de hele kolom wordt getransponeerd totdat het leeg is.

 

[Haije]

daan1111,

de macro rekent zelf het aantal rijen uit.

Wat je wel moet aanpassen is de kolom waar de gegevens in staan.

 

[daan1111]

@Haije

In de macro heb ik de kolom aangepast naar kolommen met meer waarden (827 regels ipv 25 regels) maar dan worden van die kolom maar 25 regels gebruikt per keer terwijl ik graag zie dat alle 827 regels gebruikt worden.

Vandaar mijn vraag

 

[Cobbe]

Het is kolom I die je moet aanpassen aan uw situatie, (zie rode aanduiding):
In de macro staat nergens een verwijzing die aangeeft dat er maar 25 rijen zouden moeten behandeld worden

Sub Macro2()
Application.ScreenUpdating = False
For i = 1 To Range("[COLOR="red"][B]I[/B][/COLOR]65500").End(xlUp).Row
    Range("I" & i & ":L" & i & " ").Copy
    Vrij = Range("A65500").End(xlUp).Row + 2
    Cells(Vrij, 1).PasteSpecial Paste:=xlAll, Transpose:=True
    
Next
End Sub

 

[daan1111]

@Cobbe

Het werkt perfect zo.

Ik had alleen de kolommen in Range (I t/m L) aangepast maar die moest dus ook nog.

Thanks a lot