kkkaura
04-01-2016, 06:35 AM
Hi,
I have been trying to write an IF but keep getting the compile error "END IF WITHOUT BLOCK IF", here is my code:
Sub COPYPAST010416()
'
' COPYPAST010416 Macro
'
'
' If CheckBox1.Value = True Then
Do
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-48
Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
Range("T6").Select
Do
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Ing PPV").Select
ActiveWindow.SmallScroll Down:=0
Do
Range("F7").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Do
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
Please can you help
I have been trying to write an IF but keep getting the compile error "END IF WITHOUT BLOCK IF", here is my code:
Sub COPYPAST010416()
'
' COPYPAST010416 Macro
'
'
' If CheckBox1.Value = True Then
Do
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-48
Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
Range("T6").Select
Do
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Ing PPV").Select
ActiveWindow.SmallScroll Down:=0
Do
Range("F7").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Do
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
Please can you help