Copiar datos según condición elimpnando celdas no filas
Necesito copiar la columna preventivo a la derecha de la misma pero que solo incluya los datos que no son 0 y sin espacios entre los datos es decir que no existan filas vacías entre ellos.
1 Respuesta
Respuesta de Dante Amor
1
Ejecuta la siguiente macro.
Cambia en la macro "B" por la columna preventivo y "C" por la columna destino. Los datos deben empezar en la fila 2
Sub Copiar_Prev() 'Por.Dante Amor c1 = "B" 'columna preventivo c2 = "C" 'columna destino ' Columns(c2).ClearContents j = 2 For i = 2 To Range(c1 & Rows.Count).End(xlUp).Row If Val(Cells(i, c1).Value) <> 0 Then Cells(j, c2).Value = Cells(i, c1) j = j + 1 End If Next MsgBox "Fin" End Sub
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: Copiar_Prev
- Aceptar.
- Para ejecutarla dale click a la imagen.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
como puedo hacer para limpiar el contenido de solo una parte de la columna y no la columna completa?
Cambia esta línea
Columns(c2). ClearContents
Por esta:
Range("C2:C100"). Clearcontentssal u dos
