create a button that do actions

[kerm007]

hello
i create a macro to merge cell , put a border, insert yellow in the cell and type a text
.
how to create a button that i can press when i need to do it for other cell i want to do this action to?
here the code

Sub Tickets_Received()
'
' Tickets_Received Macro
' Merge Cell highlight and Put Text
'
' Keyboard Shortcut: Ctrl+t
'
    ActiveWindow.SmallScroll Down:=72
    Range("I88").Select
    ActiveWindow.SmallScroll Down:=-64
    Range("F28:I28").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "Received"
    Range("F29").Select
End Sub

Thanks

 

[Michael M]

Maybe

Sub Tickets_Received()
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .ReadingOrder = xlContext
    End With
    Selection.Merge
    With Selection.Borders
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
    End With
    With Selection.Font
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.Value = "Received"
    Range("F29").Select
End Sub

 

[kerm007]

hello
no what i want is what ever line i select i want an action button that will do what the code is doing
it could be anywhere

Thanks

 

[NoSparks]

@kerm007
There are 1,048,576 rows on a sheet and 16,384 columns which totals over 17 billion cells.
it could be anywhere is not very specific.

try post #10 and tell me what it isn't doing right.

 

[kerm007]

hello
yes it work should i add the code to the sheet or create a macro and then assign a button ?
Thanks

 

[kerm007]

i also notice if i do it 2 time on the same line it merge all
Thanks

 

[kerm007]

i tries again and if i select h25 to k25 it's doing it starting at F
can we do action no matter the selection i made ?
Thanks

 

[kerm007]

Maybe

Sub Tickets_Received()
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .ReadingOrder = xlContext
    End With
    Selection.Merge
    With Selection.Borders
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
    End With
    With Selection.Font
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.Value = "Received"
    Range("F29").Select
End Sub

Hello if i run the code manually from devlopper it seems to do what i want
if i assign the code to a button it doesn't work
what im doing wrong ?
Thanks

 

[kerm007]

ok i get it need to insert the code after the button click
Thanks

 

[kerm007]

hello is it normal that the cursor return to F29 ?
Thanks

 

[Michael M]

If you don't want it to return to F29, delete the 2nd last line in the code