wisselen van kolom met macro

[bdwolff]

Wie kan me helpen aan een macro die twee velden van elkaar gaat wisselen als in het ene veld ACK staat. Dus ACK verschuift naar rechts, en de inhoud rechts van ACK verschuift naar links. Het zijn wel veel rijen ide nagekeken moeten worden, minimaal 100.000

117 blabla 11-3-2016 blabla incoming 4 ACK 1303
118 blabla 11-3-2016 blabla outgoing 5 1302 2
119 blabla 11-3-2016 blabla incoming 5 ACK 1302
120 blabla 11-3-2016 blabla outgoing 6 1302 2
121 blabla 11-3-2016 blabla incoming 6 ACK 1302
122 blabla 11-3-2016 blabla outgoing 7 1301 11
123 blabla 11-3-2016 blabla incoming 7 ACK 1301
124 blabla 11-3-2016 blabla outgoing 8 1301 11
125 blabla 11-3-2016 blabla incoming 8 ACK 1301
126 blabla 11-3-2016 blabla outgoing 9 1304 50
127 blabla 11-3-2016 blabla incoming 9 ACK 1304
128 blabla 11-3-2016 blabla outgoing 10 1304 50
129 blabla 11-3-2016 blabla incoming 10 ACK 1304
130 blabla 11-3-2016 blabla outgoing 11 1303 42
131 blabla 11-3-2016 blabla incoming 11 ACK 1303
132 blabla 11-3-2016 blabla outgoing 12 1303 42
133 blabla 11-3-2016 blabla incoming 12 ACK 1303

 

[VenA]

Volgens mij ben je het voorbeeldbestandje vergeten.

 

[bdwolff]

ik ben nog een beetje nieuw hier....
dus waar ik heel blij mee zou zijn is als in kolom G "ACK" staat dit verhuist naar kolom H, en de inhoud van H naar G

 

[VenA]

Zoiets?

Sub VenA()
Dim ar, j
With Blad1.Cells(1).CurrentRegion
    ar = .Value
    For j = 1 To UBound(ar)
        If ar(j, 7) = "ACK" Then
            ar(j, 7) = ar(j, 8)
            ar(j, 8) = "ACK"
        End If
    Next j
    .Value = ar
End With
End Sub

 

[bdwolff]

ik krijg een foutmelding, maar het is een begin waar ik zelf ook naar ga kijken. bedankt voor de input.

fout op For j = 1 To UBound(ar)

Sub VenA()
Dim ar, j
With Blad1.Cells(1).CurrentRegion
ar = .Value
For j = 1 To UBound(ar)
If ar(j, 7) = "ACK" Then
ar(j, 7) = ar(j, 8)
ar(j, 8) = "ACK"
End If
Next j
.Value = ar
End With
End Sub

 

[VenA]

Dan is het voorbeeldbestand qua lay-out niet gelijk aan het echte bestand

 

[bdwolff]

hm, ik draai de macro op het voorbeeld bestand...ik krijg een melding dat typen niet met elkaar overeenkomen

 

[HSV]

Werk je misschien op een Mac?

 

[bdwolff]

Nee, maar ik zal de macro vandaag op mijn werk uitproberen.

mvg Bart

 

[VenA]

Ik weet niet of het testen op jouw werk gelukt is maar in het voorbeeldje werkt het bij mij.

 

[bdwolff]

Hallo VenA, bedankt voor je bestand met de wekende Macro. Heel fijn dat je me hierbij hebt geholpen!