"DaMor" Macro Copiar Fórmula de una hoja a otra
Te hago la consulta directamente para que me puedas continuar ayudando con el tema, de como poder copiar una fórmula en una celda especifica, esta instrucción funciona muy bien, el detalle esta en que si existe una forma de no copiar la celda de la hoja2, si no más bien que se copie el contenido, es decir como cuando le das F2 a la celda la activas eliges el contenido, le das F2 a otra celda y la pegas, ¿será posible eso? Ya que cuando copia y pega la fórmula que deseo copiar cambia las referencias de las celdas por 2 ejemplo, si en la fórmula dice =SI(E2...) cuando se pega en la otra hoja me muestra =SI(G2...)
Sub Copiar2()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Formulas") 'hoja origen
Set h2 = Sheets("val_padron") 'hoja destino
cols = Array("", "C", "F", "N", "P", "R", "T", "Y", "AA", "AC", _
"AE", "AG", "AM", "AO", "AR", "BC", "BF", "BH", "BJ")
'
u = h2.UsedRange.Rows(h2.UsedRange.Rows.Count).Row
For i = 1 To 18
h1.Range("B" & i).Copy
h2.Range(h2.Cells(3, cols(i)), h2.Cells(u, cols(i))).PasteSpecial xlPasteAll
Next
Application.ScreenUpdating = True
MsgBox "fin"
End Subquisiera saber si existe alguna función para hacer estos pasos:
Ya que al pegar con xlPasteAll copia la fórmula pero como digo, las referencias se cambian, ejemplo:
=SI(W3="","campo vacío",SI(W3="F","ok",SI(W3="M","ok","verificar")))
la instruccion copia a la otra hoja asi:
=SI(AH3="","campo vacío",SI(AH3="F","ok",SI(AH3="M","ok","verificar")))
Ahora si cambio a xlValues copiara un valor más no la fórmula, podrías ayudarme con esa consulta, gracias.
2 Respuestas
Te envío a tu correo un ejemplo en base al código que menciono.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Juan Fer” y el título de esta pregunta.
Ya te lo envíe al correo, gracias-
Te anexo la macro
Sub Formulas()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Formulas") 'hoja origen
Set h2 = Sheets("val_padron") 'hoja destino
cols = Array("", "C", "F", "N", "P", "R", "T", "Y", "AA", "AC", _
"AE", "AG", "AM", "AO", "AR", "BC", "BF", "BH", "BJ")
'
u = h2.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To 18
h2.Range(h2.Cells(3, cols(i)), h2.Cells(u, cols(i))) = h1.Range("C" & i).Formula
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "fin"
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
¡Gracias! que pequeño detalle jajaja muchas gracias, tema cerrado.
¡Gracias! Aneudys Martinez, esta vez me esta apoyando Dante, ya para la próxima te pido especialmente a ti unos tips, ahí tengo una duda pendiente la dirijo a ti para que me ayudes con tu sapiencia... saludos.