Splitsen op basis van "/" regelnummer doortrekken

Status
Niet open voor verdere reacties.
T

Tweety1

Gebruiker
Lid geworden
6 mrt 2013
Berichten
637
Ik het bijgevoegde voorbeeldbestand worden de cellen gesplitst op basis van "/" en de gegevens van de regel gekopieerd.
Nu zou ik graag de vba willen aanpassen naar het volgende

1. Kolom "L": Inhoud van de cel niet mee kopiëren naar de volgende regel.
2. Kolom "R": Regelnummer doortrekken.


Mvg
Kasper
 

Bijlagen

  • Splitsen5.xlsm
    19 KB · Weergaven: 32
Even een beetje logisch nadenken/de code proberen te begrijpen.

Code: 
For jj = 0 To UBound(st)
          sp(27) = st(jj)
          [COLOR="#FF0000"]sp(18) = jj + 1[/COLOR]
          [COLOR="#FF0000"]sp(12) = IIf(jj = 0, sp(12), "")[/COLOR]
          .Item("P_" & .Count) = sp
        Next
 
Code: 
For jj = 0 To UBound(st)
          If jj > 0 Then sp(12) = ""
          sp(18) = Format(jj + 1, "00")
          sp(27) = st(jj)
        .Item("P_" & .Count) = sp
        Next
 
De vba loopt goed alleen doet ie iets raars als ik er een datums in een cel zet. Hij draait de datum dan om.
bv "05-10-2020" wordt "10-05-2020".
Hoe kan je dit oplossen?
 

Bijlagen

  • Splitsen5-1.xlsm
    19,9 KB · Weergaven: 17
Code: 
For j = 2 To UBound(sn)
        sp = Application.Index(sn, j)
[COLOR=#0000ff]        sp(16) = Format(sp(16), "mm-dd-yyyy")[/COLOR]
[COLOR=#0000ff]        sp(25) = Format(sp(25), "mm-dd-yyyy")[/COLOR]
[COLOR=#0000ff]        sp(26) = Format(sp(26), "mm-dd-yyyy")[/COLOR]
        st = Split(sn(j, 27), "/")

edit: sp(17) moet er nog tussen; kun je zelf wel.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan