vba excel copiar filas con condición Resuelto

Question

```html
Hola, No encuentro una solución a mi problema ... Tengo 2 hojas en 1 libro Quiero copiar cada fila de la hoja 1 que contenga un valor en la columna C, a la hoja 2 He pensado en los filtros..., pero preferiría un código que permita tener en cuenta todas las filas incluso si tengo filtros activos en la hoja  ¿Tienes la solución?
```

Armojax · Accepted Answer

Re, Ludivine,  Una pequeña macro...Sub FiltreLulu() Dim Lig As Long Dim Col As String Dim NbrLig As Long Dim NumLig As Long Sheets("Feuil2").Activate ' hoja de destino Col = "C" ' columna de la dato no vacío a probar NumLig = 0 With Sheets("Feuil1") ' hoja fuente NbrLig = .Cells(65536, Col).End(xlUp).Row For Lig = 1 To NbrLig If .Cells(Lig, Col).Value <> "" Then .Cells(Lig, Col).EntireRow.Copy NumLig = NumLig + 1 Cells(NumLig, 1).Select ActiveSheet.Paste End If Next End With End Sub

JF · Answer

lo que haré:
'inicio
-almacenar el filtro actual de la hoja 1 en una variable
-filtrar la hoja 1 para que contenga solo las filas con valores no nulos en la columna C.
-copiar toda la hoja 1 en la hoja 2
-aplicar el filtro guardado anteriormente

y eso es todo (es lo más simple)

Armojax · Answer

Hmm... extraño. ¿Has adaptado bien los 3 parámetros: nombre de la hoja de origen, nombre de la hoja de destino, columna a probar?

Armojax · Answer

Lo siento, no estuve aquí ayer...
A distancia es un poco difícil... Analiza tú mismo el contexto. Cuando falla, y tienes la línea resaltada en amarillo, no pares todo, y analiza el contexto:

1) Muestra la ventana de Variables locales, y mira los valores de las variables. Para que falle en un Select, el NumLig puede tener un aspecto extraño...

2) Muestra también la ventana Ejecutar. Puedes introducir comandos allí. Por ejemplo, preguntar cuál es la hoja activa, haciendo Print ActiveSheet.Name, etc. (puedes escribir un ? en lugar de Print, funciona igual).

Un poco brutalmente, analizo todas las líneas de la hoja fuente, incluidas las líneas de encabezado. Puedes modificar esto cambiando la línea de inicio en el For... Y de la misma manera, escribo a partir de la primera línea de la hoja de destino. Si tienes encabezados, aumenta en consecuencia el valor inicial de NumLig. Y probablemente deberías, antes de todo eso, borrar en la hoja de destino las líneas del resultado anterior. Es solo un modelo, que hay que adaptar...

momo · Answer

Tengo 6 hojas en un cuaderno, me gustaría copiar las filas de las hojas 1 a 5 de la columna I en las filas de la hoja 6 columna F
F1: 62 filas columna C
F2: 47 filas columna C
F3: 43 filas columna C hacia las filas de la hoja 6 columna F (hoja 6: 232 filas).
F4: 32 filas columna C
F5: 43 filas columna C

Vba excel copiar filas con condición

5 respuestas

Zonas de texto o formularios de word invisibles en pdf

[tabla de contenido de word] eliminar un número de página

La cámara traveler dc5 no enciende.

Error de firefox

Controlador no reconocido

Recuperación de archivos o carpetas

Problema de texturas en enshrouded

Cc cleaner y windows 7

Víctima de un robo bancario

Problemas de conexión de pc a internet