for next vba

[jli]

hallo experts,

Bij deze een klein stukje vba code.
Graag zou ik willen dat als A1 1 is hij de tekst laat zien.

For Each cl In Range("e24:e1500") '.SpecialCells(20, 2)
 If cl <> "" Then
  If [G8] = "" Then
   [G8] = cl
    Else
    [G8] = [G8] & ";" & cl
 End If
  End If
    [COLOR="Red"] If Range("a1") = 1 Then[/COLOR]
Next cl
  [COLOR="red"]Else[/COLOR]
 [COLOR="red"]Range ("A2").value = "Volgende"[/COLOR] 
 [COLOR="red"]End If[/COLOR]

Het rode gedeelte heb ik er zelf ingezet, en daar geeft die dus een fout op.
Hoe krijg ik tussen de For Next loop een If commando ??

Jurgen

 

[Superzeeuw]

jli,

Om te beginnen
De fout is op te lossen door het volgende:

     If Range("a1") <> 1 Then Range ("A2").value = "Volgende"

Haal de laatste rode regels weg na Next cl

vervolgens wat bedoel je met de eerste vraag?
Als A1 = 1 dan tekst laten zien, welke tekst?

 

[jli]

Beste Superzeeuw,

De code moet eigenlijk uit de For - Next loop gaan.
Om met een nieuwe For - Next loop te beginnen.

Jurgen

 

[Superzeeuw]

jli,

uit een for next loop stappen doe je met

Exit For

 

[jli]

Beste Supermeeuw,

Ja inderdaad dat werkt, maar de formule doet niet wat ik wil.
Ik heb een rij met namen, en de code plaatst die namen achter elkaar gescheiden door een ; als hij er 10 achter elkaar heeft gezet in A10 moet hij de volgende 10 namen in A11 plaatsen enz.

Jurgen

 

[Superzeeuw]

jli,

In je code plaats je de volgende regels
Aan het begin Teller = 0
In je code Teller = Teller + 1
Op de locatie waar cel A10 wordt gevuld komt dan IF Teller = 10 Then ......
En zet de Teller weer op 0

 

[jli]

Ja dat is dus het punt waar ik op vast loop',

Op de locatie waar cel A10 wordt gevuld komt dan IF Teller = 10 Then ......

Als ik Exit For gebruik en weer met een For - Next loop begin dan begint de code weer vanaf boven aan de namen hij moet eigenlijk beginnen waar de eerste For - Next loop mee geeindigd is.

Jurgen

 

[Superzeeuw]

jli,

Dan moet je dus niet uit de For Next loop stappen maar doorgaan in die loop.

 

[jli]

For Each cl In Range("e24:e1500") 
 If cl <> "" Then
  If [G8] = "" Then
   [G8] = cl
    Else
    [G8] = [G8] & ";" & cl
 End If
  End If
   Next cl

Hoe krijg ik dan voor elkaar, als in G8 10 namen met een ; achter elkaar gezet zijn
de code e volgende 10 namen in G9 zet, en de daarop volgende 10 namen in G10 enz.

Jurgen

 

[HSV]

Misschien kun je hier wat inspiratie opdoen.
Bijna identiek aan de vraag van jou.
http://www.helpmij.nl/forum/showthread.php?t=515890

 

[Superzeeuw]

jli,

Probeer het eens met de volgende code:

Sub test()
    Teller = 0
    Regel = 8
    Waarde = ""
    For Each cl In Range("e24:e1500")
        If cl <> "" Then
            Waarde = Waarde & cl & ";"
            Teller = Teller + 1
            If Teller = 10 Then
                Cells(Regel, "G").Value = Left(Waarde, Len(Waarde) - 1)
                Regel = Regel + 1
                Teller = 0
                Waarde = ""
            End If
        End If
    Next cl
End Sub

 

[Ginger]

jli, Probeer dit 'ns...

Sub TienPerRegel()

    For i = 1 To Range("E24:E1500").SpecialCells(xlCellTypeConstants).Cells.Count Step 10
        x = x + 1
        Cells(x + 7, 7).Value = Join(WorksheetFunction.Transpose(Cells(23 + i, 5).Resize(10)), "; ")
    Next i

End Sub

Op zich kan je 'm natuurlijk eerst naar een array wegschrijven en dan pas weer communiceren met de sheet, maar het gaat wel prima zo...

Groet, Leo

 

[jli]

Beste Superzeeuw,

Dit is inderdaad wat ik bedoel, alleen als er 45 namen zijn, neemt de code de laatste 5 namen niet mee.

Jurgen

 

[Superzeeuw]

jli,

Plaats volgende regel na Next cl

    If Teller <> 0 Then Cells(Regel, "G").Value = Left(Waarde, Len(Waarde) - 1)

 

[jli]

Helemaal te gek, dank je wel.

Jurgen

 

[Ginger]

...is mijn oplossing soms onzichtbaar voor anderen???

Groet, Leo

 

[Superzeeuw]

Leo,

Hoe maak je die dan onzichtbaar

 

[Ginger]

Leo,

Hoe maak je die dan onzichtbaar

Tja, DAT weet ik óók niet, maar de TS ziet 'm niet geloof ik...

Groet, Leo

 

[Superzeeuw]

Leo,

Kop op, je hebt je best gedaan:thumb:

Wat mij wel opvalt is dat men soms de oplossing niet opvolgt omdat men de code niet kan lezen of begrijpt.

 

[Ginger]

Kop op, je hebt je best gedaan:thumb:

Snif... dank je wel jongen... DAT was wat ik ff nodig had! :love:

Wat mij wel opvalt is dat men soms de oplossing niet opvolgt omdat men de code niet kan lezen of begrijpt.

Dan heb je hierbij geloof ik uitgevonden HOE je een oplossing onzichtbaar kan maken!!! :thumb:

Groet, Leo