kolommen omdraaien

Status
Niet open voor verdere reacties.
P

Peter2016

Gebruiker
Lid geworden
4 sep 2015
Berichten
89
Hallo,
Ik zou graag in een bereik van G37 t/m R2640 de kolomgegevens willen omdraaien.
Dus
G37:G2640 verplaatsen naar R37:R2640
H37:H2640 Q37:Q2640
I naar P
J naar O
K naar N
L naar M
dus de kolomgegevens omkeren.
Wie kan me helpen?

Alvast bedankt

Gr Peter
 
Laatst bewerkt:
hiermee?

Code: 
Sub tst()
Application.ScreenUpdating = False
With Sheets("Blad1")

For i = 7 To 17
.Columns(18).Cut
.Columns(i).Insert xlToRight
Next
End With

Application.ScreenUpdating = True
End Sub
 
Hoi Sjon,

Ik heb het bestand erbij gedaan, om te testen. krijg nog een fout melding. als ik zelf Dim i as Long toevoeg doet ie de eerste 9 kolommen goed, andere 2 niet.

gr Peter
 

Bijlagen

  • Kolommen omdraaien.xlsm
    329,8 KB · Weergaven: 26
Hij doet het bij mij prima, maar deze is gericht op het bereik uit je vraag en niet op gehele kolommen.

Code: 
Sub tst()
Application.ScreenUpdating = False
With Sheets("Analyse Voorstel")

For i = 7 To 17
.Cells(37, 18).Resize(2634, 1).Cut
.Cells(37, i).Resize(2634, 1).Insert xlToRight
Next
End With

Application.ScreenUpdating = True
End Sub
 
http://www.snb-vba.eu/VBA_Arrays.html#L_0
Code: 
Sub omdraaien()
startbereik = Sheets("Blad1").Range(Cells(37, 7), Cells(2640, 18))
Sheets("Blad1").Cells(37, 7).Resize(UBound(startbereik, 1), UBound(startbereik, 2)) = Application.Index(startbereik, [row(1:2640)], Array(12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1))
End Sub
 
Code: 
Sub hsv()
Dim sv
sv = Range("G37:R2640")
 Range("G37").Resize(UBound(sv), 12) = Application.Index(sv, Application.Transpose([transpose(row(1:2604))]), Array(12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1))
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan