End if without block if ??

[travelboo]

Why is this not working ?? Any ideas people ?


sub()

For i = 1 To 2
If i = 1 Then Worksheets("EUR Collection").Select
If i = 2 Then Worksheets("GBP Collection").Select
finalrow = Cells(Rows.Count, 1).End(xlUp).Row
Rows("6:6").Select
Range("D6").Activate
Application.CutCopyMode = False
Selection.Copy
Rows(finalrow).Offset(-49).Resize(50).Select
Rows(finalrow).Offset(-49).Resize(50).Activate
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
i = i + 1


End If
Next i

end sub

 

[JackDanIce]

Your syntax is incorrect, try:

Sub MyMacro()
For i = 1 To 2
  If i = 1 Then Worksheets("EUR Collection").Select
  If i = 2 Then Worksheets("GBP Collection").Select
  finalrow = Cells(Rows.Count, 1).End(xlUp).Row
  Range("D6").Copy
  Rows(finalrow).Offset(-49).Resize(50).PasteSpecial Paste:=xlPasteFormats
Next i
End sub

 

[VoG]

You had an extraneous End If. Try

Sub test2()

For i = 1 To 2
    If i = 1 Then
        Worksheets("EUR Collection").Select
    ElseIf i = 2 Then
        Worksheets("GBP Collection").Select
    End If
    finalrow = Cells(Rows.Count, 1).End(xlUp).Row
    Rows("6:6").Select
    Range("D6").Activate
    Selection.Copy
    Rows(finalrow).Offset(-49).Resize(50).Select
    Rows(finalrow).Offset(-49).Resize(50).Activate
    Selection.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
Next i

End Sub

 

[RoryA]

Both of your If statements use the single line form, so there is no need for your End If statement.

 

[stilesbn]

It looks to me like you're missing an End If. You have two If statements but you are only closing one of them at the end.

 

[travelboo]

Thanks - that works nicely