Change macro to format cell on click Button

[Danilão]

Hi everybody ,
I would like to change code so that instead selecting the cell to press the button, just by pressing the button, execute at once .

 

[Belleke]

As far as I understand your question give this a try:

Sub CreateButton()
ActiveSheet.Range("N" & ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row).Select
With Selection
    .Offset(0, -3).Font.Color = RGB(0, 176, 80)
    .Offset(0, -3).Font.Bold = True
    .Offset(0, -3).ClearComments
    If Len(.Offset(0, -3).Value) > 0 Then .Offset(0, -3).AddComment
    .Offset(0, -3).Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
    .Offset(0, -3).Comment.Text Text:=UCase(Environ("username")) & Chr(10) & "Low in " & Format(Now())
     With .Offset(0, -3).Comment.Shape.TextFrame
        .Characters(1, Len(Environ("USERNAME"))).Font.Bold = True
        .AutoSize = True
    End With
End With
End Sub

 

[Danilão]

As far as I understand your question give this a try:

Sub CreateButton()
ActiveSheet.Range("N" & ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row).Select
With Selection
    .Offset(0, -3).Font.Color = RGB(0, 176, 80)
    .Offset(0, -3).Font.Bold = True
    .Offset(0, -3).ClearComments
    If Len(.Offset(0, -3).Value) > 0 Then .Offset(0, -3).AddComment
    .Offset(0, -3).Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
    .Offset(0, -3).Comment.Text Text:=UCase(Environ("username")) & Chr(10) & "Low in " & Format(Now())
     With .Offset(0, -3).Comment.Shape.TextFrame
        .Characters(1, Len(Environ("USERNAME"))).Font.Bold = True
        .AutoSize = True
    End With
End With
End Sub

Thanks a lot , Belleke !!!
Perfect !!!!

 

[Belleke]

Glad to help, and thanks for the feedback.