Macro om formule te plaatsen

[KeBr]

Ik heb een erg groot bestand waarin de informatie op 2 regels staat. Ik wil ik met een macro die kijkt (zie bijlage) of het aantal tekens in kolom A groter is dan 3 als waar dan moet deze waarde ook in cel de cel eronder komen. De gegevens uit kolom C moeten dan naar klom B maar een regel lager. gegevens uit kolom F moeten dan ook een regel naar beneden.

Ik hoop dat ik het zo duidelijk omschreven heb. In het voorbeeld heb ik op rij A4, B4 en F4 de formules staan.

 

[lam201]

Dat kan met de volgende macro:

Sub X()

Dim r As Long

With Sheets("Blad1")
For r = 20 To 3 Step -1
    
    If Len(Range("A" & r)) > 3 Then
        .Range("A" & r + 1).Value = .Range("A" & r).Value
        .Range("B" & r + 1).Value = .Range("C" & r).Value
        .Range("F" & r + 1).Value = .Range("F" & r).Value

    End If
Next r
End With

End Sub

het bereik bij

r = 20

even aanpassen aan het bereik in je eigen bestand.

 

[KeBr]

Bedankt dit is precies wat ik nodig had.