Home > Foro de Excel >

Debates de Excel > Pegar valores

Aprender con los mejores expertos
Compartir lo que sabes
Disfrutar de la biblioteca compartida

Foro de Excel

Debates >

Pegar valores

ALEJANDRO Córdoba, Argentina Ver su 1 debate		Escrito por Alejandro Carrizo el 10 de Octubre Buenas tardes, antes que nada quiero agradecerles a todos por la ayuda. Bueno la pregunta que tengo es la siguiente: como hago para copiar y pegar valores en la siguiente macro? As ¡Como esta actualmente me guarda las formulas. Esta es la macro: Private Sub CommandButton1_Click() Dim wb As Workbook Set wb = Workbooks. Add ThisWorkbook. Worksheets(2). Cells. Copy Destination:=wb. Worksheets(1). Cells Application. CutCopyMode = False With wb . SaveAs Filename:=ThisWorkbook. Path & "" & _ ThisWorkbook. Names("name_a"). RefersToRange. Text . Close End With Application. DisplayAlerts = True MsgBox "Proceso terminado. ", vbInformation + vbOKOnly, "Mensaje" End Sub Muchas gracias.
		Ver mensaje

Escrito por Armando Montes el 10 de Octubre

Hola Alejandro, solo es un ligero cambio, en vez de:
ThisWorkbook. Worksheets(2). Cells. Copy Destination:=wb. Worksheets(1). Cells
Usa esto:
ThisWorkbook. Worksheets(2). Cells. Copy
wb. Worksheets(1). Cells. PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Ver mensaje

Escrito por Alejandro Carrizo el 10 de Octubre

Buenas tardes, le agradesco su ayuda.
le comento que lo puse de la siguiente manera:

thisworkbook. Worksheets(2). Cells. Copy
selection. Pastespecial paste:=xlvalues

y me funciono, el tema es que ahora necesito que me pegue todo( en particular valores y formatos de celdas) excepto las formulas.

un saludo y muchas gracias.

Ver mensaje

Escrito por Armando Montes el 10 de Octubre

Usa la sintaxis sugerida:
PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Eso copia valores y formatos.

Ver mensaje

Escrito por Armando Montes el 10 de Octubre

Quise decir:
Eso PEGA valores y formatos.

Ver mensaje

Escrito por Alejandro Carrizo el 10 de Octubre

Si señor entiendo, pero no me pega los formatos de las celdas, por ej. Bordes, tamaños, etc. Muchas gracias

Ver mensaje

Escrito por Armando Montes el 10 de Octubre

Eso no lo entendi antes, solo agrega:
Selection. PasteSpecial Paste:=xlPasteFormats

Ver mensaje

Escrito por Alejandro Carrizo el 10 de Octubre

esta bien señor , lo que pasa es que ahora me pega los formatos de las celdas y no los valores, yo necesito que me pegue todo excepto las furmulas (o sea los valores y los formatos).
cree que sera mejor si le mando el archivo?

Ver mensaje

Escrito por Alejandro Carrizo el 10 de Octubre

Ya lo entendi y me funciona, un saludo y muchas gracias.

Ver mensaje

Escrito por Armando Montes el 10 de Octubre

Me alegra que lo hayas solucionado y que hayas avisado, con frecuencia ni siquiera sabemos si leyeron la propuesta.
Una forma facil para obtener codigos como el aqui mencionado es encender la grabadora de macros, realizar manualmente las operaciones, apagar la grabadora, analizar y editar el codigo para eliminar instrucciones innecesarias como SELECT, que pocas veces es indispensable.
Este codigo de la grabadora:
Sub Macro1()
Range("B1:B3"). Select
Selection. Copy
Range("G1"). Select
Selection. PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection. PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
Puede esitarse asi:
Sub Macro2()
Range("B1:B3"). Copy
Range("G1"). PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Selection. PasteSpecial Paste:=xlPasteFormats
End Sub

Ver mensaje