Jump to content

Recommended Posts

Hola a todos, 

por favor si alguien me puede ayudar con esta macro para que los datos que copia se peguen como valores,ya que actualmente  copia con todo y formula el contenido de la celda F7.

 

Sub completa()
'Rellena la columna F hasta la ultima fila con datos de la columna E

'Se detecta la última fila con
uf = Range("E10").End(xlDown).Row 'desde donde inicia

'Se detecta el rango a rellenar
rango = Range(Cells(10, 6), Cells(uf, 6)).Address
                                         

'Luego se Rellena el rango con el contenido de la celda F7
Range("F7").Copy Range(rango) 'es desde donde se autocompletara

End Sub

 

Gracias

Link to post
Share on other sites
Hace 2 horas, YianTheJOP dijo:

 Range("F7").PasteSpecial xlPasteValues 

Application.CutCopyMode=False

 

(No sé si es esto lo que necesitas).

 

 

Hola YianTheJop, la celda F7 contiene lo que se va copiar y luego se copia desde la celda F11 hacia abajo (hasta la altura de la  última fila con datos de la columna B y lo que necesito que cuando lo copie desde la celda F11 hacia abajo sea como valores 

Edited by Manuel TR
Link to post
Share on other sites
Hace 6 horas, Manuel TR dijo:

La celda F7 contiene una fórmula, que es la que se copia luego y como resultado me da "03" y lo que necesito es que cuando se copie como valor se muestre el resultado con el cero adelante

Me sucedió algo similar en una ocasión con códigos postales y mi solución fue darles a todas las celdas de la columna el formato a texto.

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy