• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Een code voor 1 cel gebruiken voor een hele kolom

Status
Niet open voor verdere reacties.

Puntdroad123

Gebruiker
Lid geworden
22 aug 2016
Berichten
30
Hallo,

Ik ben bezig om bestanden samen te voegen, waarbij wel is vaker bestanden over gezet moeten worden daarom een VBA code.
Het bestand heeft een reeks datums, die nu als 10-10-2020 weergegeven word, maar die ik naar 20201010 aan wil passen.
Nu heb ik de volgende code gevonden die prima werkt voor 1 cel, maar hoe kan ik deze voor een hele kolom gebruiken?

Voorbeeld code:
Sub ConvertDate()
Range("B1").Value = Right(Range("A1").Value, 4) & _
Left(Right(Range("A1").Value, 7), 2) & _
Left(Range("A1").Value, 2)
End Sub

Andere opties zijn natuurlijk ook welkom!

gr Rick
 
zo bijvoorbeeld.

voor deze notatie: JJJJMMDD
Wel even het bereik even aanpassen.

Code:
Sub g()
With Range("B1:B23")

    .FormulaR1C1 = "=YEAR(R[0]C[-1])&TEXT(MONTH(R[0]C[-1]),""00"")&TEXT(DAY(R[0]C[-1]),""00"")"
    .Value = .Value

End With
End Sub
 
Laatst bewerkt:
Of:
Code:
Sub hsv()
 Cells(1).CurrentRegion.Columns(1).Name = "b"
 [b].Offset(, 1) = [if(row(b),text(b,"yyyymmdd"))]
End Sub

En dan mag .offset(,1) eruit als je de gegevens in kolom A wilt vervangen.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan