I am trying to make a checkbox copy a cell to a different location, and
in the cells original location put the result of the moved cell + a
waste percentage, in this case being 10% "1.1"
The code looked okay to be except everytime i check to box to start the
process it says sub or function not defined... please help me out if i'm
doing something stupid.

Thanks!
Code below!


Code:
--------------------
Private Sub CheckBox1_Click()
If Cell(Z20 = "1") Then
Range("G20").Select
Selection.Copy
Range("AA20").Select
ActiveSheet.Paste
Range("G20").Select
ActiveCell.FormulaR1C1 = "=RC[20]*1.1"
Range("G20").Select
ElseIf Cell(Z20 = "2") Then
Range("C20").Select
Selection.Copy
Range("AA20").Select
ActiveSheet.Paste
Range("C20").Select
ActiveCell.FormulaR1C1 = "=RC[20]*1.1"
Range("C20").Select
End If
End Sub
--------------------


--
foxgguy2005
------------------------------------------------------------------------
foxgguy2005's Profile: http://www.excelforum.com/member.php...o&userid=23663
View this thread: http://www.excelforum.com/showthread...hreadid=376988

Change your code to:

Private Sub CheckBox1_Click()
If Range("Z20") = "1" Then
Range("G20").Select
Selection.Copy
Range("AA20").Select
ActiveSheet.Paste
Range("G20").Select
ActiveCell.FormulaR1C1 = "=RC[20]*1.1"
Range("G20").Select
ElseIf Range("Z20") = "2" Then
Range("C20").Select
Selection.Copy
Range("AA20").Select
ActiveSheet.Paste
Range("C20").Select
ActiveCell.FormulaR1C1 = "=RC[20]*1.1"
Range("C20").Select
End If
End Sub



Changes:
You had Cell(Z20="1")
which you probably meant
Range("Z20")=1

Mangesh


--
mangesh_yadav
------------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...o&userid=10470
View this thread: http://www.excelforum.com/showthread...hreadid=376988

The problem with your code is that the results in C20 and G20 will be 1.1x
the start value depending on 20. so If z20=1 and G20 was 10 then BOTH C20 and
G20 will show 11. If Z20=2 and C20 =5 then the code will result in BOTH C20
and G20 having 5.5

Take a look at this code...I think you'll find it a little clearer to
follow...

Private Sub CheckBox1_Click()

Select Case Range("Z20")

Case 1
Range("AA20").Value = Range("G20").Value
Range("G20").Formula = Range("G20").Value * 1.1
Range("G20").Select

Case 2
Range("AA20").Value = Range("C20").Value
Range("C20").Formula = Range("C20").Value * 1.1
Range("C20").Select
End Select
End Sub

You don't need to use AA20 at all, unless you need to keep the original. If
you don't then the code could be re-written....

Private Sub CheckBox1_Click()

Select Case Range("Z20")
Case 1
Range("G20").Formula = Range("G20").Value * 1.1
Range("G20").Select

Case 2
Range("C20").Formula = Range("C20").Value * 1.1
Range("C20").Select

End Select
End Sub


HTH
Patrick


"foxgguy2005" wrote:


I am trying to make a checkbox copy a cell to a different location, and
in the cells original location put the result of the moved cell + a
waste percentage, in this case being 10% "1.1"
The code looked okay to be except everytime i check to box to start the
process it says sub or function not defined... please help me out if i'm
doing something stupid.

Thanks!
Code below!


Code:
--------------------
Private Sub CheckBox1_Click()
If Cell(Z20 = "1") Then
Range("G20").Select
Selection.Copy
Range("AA20").Select
ActiveSheet.Paste
Range("G20").Select
ActiveCell.FormulaR1C1 = "=RC[20]*1.1"
Range("G20").Select
ElseIf Cell(Z20 = "2") Then
Range("C20").Select
Selection.Copy
Range("AA20").Select
ActiveSheet.Paste
Range("C20").Select
ActiveCell.FormulaR1C1 = "=RC[20]*1.1"
Range("C20").Select
End If
End Sub
--------------------


--
foxgguy2005
------------------------------------------------------------------------
foxgguy2005's Profile: http://www.excelforum.com/member.php...o&userid=23663
View this thread: http://www.excelforum.com/showthread...hreadid=376988

i love you pa

--
foxgguy200
-----------------------------------------------------------------------
foxgguy2005's Profile: http://www.excelforum.com/member.php...fo&userid=2366
View this thread: http://www.excelforum.com/showthread.php?threadid=37698