.
✅Como Ejecutar Macro 💥💥Condicionada por Valor de una Celda
En esta oportunidad te presento una macro que se ejecuta dependiendo del valor de una celda, es decir que la macro evaluará el valor de una celda determinada si coincide con el valor establecido ejecuta la macro.
Si estás trabajando con textbox quizás te interesen las macros presentadas anteriormente, una consiste en una macro que solo permite en el Textbox ingresar texto o string, otra es una macro que sólo deja ingresar números en los Textbox, otra es macro que escribe las barras automáticamente al ingresar las fechas.
Te recomiendo para mejorar tu manejo de Excel hacer click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet, te lo recomiendo no te arrepentirás.
En el ejemplo, la macro ingresa valores desde el 4 al 16 de la columna A a la G, si el valor de la celda A1 es igual a 1 si es igual a 0 borra los valores de dicho rango. En el vídeo que sigue podrás ver su funcionamiento y explicación en forma más gráfica.
Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.
if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}
Código que se inserta en un Formulario
Sub borra()
Range(«A4:G16»).Clear
End SubSub llena()
For j = 1 To 7
For i = 4 To 16
Cells(i, j) = i
Next i
Next j
End Sub
Código que se inserta en el objeto hoja
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
If Cells(Target.Row, Target.Column) = 1 Then
Call llena
ElseIf Cells(Target.Row, Target.Column) = 0 Then
Call borra
End If
End If
End Sub
Range(«A4:G16»).Clear
End Sub
Sub llena()
For j = 1 To 7
For i = 4 To 16
Cells(i, j) = i
Next i
Next j
End Sub
Código que se inserta en el objeto hoja
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
If Cells(Target.Row, Target.Column) = 1 Then
Call llena
ElseIf Cells(Target.Row, Target.Column) = 0 Then
Call borra
End If
End If
End Sub
.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends