Hola,
Este código hace literalmente eso
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B2")) Is Nothing Then
Application.EnableEvents = False
Me.Range("B3").ClearContents
With Me.Range("B3").Validation
.Delete
Select Case Me.Range("B2").Value
Case 1
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="Avion,Barco"
Case 3
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="Barco"
Case Else
End Select
End With
Application.EnableEvents = True
End If
End Sub
Por
Israel Cassales, · publicado
Vocabulario, Glosario o Definiciones y Ayuda VBA
Las definiciones presentadas se incrementarán a media que pase el tiempo
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 (En la 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 macro
Application.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 Columna D
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 la celda 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 es 20.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 = xlLeft
End 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
End Sub