VB stukje loop werkt niet.

[petermb]

Hallo,

Jullie hebben mij van het weekend super geholpen alleen ik dien nu wat te loopen en een range te vergroten: Klopt dit onderstaand stukje code In het rood heb ik het veranderd. Graag jullie hulp

Sub HSV()
Dim sq As Variant, i As Long, kol As Long, sq1 As Variant, sq2 As Variant

[COLOR="red"]Do While Cell (A,7). Value ""[/COLOR]

 sq = Split(Range("A7:[COLOR="red"]A100[/COLOR]"), """")
  For i = 1 To UBound(sq)
   kol = Columns(50).End(xlToLeft).Column
    Cells(1, kol + 1) = sq(i)
   Next

 sq1 = Split(sq(0), ",")
  For i = LBound(sq1) To UBound(sq1) - 1
   kol = Columns(50).End(xlToLeft).Column
    Cells(1, kol + 1) = sq1(UBound(sq1) - i)
   Next

 sq2 = Split(sq1(0), ">")
  For i = LBound(sq2) To UBound(sq2)
   kol = Columns(50).End(xlToLeft).Column
    Cells(1, kol + 1) = sq2(UBound(sq2) - i)
   Next

[COLOR="red"]Loop[/COLOR]

Columns.AutoFit

End Sub

 

[Haije]

Peter,

als je niet aangeeft wat er moet gebeuren en hoe de oorspronkelijke macro er uitziet en wat die doet, wordt het moeilijk hier een antwoord op te geven.....

 

[Cobbe]

Als je deze regel al eens aanpast:

Do While Cells[COLOR="red"][B](7, "A").Value = ""[/B][/COLOR]

 

[petermb]

Ik heb even online een bestand neer gezet.

http://www.clearcommunications.nl/tekst omdraaien.xlsm

Bedoeling is dat hij ivm de eerste regel het volledig bestand omdraaid qua waardes.

Dus dit betekend dat er een loop in dient te komen te staan.