Cómo hacer que la Lista despegable quede sin celdas vacías
En el rango K2:M300 tengo celdas celdas con datos y celdas vacías. Desearía saber de una macro para copiar solamente las celdas con datos, en las columnas AA, AB y AC
2 respuestas
Te anexo la macro
Sub CopiarCeldas()
'Por.Dante Amor
Range("K2:K300").SpecialCells(xlCellTypeConstants, 23).Copy
Range("AA2").Select
ActiveSheet. Paste
Range("L2:L300").SpecialCells(xlCellTypeConstants, 23).Copy
Range("AB2").Select
ActiveSheet.Paste
Range("M2:M300").SpecialCells(xlCellTypeConstants, 23).Copy
Range("AC2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
Sigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: CopiarCeldas
- Aceptar.
- Para ejecutarla dale click a la imagen.
Juan Carlos, esta macro realiza ese proceso.
Sub Copiar_Sin_Blancos()
Range("K2:M300").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection. Copy
Range("AA2"). PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("AA2").Select
End SubEso también lo puedes hacer sin necesidad de una macro. Haz lo siguiente:
1º Selecciona el rango que quieres copiar, en este caso K2:M300
2º Vete a Inicio->Buscar y seleccionar->Ir a Especial
3º Activa la opción Constantes, verás que sólo selecciona las celdas con datos. Copia esas celdas.
4º Sitúate en la celda donde quieres copiar y pega la selección. Listo.
También se puede hacer con fórmulas matriciales, pero es mejor cualquiera de estos dos sistemas.
Si te ha valido la respuesta.