Macro que pegue los datos como valores en el destino y no como fórmula

En los comentarios del código esta la problemática. Funciona casi todo bien, excepto que en la hoja "auxiliar Provisorio" se pegan las fórmulas y por consiguiente muestra error, necesito que se peguen como valores en las celdas J, C, D, E, F, H

Sub Copiar_Datos()

Set h1 = Sheets("orden de compra") 'hoja origen
Set h2 = Sheets("Auxiliar Provisorio") 'hoja destino
u2 = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 'QUE COLUMNA ENCONTAR VACIA PARA COMENZAR A COPIAR
h1.Range("n3").Copy h2.Range("y" & u2) 'EN QUE COLUMNA COPIAR EL DATO
h1.Range("g6").Copy h2.Range("x" & u2)
H1. Range("g9"). Copy h2.Range("B" & u2)
H1. Range("g10"). Copy h2.Range("k" & u2)
H1. Range("g11"). Copy h2. Range("j" & u2) 'el dato que se copiara en j debe ser en formato valores y no copie la formula
h1. Range("g12"). Copy h2. Range("C" & u2) 'el dato que se copiara en c debe ser en formato valores y no copie la formula
h1. Range("g13"). Copy h2. Range("D" & u2) 'el dato que se copiara en e debe ser en formato valores y no copie la formula
h1. Range("g14"). Copy h2. Range("E" & u2) 'el dato que se copiara en f debe ser en formato valores y no copie la formula
h1. Range("a20"). Copy h2. Range("F" & u2) 'el dato que se copiara en g debe ser en formato valores y no copie la formula
h1. Range("b20"). Copy h2.Range("G" & u2)
H1. Range("c20"). Copy h2. Range("H" & u2) 'el dato que se copiara en h debe ser en formato valores y no copie la formula
h1. Range("d20"). Copy h2.Range("I" & u2)
H1. Range("e20"). Copy h2.Range("R" & u2)
H1. Range("i20"). Copy h2.Range("O" & u2)
H1. Range("j20"). Copy h2.Range("Q" & u2)
H1. Range("n20"). Copy h2.Range("S" & u2)
H1. Range("o20"). Copy h2.Range("T" & u2)
H1. Range("p20"). Copy h2.Range("U" & u2)
H1. Range("q20"). Copy h2.Range("V" & u2)
MsgBox "Datos copiados a Auxiliar Provisorio", vbInformation
End Sub

1 Respuesta

Respuesta
1

En lugar de copiar, puedes "pasar" el dato de una hoja a otra, por ejemplo, solamente tienes que indicar cuál celda de la h2 va a ser igual a cuál celda de la h1

Sub Copiar_Datos()
    '
    Set h1 = Sheets("orden de compra") 'hoja origen
    Set h2 = Sheets("Auxiliar Provisorio") 'hoja destino
    u2 = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 'QUE COLUMNA ENCONTAR VACIA PARA COMENZAR A COPIAR
    '
    h2.Range("y" & u2) = h1.Range("n3").Value
    h2.Range("x" & u2) = h1.Range("g6").Value
    h2.Range("B" & u2) = h1.Range("g9").Value
    h2.Range("k" & u2) = h1.Range("g10").Value
    h2.Range("j" & u2) = h1.Range("g11").Value
    h2.Range("C" & u2) = h1.Range("g12").Value
    h2.Range("D" & u2) = h1.Range("g13").Value
    h2.Range("E" & u2) = h1.Range("g14").Value
    h2.Range("F" & u2) = h1.Range("a20").Value
    h2.Range("G" & u2) = h1.Range("b20").Value
    h2.Range("H" & u2) = h1.Range("c20").Value
    h2.Range("I" & u2) = h1.Range("d20").Value
    h2.Range("R" & u2) = h1.Range("e20").Value
    h2.Range("O" & u2) = h1.Range("i20").Value
    h2.Range("Q" & u2) = h1.Range("j20").Value
    h2.Range("S" & u2) = h1.Range("n20").Value
    h2.Range("T" & u2) = h1.Range("o20").Value
    h2.Range("U" & u2) = h1.Range("p20").Value
    h2.Range("V" & u2) = h1.Range("q20").Value
    '
    MsgBox "Datos copiados a Auxiliar Provisorio", vbInformation
End Sub

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Filtrar ultima fecha según el criterio de una celda

Tengo una tabla de excel con la siguiente información Columna A el código del equipo. (Código único para cada equipo) Columna B la fecha en que se realizo la ultima revisión. Columna C el nombre del equipo. Columna D El tipo de revisión (preventivo,...
2 respuestas

Ocultar entorno access navegar por formularios e informes

Quiero ocultar el entorno de access pero que todo funcione tanto formulario como informes y que el icono salga en la barra de tareas
1 respuesta

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
2 respuestas

Como poder bloquear tablas de access

Tengo un sistema dividido tablas y los formulario y quiero evitar que puedan entrar a las tablas así evito que modificquen algo
2 respuestas

Suma en un formulario de Excel

Estoy realizando un formulario, el cual al salir del ultimo texbox me sume los anteriores, he usado el siguiente código Private Sub base0_Change() On Error Resume Next Me.totalfactura = Round((Me.base0 + Me.base10 + Me.base21 + Me.base4 + Me.base5) +...
2 respuestas

Me pide contraseña al cerrar la base de datos

Hoy me ha ocurrido una cosa que no me ha pasado nunca, al cerrar la BD me pide contraseña. He mirado todo lo que se me ha ocurrido y no doy con lo que puede ser. Solo me ocurre con una BD en concreto, y que no he hecho nada en particular en la misma....
2 respuestas

Copiar dato de una celda para filtrar una tabla en otra hoja

En la primera hoja tengo una tabla con datos que alimenta otra tabla que se encuentra en una segunda hoja. Quisiera una macro que copie el contenido de la celda que tenga seleccionada, después ir la segunda hoja y filtrar ese dato en la tabla que ahí...
2 respuestas

Pasar de hoja resumen a plantilla de factura

Tengo un Excel, con un hoja resumen de datos, y lo que quisiera hacer, es que me pasara los datos que tengo en cada línea de la hoja resumen de forma de forma automática, a diferentes hojas de excel del mismo libro, en unas celdas concretas,...
3 respuestas

Access 2013 - Formulario para logear usuarios con contraseña

Estoy planeando agregarle a mi base de datos, un formulario para que logueen distintos usuarios. He estado viendo videos y me doy una idea. Pero mi base de datos está dividida en front y back end, he leído por ahí que eso puede ser un problema al...
3 respuestas

Buscar la ultima fecha de mantenimiento

Tengo una tabla de excel hoja2 que cuando escribo el numero de activo del equipo en la columna A me busca los datos como el nombre del equipo, marca, serie y modelo. Estos datos provienen de la hoja 1. Lo que quiero hacer es que al digital el activo...
2 respuestas