CommandButton VB Help

Hi was writing a VB for a commandButton that I could click that perform Copy and Paste.

But I get an Error of Runtime Error"1004", applicaition define or Range Define Error.

The Range I am pointing to is at another sheet in the same workbook.

I can run this without error if i'm not using a Command Button.

Here is my code:

Private Sub CommandButton2_Click()

If (Range("Current_Period") = 1) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 2) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D29").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 3) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D39").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 4) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D49").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 5) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D59").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 6) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D69").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


ElseIf (Range("Current_Period") = 7) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D79").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


ElseIf (Range("Current_Period") = 8) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D89").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


ElseIf (Range("Current_Period") = 9) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D99").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 10) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D109").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 11) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D119").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 12) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D129").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End If

End Sub

Private Sub UpdateYTD_Click()

'
' UpdateYTDFD Macro
' Macro recorded 27/11/2006 by AUKwokTi
'

'Copy the monthly figures into the YTD Sheet for fixed Distribution

'

If (Range("Current_Period") = 1) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 2) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D29").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 3) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D39").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 4) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D49").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 5) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D59").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 6) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D69").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


ElseIf (Range("Current_Period") = 7) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D79").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


ElseIf (Range("Current_Period") = 8) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D89").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


ElseIf (Range("Current_Period") = 9) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D99").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 10) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D109").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 11) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D119").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 12) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D129").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End If


'
End Sub

I don't know what i have done wrong,please help.!!

Originally Posted by Bryan Hessey

Hi,

first suspect would be the currently active sheet when you click the buttons, is it always from the same sheet or do you need to .Activate it at the start of your code?

Please Login or Register  to view this content.

is a little shorter to debug, but as far as I could see will do the same. Was there a difference between the two sets of code?

Try with a sheet activated and let me know how you go
---

Thanks Bryan,
It work out perfectly.