Saltar al contenido

Macro copiar con un criterio ??

publicado

Hola buenas.

Necesitaria una macro para copiar pegra de una hoja a otra con un criterio.

Copiar pegar  L:R si en R >0

Salud2.

Featured Replies

publicado
  • Autor

Me doy cuenta que la explicación que doy es incompleta.

El rango a copiar es ejemplo L2:R50, en R hay valores de 0 en adelante solo quiero que copie las filas que R>0

Salud2….

publicado
Sub copiar()


With Worksheets("hoja1").Range("L2:R" & Range("L2").End(xlDown).Row).ClearContents
End With
Application.ScreenUpdating = False

'inicializo la variable j
J = 2

    'comienzo el bucle
    For i = 2 To Range("A65536").End(xlUp).Row
        'compruebo que el valor  sea mayor que 0
        If Cells(i, "R").Value = 0 Then
            'copio la fila entera y la pego
            Range(Cells(i, "L"), Cells(i, "R")).Copy Destination:=Sheets("hoja1").Cells(J, "A")
            'aumento la variable j para que vaya a la siguiente fila de la hoja filtros
            'cuando encuentre una nueva fila que cumple con la condición de mayor que cero
            J = J + 1
        End If
    Next

End With


Application.ScreenUpdating = True


End Sub

te dejo ese código a ver si te funciona solo modifica tus nombres de tus hojas

saludos

publicado
  • Autor

Me da error en End With

De todas formas no entiendo varias cosas en la macro

No ve diferenciar entre hoja origen y destino, solo hay Hoja1

Si el rango a copiar es L:R, esta orden en la macro 

Range("A65536")

Se refiere a la hoja de la copia ???

Salud2...

 

publicado

buen día @eugeniocol  sube un archivo de ejemplo por favor para alguien mas pueda ayudarte

saludos isidro

publicado
  En 14/8/2019 at 19:51 , eugeniocol dijo:

Me da error en End With

De todas formas no entiendo varias cosas en la macro

No ve diferenciar entre hoja origen y destino, solo hay Hoja1

Si el rango a copiar es L:R, esta orden en la macro 

Range("A65536")

Se refiere a la hoja de la copia ???

Salud2...

 

Hola

Llevas un buen tiempo por aqui y no subes archivo, ademas consultas sobre supuestos rangos

 

Saludos 

publicado

Y coloca la pregunta en todos los foros en castellano, a pesar de que ya le hemos dicho que no es necesario ya que varios somo usuarios concurrentes de varios de esos foros.

Un poco de paciencia y lectura le vendrían bien a nuestro amigo. OJO, no es deseo de no ayudarlo, al contrario, que se ordene un poco para que sea más fácil hacerlo.

Abraham Valencia

publicado
  • Autor

Perdon por la tradanza.

Pensaba que era sencilla la explicaion sin mas.
Bueno subo libro.
Hoja 1 datos a copiar.
Hoja2 destino de copia con criterio >0 en R.
Hoja2,Boton MACRO encontrada en san google funciona Ok, pero cuando la meto a rango 150.000 se eterniza en tiempo de ejecucion.

Un Saludo.

Foro copia con criterio.xlsmFetching info...

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.