Macro button

[sknight0980]

I have recoded a macro to simply delete unwanted cells but I have a button on another tab which I want to control it. I have assigned the macro to the button but how can I get it to execute the function on the other tab in the same worksheet?

 

[Norie]

You would need to change the recorded code so that it references the sheet you actually want the code to run on.

 

[sknight0980]

You would need to change the recorded code so that it references the sheet you actually want the code to run on.

So this is my code - I want to have the button on one tab and for it to action the data on the other tab called data. Do I need to add in something to make it reference that tab?



Sub datasort()
'
' datasort Macro
'


'
Cells.Select
Cells.EntireColumn.AutoFit
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Columns("G:G").Select
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft
Columns("I:Z").Select
Selection.Delete Shift:=xlToLeft
Columns("K:K").Select
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft
ActiveWindow.LargeScroll ToRight:=-1
Rows("1:1").Select
Selection.Font.Bold = True
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("A1").Select
End Sub

 

[kvsrinivasamurthy]

Right click on the button --> Copy
Select the second sheet.
Rightclick --> Paste

 

[Fluff]

Put this

Sheets("Data").Activate

above the Cell.select line

 

[L. Howard]

You can clean up your code using something like this line of code instead of all the selecting...

Howard

Sub Del_Columns()

    Range("A:A,D:E,G:H,J:K,M:N,P:P").EntireColumn.Delete

End Sub