Anónimo
Asignar dos macros a un mismo botón
Tengo dos macros las cuales quiero enlazar a un mismo botón para que sean ejecutadas, las macros son estas:
LA PRIMERA:
Sub copipeg()
'
' copipeg Macro
'
'
Sheets("Segmentación").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabla por UA").Select
End Sub
LA SEGUNDA:
Sub elimina()
'elimino la hoja sin necesidad de confirmar
Application.DisplayAlerts = False
Sheets("DB Original").Delete
Application.DisplayAlerts = True
End Sub
1 respuesta
Quedaría así:
Sub Inicial()
Call copipeg
Call elimina
End Sub
'
Sub copipeg()
'copipeg Macro
Sheets("Segmentación").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabla por UA").Select
End Sub
'
Sub elimina()
'elimino la hoja sin necesidad de confirmar
Application.DisplayAlerts = False
Sheets("DB Original").Delete
Application.DisplayAlerts = True
End SubAsigna la macro inicial a un botón.
Procura realizar las preguntas no como anónimo, finalmente tu usuario puede ser cualquier nombre.
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
Muchísimas gracias Dante, una vez mas.
Tendré en cuenta las recomendaciones sin problema.
Una duda mas, si quisiera que antes de ejecutar esta macro, me pidiera confirmación de ejecución, como quedaría? Aceptar, Cancelar etc...
Gracias!
Con mucho gusto te ayudo con todas tus peticiones.
Sal u dos