Ejemplos de macros
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"...
Regístrate para leer el documento completo.