Pegar como valores en código no funciona values
Este es el código funciona bien pero pega all lo cambio a values y sigue pegando todo.
Sub unionhojas()
Sheets("Union").Select 'Recuerda nombrar una hoja con el nombre de Union
ultimf = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
For hoja = 2 To Sheets.Count
Sheets(hoja).Select
ufh = Range("A" & Cells.Rows.Count).End(xlUp).Row
Range("A2:C15" & ufh).Copy 'en esta linea puedes modificar el rango de celdas a copiar15
Sheets("Union").Select
ultimf = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range("A" & ultimf).PasteSpecial Paste:=xlValues
Next hoja
MsgBox ("Fin preceso informacion unida")
End Sub
2 respuestas
Yo haría varios cambios en tu código pero, tomando en cuenta el tuyo, por lo menos a mí me quedan algunas dudas. En tu macro estás usando "pegado especial" como "valores" entonces ¿qué problema ocurre? ¿No "pega" solo los valores o en realidad no es eso lo que quieres? O más bien sí es lo que quieres y cuando dices "all" es que está pegando algo más que valores.
Comenta
Abraham Valencia
Veo un detalle en tu macro, en esta línea:
Range("A2:C15" & ufh). CopySi por ejemplo, la variable ufh es igual a 70, tendrías esto:
Range("A2:C15" & 70). Copy
'
Range("A2:C1570"). CopyEs decir, estarías copiando desde la celda A2 hasta la celda 1570.
A lo mejor solamente quieres copiar hasta la celda C15, entonces tendrías que poner la línea así:
Range("A2:C15"). CopyO si quieres hasta la última fila con datos:
Range("A2:C" & ufh). CopyRevisa y me comentas.
Gracias
Es hasta el ultimo dato es decí: Range("A2:R" & ufh).Copy
Range("A" & ultimf).PasteSpecial Paste:=xlPasteAll
Esto estaba así, cambie xlpasteall por xlvalues y no me pega valores
Y me da error en esta línea
Range("A" & ultimf).PasteSpecial Paste:=xlPasteValues
Gracias.-
Qué mensaje de error te aparece
¡Gracias!
Ya encontré el problema, las celdas combinadas. Use otro tipo de pegado especial y se soluciono.
Ahora necesito una macro que recorra la hoja y me elimine filas según dos criterios.
Muchas gracias