ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,224
- Office Version
- 2007
- Platform
- Windows
Hi,
Please could you take a look at my code and advise what i have done wrong.
I select an option button on a userform & transfer oit to my worksheet, This works fine.
What i need to do it format then the value in the cell I9 Bold Calibri etc etc but this is the part that has no affect.
Please could you take a look at my code and advise what i have done wrong.
I select an option button on a userform & transfer oit to my worksheet, This works fine.
What i need to do it format then the value in the cell I9 Bold Calibri etc etc but this is the part that has no affect.
Rich (BB code):
Private Sub CommandButton1_Click()
With ThisWorkbook.Worksheets("RANGER")
If OptionButton3.Value = True Then .Cells(lastrow + 5, 9).Value = "N 41601-501-41": OptionButton3.Value = False
If OptionButton4.Value = True Then .Cells(lastrow + 5, 9).Value = "N 41803-501-42": OptionButton4.Value = False
If OptionButton5.Value = True Then .Cells(lastrow + 5, 9).Value = "V 41803-501-43": OptionButton5.Value = False
End With
Range("I9").Font.Size = 14
Range("I9").Font.Name = "Calibri"
Range("I9").Font.Bold = True
Range("I9").HorizontalAlignment = xlCenter
Range("I9").VerticalAlignment = xlVAlignCenter
Unload RangerPcbNumber
End Sub