Conflicting codes?

[Mikal]

I have code that puts data into columns depending on weather or not the check box is checked. I also have code that checks the value of the cell and re-checks the box if >0 I Can't seem to get both codes to work, whichever on I have first works but the other doesn't. If I switch the order then the other works. Any Ideas?

Purchased Component Costs
If CheckBox1.Value = True Then
   Cells(PartNumRow, 9).Value = Cells(PartNumRow, 2).Value
Else
   Cells(PartNumRow, 9).Value = 0
End If

If Cells(PartNumRow, 9).Value > 0 Then
    Cells(PartNumRow, 8).Value = 0
     
Else
   Cells(PartNumRow, 8).Value = Cells(PartNumRow, 7).Value
  
  End If
If Cells(PartNumRow, 9).Value > 0 Then
CheckBox1.Value = True
Else
CheckBox1.Value = False
End If

 

[mole999]

The Red envelop is explained at the bottom of the forum page, red for hot topic

 

[Mikal]

Thanks to everyone that took a look a this. Through a series or Trail and error I was able to figure this out. For anyone interest it turned out to be pretty easy. Here is what I ended up with.

If Cells(PartNumRow, 9).Value > 0 Then CheckBox1 = True

'Purchased Component Costs
If CheckBox1.Value = True Then
   Cells(PartNumRow, 9).Value = Cells(PartNumRow, 2).Value
Else
   Cells(PartNumRow, 9).Value = 0
End If
If Cells(PartNumRow, 9).Value > 0 Then
    Cells(PartNumRow, 8).Value = 0
   
Else
   Cells(PartNumRow, 8).Value = Cells(PartNumRow, 7).Value
End If

 

[mole999]

now you have a solution. would you have asked the question differently ?