Ejemplos de macros

‘MACROS SENCILLAS

Sub PegarValores()
‘Macro Pegar Valores
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

SubPegarValores()
' Esta Macro sirve para Hacer Pegado Especial
‘ Valida si no se copio antes y evita el error
' Acceso Directo Ctrl + Shift + V

On Error GoTo error1

Selection.PasteSpecialPaste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

conectado = True
Exit Sub

error1:
MsgBox "¡Debes copiar antes de Pegar!", vbExclamation, "Macro"
Exit SubEnd Sub

Sub NuevaHoja()
'Agrega Nueva Hoja y le da un nombre
Sheets.Add
nombrehoja = InputBox("Capture el Nombre deseado")
ActiveSheet.Name = nombrehoja
EndSub

Sub Copiarhoja()
‘Copiar una hoja y asignarle nuevo nombre
ActiveSheet.Copy
Beep
nombrelibro = InputBox("Capture El Nuevo Nombre de Archivo")
ActiveWorkbook.SaveAsFilename:=nombrelibro
End Sub

Sub Cambio ()
‘Cambio de signo en un rango
For Each Cell In Selection
If Cell.HasFormula = False Then
Cell.Value = Abs(cell.value)
End If
Next
End Sub

‘MACROS POR EVENTOSPrivate Sub Workbook_Open()
‘Macro Aviso al Inicio
MsgBox ("Hola, bienvenido a una demostración de macros automáticas por eventos")
sw = 1
End Sub

Private SubWorkbook_BeforeClose(Cancel As Boolean)
‘Macro Aviso de Salida
MsgBox ("Espero les halla gustado, la hoja se cierra.... !!!")
Cancel = False
End Sub

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, CancelAs Boolean)
‘Macro para guardar el libro con clave
opcion = MsgBox("¿De verdad desea guardar el libro?", vbYesNo)
If opcion = vbNo Then
Cancel = True
GoTo salida2
EndIf
entrada:
Mensaje = "Introduzca la clave para poder salvar el Archivo:"
Título = "INTRODUCCION DE LA CLAVE"
ValorPred = ""
clave = InputBox(Mensaje, Título, ValorPred)
If clave "clave"...