Macro buttons

[graiggoriz]

Hello,

I use Excel 2007 and I have created to macros. Those work perfectly well as long as I am in the correct cell.

I wanted to be able to run the macro whereever I would be in the worksheet and mostly assign my 2 macros to 2 buttons. I Did assign the macro to the button but I still have to be on the correct cell before pushing on my button.

--> My question is: would it be possible to fix the macro and start it pushing on my button whereever I would be in the sheet?

Many thanks in advance
Graig

[Bob Phillips]

Show us the code, can't even start without that, and give details of what it needs to do..

[graiggoriz]

Sorry about that. So the first Macro is saving data:
Sub Macro9()
'
' Macro9 Macro
'
' Keyboard Shortcut: Ctrl+m
'
Sheets("Alta activa").Select
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
Sheets("Datos Clientes").Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Select
End Sub


And the second one is clearing data:
Sub Macro9()
'
' Macro9 Macro
'
' Keyboard Shortcut: Ctrl+m
'
Sheets("Alta activa").Select
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
Sheets("Datos Clientes").Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Select
End Sub

[graiggoriz]

Sorry the second one is about to clean some data:

Sub clean()
'
' clean Macro
'
' Keyboard Shortcut: Ctrl+b
'
ActiveCell.Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(0, 3).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(-2, -3).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(-1, 4).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, -4).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 2).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, -3).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(3, -1).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(3, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(0, 3).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(0, -3).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, -1).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(0, -3).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(-29, 0).Range("A1").Select
End Sub

[royUK]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[Bob Phillips]

As well as the code tags, you have not given us any hint of what you want to do as I asked.

As a starter, don't select. For instance, instead of

Please Login or Register  to view this content.

use

Please Login or Register  to view this content.