Macro nogmaals uitvoeren voor volgende regel

[Swinkey]

Hey,

Ik zit met het volgende probleem.

Ik heb in het tabblad LEIDINGEN een tabel die ingevuld moet worden.
Nu wil ik met een druk op de knop van elke regel in de tabel LEIDINGEN een nieuw tabblad laten maken volgens (Overzicht inlaten).
Ik heb dit werkend voor de eerste 2 regels.
Echter zou ik dit proces willen herhalen tot er een witregel gevonden is.

Het is dus de bedoeling om vanuit het overzicht voor elke regel een aparte inlaatstaat te maken.

Hier is wat ik tot nu toe heb.
Bekijk bijlage Overzicht inlaten.xls

 

[dopoog]

zie onderstaand filmpje:


[video=youtube;e1NOdjRkLIY]https://www.youtube.com/watch?v=e1NOdjRkLIY[/video]

vanaf minuut 8 zie je de hele code die je nodig hebt.

 

[Swinkey]

Ok dank je wel.
Dit lukt.

Nu zit ik nog met het volgende.
Ik zou graag elke nieuw aangemaakte pagina een naam geven.
Zoals hieronder.
Alleen pikt hij de gele regel niet.
Hoe kan ik dit oplossen.

Hierbij de SUB:

Sub Inlaat()

For i = 1 To 3
If Len(ActiveCell.Value) > 1 Then

Sheets("LEIDINGEN").Select
Range("A8").Select
xbeginput = ActiveCell.Value
xeindput = ActiveCell.Offset(0, 3).Value
xbladnaam = ActiveCell.Offset(0, 71).Value

Sheets("Inlaat").Select
Sheets("Inlaat").Copy After:=Sheets(3)
With ActiveSheet
.Name = xbladnaam <------------------------------------- (deze regel pikt hij niet)
End With
Range("B8").Select
ActiveCell.Value = xbeginput
ActiveCell.Offset(29, 0).Value = xeindput
Sheets("LEIDINGEN").Select
ActiveCell.Offset(1, 0).Select

Else
i = 10
End If
i = i - 1
Next
End Sub

 

[VenA]

Plaats je code tussen codetags.

Dmv F8 kan je door de code wandelen. Kijk even welke waarde xbladnaam krijgt en wanneer het fout gaat. Waarschijnlijk is deze leeg of verwijst naar een reeds bestaande naam.

 

[Swinkey]

Het is gelukt.
Dank u.

 

[VenA]

Dan mag je de vraag nog even als opgelost markeren.