publicado el 13 de agosto5 años 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.
publicado el 14 de agosto5 años 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 el 14 de agosto5 años 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 el 14 de agosto5 años Autor 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...
publicado el 15 de agosto5 años buen día @eugeniocol sube un archivo de ejemplo por favor para alguien mas pueda ayudarte saludos isidro
publicado el 15 de agosto5 años 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
publicado el 15 de agosto5 años 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 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
publicado el 15 de agosto5 años 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 el 16 de agosto5 años 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...
publicado el 17 de agosto5 años 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.xlsmFetching info...
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.