Hola buenas noches, adjunto un archivo excel en el que quiero hacer una cosa. Sin liarme, tengo una hoja llamada "Summary", que contiene una tabla y una columna H dentro de la tabla, en la cual tengo configurada una fórmula con el método de cálculo general, según la información de su fila. Depende de otra persona (ingeniero) que ese método general de cálculo varíe en algún caso particular, y yo tenga que introducir el valor que esa persona me dé. La hoja irá protegida pero esta columna será editable. Necesito un código VBA tal que me recupere la fórmula en las celdas de la columna H que se queden vacías. ¿Por qué? Porque en algún momento pasa que me pueden decir de volver a calcular esa fila con el método habitual. En ese caso mi idea es que yo suprima esos valores "particulares" y me vuelva a realizar el cálculo de la manera general.
señales.xlsm
Por
MANTONIOPM, · publicado
Sub Copiarypegar()
Application.ScreenUpdating = False
'Range("Q1:EF1").Locked = False
'Seleccionamos todo el área contínua de datos, desde la celda donde estamos situados
Range("a12:A30").Select 'seleciona el rango especifico
'ActiveCell.CurrentRegion.Select
'Copiamos
Selection.Copy
'Pegamos en A12 de la hoja 2
Sheets("DAILY REPORT").Select
Range("A12").Select 'el control se hará sobre la columna A, a partir de la fila
While ActiveCell.Value <> "" 'Busca la ultima fila
ActiveCell.Offset(1, 0).Select 'si la celda contiene datos, pasa a la fila siguiente
Wend
ActiveSheet.PasteSpecial
Application.CutCopyMode = False
'Hoja1.Rows(12).ClearContents
Hoja1.Range("a14").ClearContents
Hoja1.Range("b14").ClearContents
Hoja1.Range("c14").ClearContents
Hoja1.Range("d14").ClearContents
Hoja1.Range("e14").ClearContents
Hoja1.Range("f14").ClearContents
Hoja1.Range("g14").ClearContents
Hoja1.Range("h14").ClearContents
Hoja1.Range("i14").ClearContents
Hoja1.Range("a17").ClearContents
Hoja1.Range("b17").ClearContents
Hoja1.Range("c17").ClearContents
Hoja1.Range("d17").ClearContents
Hoja1.Range("e17").ClearContents
Hoja1.Range("g17").ClearContents
Hoja1.Range("h17").ClearContents
Hoja1.Range("i17").ClearContents
Hoja1.Range("a20").ClearContents
Hoja1.Range("b20").ClearContents
Hoja1.Range("c20").ClearContents
Hoja1.Range("d20").ClearContents
Hoja1.Range("e20").ClearContents
Hoja1.Range("f20").ClearContents
Hoja1.Range("g20").ClearContents
Hoja1.Range("h20").ClearContents
Hoja1.Range("i20").ClearContents
Hoja1.Range("a23:c23").ClearContents
Hoja1.Range("d23:f23").ClearContents
Hoja1.Range("g23").ClearContents
Hoja1.Range("h23").ClearContents
Hoja1.Range("i23:j23").ClearContents
Hoja1.Range("a26:c26").ClearContents
Hoja1.Range("a29:i29").ClearContents
Range("a14").Select
'Range("Q1:EF1").Locked = True
MsgBox ("DATOS GUARDADOS EXITOSAMENTE
")
Application.ScreenUpdating = True
End Sub
el tema que la celda a29 en la hoja1
tiene este codigo.
Sub celda_29()
Application.ScreenUpdating = False
Sheets("VUELO").Select
Range("A29").Select
Selection.UnMerge
Selection.EntireRow.AutoFit
Selection.Merge
Application.ScreenUpdating = True
End Sub
al copiar todo a la hoja dos el formato no lo respeta.
esta celda se repite cada 13 filas.
Me podrian hechar una mano