Macro copiar con un criterio ??

[eugeniocol]

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.

[eugeniocol]

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

[isidrod]

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

[eugeniocol]

Me da error en End With

De todas formas no entiendo varias cosas en la macro

1º

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

2º

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

Range("A65536")

Se refiere a la hoja de la copia ???

Salud2...

 

[isidrod]

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

saludos isidro

[isidrod]

checa estos 

https://excelyvba.com/macro-para-copiar-y-pegar-celdas-en-excel/

https://www.todoexpertos.com/preguntas/5ka43xsgjoxfherf/copiar-celdas-de-una-hoja-a-otra-segun-un-criterio

[Gerson Pineda]

Hace 19 horas, eugeniocol dijo:

Me da error en End With

De todas formas no entiendo varias cosas en la macro

1º

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

2º

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 

[Abraham Valencia]

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

[Gerson Pineda]

Ya no se que decir ?

[eugeniocol]

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

[bigpetroman]

amigo @eugeniocol, revisa el anexo, coloque dos formas de hacerlo, hay muchas formas de hacerlo, pero la forma como esta en tu macro, pues es la peor jejeje, suerte

Foro copia con criterio.xlsm

[eugeniocol]

Perfecto

Gracias.

Salud2...