electrico

 
ActiveCell.FormulaR1C1 = "Recurso"
:
Escribe en la celda activa "Recurso"
ActiveCell.Offset(0, 1).Select
:
Muevete una columna a la derecha
ActiveCell.Offset(0, -1).Select
:
Muevete una columna a la izquierda
ActiveCell.Offset(1, 0).Select
:
Muevete 1 fila hacia abajo
ActiveCell.Offset(-1, 0).Select
:
Muevete 1 fila hacia arriba
ActiveSheet.Paste
:
Pega en la Hoja activa (Enla hoja q este ubicado)
ActiveWindow.DisplayGridlines = False
:
Ocultar el borde de las celdas
ActiveWindow.DisplayGridlines = True
:
Mostrar el borde de las celdas
ActiveWindow.DisplayHeadings = False
:
Ocultar las columnas
ActiveWindow.DisplayHeadings = True
:
Mostrar las columnas
ActiveWindow.WindowState = xlMaximized
:
Maximiza
ActiveWindow.WindowState = xlMinimized
:Minimiza
ActiveWorkbook.Close
:
Cerrar Libro Activo
ActiveWorkbook.Save
:
Guardar Libro Activo
Application.CutCopyMode = False
:
Desahabilita copiar
Application.DisplayAlerts = False
:
Desacativar alertas de Excel
Application.DisplayAlerts = True
:
Activar alertas de Excel
Application.ScreenUpdating = False
:
Quitar parpadeo pantalla cuando se ejecuta la macroApplication.ScreenUpdating = True
:
Activar parpadeo pantalla cuando se ejecuta la macro
Call
:
Llamar un Procedimiento o Macro
Cells
:
Celda
Cells(7,2).Select
:
Selecciona la celda B7
Cells.Delete
:
Elimina todas las celdas
Cells.Select
:
Selecciona todas las celdas
Columns("A:I").EntireColumn.AutoFit
:
Margen automático desde las columnas A a la I
Columns("D:D").Select
:
Selecciona la ColumnaD
Hoja1.Name = "Inventario"
:
El nombre de la Hoja1 será "Inventario"
Hoja1.Visible = xlSheetVisible
:
Muestra la Hoja1
Hoja1.Visible =xlSheetHidden
:
Oculta la Hoja1
Hoja2.Cells(1, 3) = "Cantidad"
:
Escribe en la celda C1 "Cantidad"
Hoja2.select
:
Selecciona la Hoja2
Range
:
Rango
Range("A2:F2").Select
:
Selecciona de la celda A2 a la F2
Range("B7").Select
:
Selecciona lacelda B7
Select
:
Seleccionar
Selection.ClearContents
:
Limpiar contenido o información de la celda
Selection.Copy
:
Copiar selección
Selection.Cut
:
Cortar selección
Selection.EntireColumn.Delete
:
Elimina la columna selecciona
Selection.Font.Bold = True
:
Selecciona y pone la letra en Negrita
Selection.NumberFormat = "#,##0.00"
:
El formato seleccionado númerico es20.000,54
Sheets("Hoja2").select
:
Selecciona la Hoja2
Hoja2.select
:
Selecciona la Hoja2



Windows("Macros Excel.xls").Activate
:
Selecciona o Activa el libro "Macros Excel.xls"



Alinear el contenido al Centro

With Selection

:
    .HorizontalAlignment = xlCenter


End With



Alinear el contenido al Izquierda

With Selection

:
    .HorizontalAlignment = xlLeftEnd With



Alinear el contenido al Derecha

With Selection

:
    .HorizontalAlignment = xlRight


End With



MsgBox
:
Mensaje
MsgBox Configuración
:
MsgBox Mensaje, Icono, Titulo
InputBox
:
Caja de Texto para Introducir valores con Aceptar y Cancelar
Empty
:
Limpiar



If - Then - Else - End If
:
Preguntas con condiciones similar a la función SI. Ejemplo:If Edad => 18 Then


    MsgBox "Es mayor de edad", vbInformation, "Respuesta"


Else


    MsgBox "No es mayor de edad", vbInformation, "Respuesta"


End If



Select Case - Case - End Select

Variable con Condiciones Ejemplo:


Select Case Edad


Case 1 To 17


    MsgBox "No es mayor de edad", vbInformation, "Respuesta"


Case 18 To 80


    MsgBox "Es mayorde edad", vbInformation, "Respuesta"


End Select



Crear, añadir nuevas hojas

Private Sub Workbook_NewSheet(ByVal sh As Object)


Application.DisplayAlerts = False


MsgBox "Opción deshabilitada", vbExclamation, "PROHIBIDO"


sh.Delete


Application.DisplayAlerts = True


End Sub



Crear casillero de contraseña

Dim contraseña As String


contraseña =...