vba splitsen van cel waardes meenemen

[Tweety1]

Als je de bovenstaande vba in versie 3 draait dan wordt regel 4 verwijderd.

 

[HSV]

Mis ik iets?

 

[Tweety1]

Als je onderstaande vba in voorbeeld bestand (splitsenv3.xlsm) draait dan wordt de regel 4 verwijderd.

Sub hsv()
Dim sn, sq, i As Long, j As Long, n As Long
sn = Sheets("voorbeeld 1").Cells(1).CurrentRegion
ReDim arr(12, 0)
For i = 1 To UBound(sn)
  sq = Split(sn(i, 8), "/")
    For j = 0 To UBound(sq)
            arr(0, n) = sn(i, 1)
            arr(1, n) = sn(i, 2)
            arr(2, n) = sn(i, 3)
            arr(3, n) = sn(i, 4)
            arr(4, n) = sn(i, 5)
            arr(5, n) = sn(i, 6)
            arr(6, n) = sn(i, 7)
            arr(7, n) = sq(j)
            arr(8, n) = sn(i, 9)
            arr(9, n) = sn(i, 10)
            arr(10, n) = sn(i, 11)
            arr(11, n) = sn(i, 12)
            arr(12, n) = sn(i, 13)
            n = n + 1
      ReDim Preserve arr(12, n)
    Next j
  Next i
    With Sheets("uitkomst voorbeeld 1")
     .Cells(1).CurrentRegion.Offset(1).ClearContents
     .Cells(1).Resize(UBound(arr, 2), UBound(sn, 2)) = Application.Transpose(arr)
    End With
End Sub

 

[HSV]

Die code mag je verwijderen.
Ik zet hier toch niet voor niets een andere code neer.

 

[Tweety1]

OK alleen werkt die zowel op H en I deze mag alleen op H werken

 

[HSV]

Nog meer wensen?

 

[Tweety1]

Was in de war omdat zag dat het over 2 kolommen gaat.
Als de uitkomst van de eerste macro het zelfde is zonder kolom I en niet verwijderen van lege regels dan is ie goed.
Mag ik je alvast bedanken voor de moeite.

 

[HSV]

Begrijp niet veel van je schrijven.
Als jij reageert alvorens codes te testen kan ik mijn tijd wel beter verdoen.
Als het nu nog niet goed is zul je met betere voorbeelden moeten komen wanneer wel/niet de rijen verwijderd moeten worden.

Ik kan niet garanderen of ik nog reageer.

 

[Tweety1]

Heb de vba getest (zat in de trein zonder laptop). Hij werkt goed alleen zou graag willen dat het alleen op kolom H werkt.
Wat ik kan lezen in vba is dat hij werkt op H en I.
Kolom I mag dus niet gesplit worden.

 

[HSV]

Als je de code kan lezen kan je het gedeelte eruit halen wat er niet in thuis hoort.

 

[Tweety1]

Bedankt voor het maken van de VBA's