Hallo
Ik heb een Macro met een for next lus dit werkt goed.
echter. nu zet ik er een if regel tussen met als uitkomst next.
dan krijg ik de melding dat er een next zonder for is
hier gaat het over (zie de code)
For Each Sh In sNames
If Range("B17").Interior.Color = yellow Then If MsgBox("Het formaat klopt niet dit Tabblad moet u handmatig over zetten") = vbCancel Then Next Sh
Periode_1 t/m Periode_13 zijn tabbladen
Er wordt hier data uit een ander Excel bestand gehaald
daar kan een regel zijn toegevoegd en dat mag er niet (in het ander bestand) geplakt worden en moet er overgegaan worden naar een volgend tabblad
Bij voorbaat mijn dank
Ik heb een Macro met een for next lus dit werkt goed.
echter. nu zet ik er een if regel tussen met als uitkomst next.
dan krijg ik de melding dat er een next zonder for is
hier gaat het over (zie de code)
For Each Sh In sNames
If Range("B17").Interior.Color = yellow Then If MsgBox("Het formaat klopt niet dit Tabblad moet u handmatig over zetten") = vbCancel Then Next Sh
Periode_1 t/m Periode_13 zijn tabbladen
Er wordt hier data uit een ander Excel bestand gehaald
daar kan een regel zijn toegevoegd en dat mag er niet (in het ander bestand) geplakt worden en moet er overgegaan worden naar een volgend tabblad
Code:
sNames = (Array("periode_1", "periode_2", "periode_3", "periode_4", "periode_5", "periode_6", "periode_7", "periode_8", "periode_9", "periode_10", "periode_11", "periode_12", "periode_13"))
Application.ScreenUpdating = False
For Each Sh In sNames
Sheets(Sh).Select
Range("B8:B16").Select
Selection.ClearContents
Range("D8:G16").Select
Selection.ClearContents
Range("I8:J16").Select
Selection.ClearContents
GoToUrenlijst
Sheets(Sh).Select
Range("B8:B16").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("B8").Select
ActiveSheet.Paste
If Range("B17").Interior.Color = yellow Then If MsgBox("Het formaat klopt niet dit Tabblad moet u handmatig over zetten") = vbCancel Then Next Sh
GoToUrenlijst
Range("I56:J64").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("I56").Select
ActiveSheet.Paste
Next Sh
End Sub
------------------------------------------------------------------
Sub GoToUrenlijst()
Dim wb As Workbook, x As String
For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then x = wb.Name
Next wb
Workbooks(x).Activate
End Sub
Bij voorbaat mijn dank