Como pegar solamente valores de una celda a otra hoja

Sub CopiarImprimir()
'
' CopiarImprimir Macro
'
Application.ScreenUpdating = False

Sheets("Imprimir").Select
Worksheets("Imprimir"). Range("A4:C50"). Clear
Range("E4:J49"). Clear
Sheets("Planillas").Select
Sheets("Planillas"). Range("G4").Copy Destination:=Sheets("Imprimir"). Range("A1")

'Esta línea es la que trato de cambiar y no lo logro, por que mi intención es que solo 'pegue valores en la hoja "Imprimir" de dicha celda de origen.

'¿Podrán ayudarme?

Sheets("Planillas"). Range("A6:C51").Copy Destination:=Sheets("Imprimir"). Range("A4")

Sheets("Planillas"). Range("G6:H51").Copy Destination:=Sheets("Imprimir"). Range("E4")
Sheets("Planillas"). Range("K5:N5").Copy Destination:=Sheets("Imprimir"). Range("G3")
Sheets("Planillas"). Range("K6:N51").Copy Destination:=Sheets("Imprimir"). Range("G4")
Range("A4").Select

Respuesta
3

En el video Nº 71 de mi canal encontrarás todas las instrucciones necesarias (con imágenes) de los distintos copiados-pegados en VBA:

https://www.youtube.com/watch?v=gyIlEjsAEfo 

2 respuestas más de otros expertos

Respuesta
2

Cuando realizas el pegado en este caso después del copy destination:=sheets("imprimir"). Range("E4").

PasteSpecial Paste:=xlValues
Respuesta
1

Puedes utilizar el método .PasteSpecial con el argumento xlPasteValues

Sub CopiarImprimir()
    Application.ScreenUpdating = False
    Sheets("Imprimir").Range("A4:C50").Clear
    Sheets("Imprimir").Range("E4:J49").Clear
    Sheets("Planillas").Range("G4").Copy
    Sheets("Imprimir").Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False ' Limpiar el portapapeles después de pegar
    Sheets("Planillas").Range("A6:C51").Copy
    Sheets("Imprimir").Range("A4").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("Planillas").Range("G6:H51").Copy
    Sheets("Imprimir").Range("E4").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("Planillas").Range("K5:N5").Copy
    Sheets("Imprimir").Range("G3").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("Planillas").Range("K6:N51").Copy
    Sheets("Imprimir").Range("G4").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("Imprimir").Range("A4").Select
    Application.ScreenUpdating = True
End Sub

Este código copiará solo los valores de los rangos especificados de la hoja "Planillas" a los rangos correspondientes de la hoja "Imprimir" utilizando .PasteSpecial Paste:=xlPasteValues.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Access copiar el contenido de cuadro de texto con doble clic

Tengo un formulario con diferentes cuadro de texto que contienen información. Como puedo hacer para que al hacer doble clic sobre el contenido del cuadro de texto este se copie al portapapeles y poder usarlo.
2 respuestas

Cómo saber si se hizo Click en un Botón de Comando

Tengo un botón de comando en un formulario que al hacer Click o al estar sobre el y presionar enter cierra un formulario. Necesito detectar cuando se produjo una de estas acciones para inhabilitar un evento cancel de un cuadro de texto.
3 respuestas

How much does it cost to hire a professional app developer Dubai

Hello! If you have finally decided to have an app for your business, you need to look for a TOP MOBILE APP DEVELOPMENT AGENCY DUBAI. It doesn't matter if you are creating an app from scratch or re-launching the pre-existing one. You need to hire a...
12 respuestas

Resaltar numero de una hoja a otra

Como puedo modificar el siguiente código que resalta cualquier numero coincidente de la columna AL de la hoja cundí en los números del rango d2:K30 de la hoja pista Sub buscaCuadro() Dim nrop As String 'busca la combinación de nros en los cuadros de...
1 respuesta

Rellenar celdas vacías en rangos múltiples

En una hoja de Excel tengo una base de datos extensa, en un rango de A5:D1500, en el orden de las columnas contiene los siguientes datos: "A" Departamento, "B" Nombre, "C" Cargo, "D" Monto a pagar. La cantidad de empleados en cada departamento es...
2 respuestas

Cómo automatizar los datos en campo criterio

Necesito automatizar unos datos y me gustaría saber si se puede hacer. Regularmente tengo que ir cambiando el criterio de un campo FECHA en una consulta de la que depende un formulario, y para hacerlo me meto en la consulta en modo diseño y cambio la...
1 respuesta

Campo para crear folios alfanumérico

Tengo un un formulario donde me gustaría que el campo Folio fuese Auto: ej. GIC/SOL/0001-16. Donde 0001 es el consecutivo y 16 son los dos últimos dígitos del año en curso. Hasta ahora solo eh logrado que escriba "16-0001" pero no el "GIC/SOL". El...
2 respuestas

¿Cómo formular en excel una condición particular entre dos celdas?

Necesito ayuda para hacer una fórmula en excel que me permita indicarle al usuario si el valor de una celda esta contenida en otra. Específicamente una celda tiene un código alfanumérico y en otra esta una oración que debe contener ese código....
2 respuestas

Como guardar en dos líneas el contenido del txt_concepto en la hoja Movimientos

Con una consulta quiero que en la hoja movimientos me guarde en dos líneas el contenido del txt_concepto si hay dos líneas en el control de lo contrario que lo guarde en una. Así como lo digito en el control, quiero que de la misma forma me lo guarde...
2 respuestas

Ejecutar macro con el cambio en B1

Tengo 3 macros y quisiera que desde la elección de un combobox en una hoja estás se ejecuten. La elección del combobox se replica en B1 y es coincidente con los nombres de las macros. Gracias por todo ☺️
2 respuestas