Code doesnt appear in cell as it should

[ipbr21054]

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.

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

 

[MARK858]

It is formatting I9 on the ActiveSheet because you haven't referenced/specified the sheet for it to act on.

 

[dmt32]

Range I9 is unqualified - try following update to your 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
 
 
    With .Range("I9")
        .Font.Size = 14
        .Font.Name = "Calibri"
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlVAlignCenter
    End With
    
End With
    Unload RangerPcbNumber
    
End Sub

Dave

 

[ipbr21054]

Thanks i now see my mistake.

Also I9 should of been I5

Thanks

 

[dmt32]

Thanks i now see my mistake.

Also I9 should of been I5

Thanks

welcome - glad we could help

Dave