Como insertar celdas mediante macro, mostrar como se agregan celdas mediante macro, es el objeto de este post, en el anterior se mostró como se insertan columnas mediante macro, son códigos parecidos, no obstante tienen diferencias, se usa el mismo ejemplo adaptado, desde el link que se encuentra al final del post podrás descargar el ejemplo para que veas su funcionamiento y codificación.
El segundo código selecciona el rango B3 a C5 y posteriormente inserta, como en el caso anterior dos celdas y desplaza el contenido hacia la derecha, se debe notar que se insertan una cantidad de celdas idénticas a la seleccionada, si se desea insertar solamente una fila, se debe seleccionar una sola celdas.
El tercer ejemplo, permite insertar celdas cortadas, usando el comando «cut», también se puede insertar celdas copiadas con el comando «copy»; el código mostrado selecciona un rango en este caso B3 a C5 y lo corta; luego selecciona el rango donde se quiere pegar los datos cortados, una vez seleccionada la celda, pega los datos desplazando las celdas hacia la derecha.
El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y 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 debe ingresar en un módulo
Range(«B3:C5»).Select
Selection.Insert Shift:=xlDown
End Sub
Sub Inserceldal()
Range(«B3:C5»).Select
Selection.Insert Shift:=xlToRight
End Sub
Sub Insertcel()
Range(«B3:C5»).Cut
Columns(«G:G»).Select
Selection.Insert Shift:=xlToRight
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