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
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.
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.