Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: Een code voor 1 cel gebruiken voor een hele kolom

  1. #1
    Junior Member
    Geregistreerd
    22 augustus 2016
    Vraag is opgelost

    Een code voor 1 cel gebruiken voor een hele kolom

    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

  2. #2
    Senior Member lam201's avatar
    Geregistreerd
    23 augustus 2007
    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 aangepast door lam201 : 26 juli 2021 om 16:53

  3. #3
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    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.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  4. #4
    Junior Member
    Geregistreerd
    22 augustus 2016
    BEdankt voor de hulp, hier kan ik verder mee

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren