A ver, para no estar adivinando o caminando a ciegas por el problema, vamos a ir a lo seguro:
1º: Indicas en la columna B: "Aquí iría la fórmula". Bien, pues te sugiero que introduzcas a mano, en B3:B10 cuáles son los resultados que esperas en cada celda, y expliques cómo y/o por qué se llega a ellos.
2º: Aclara un poco esos significados de 'Factor común 1' y 'Variable por pesos o centavos', para entender cómo juegan en las diferentes resoluciones.
3º: También sería interesante saber cómo interpretar eso de 'ojito al tema porque estos importes entre archivos pueden variar entre el 10% mayor o menor al importe pago'. Para verlo claro, introduce algún ejemplo que fuerce esa diferencia y explica cómo hay que contemplarlo y en qué interfiere para la/s fórmula/s de la columna B.
4º: Y por último, elimina (suprime) todos los datos innecesarios para componer el resultado que buscamos: por ejemplo, ese 'Íd. crédito' de la columna A, ¿aporta algo? ¿No? Pues bórralo. Ídem de lo mismo para 'Nombre' (si no se necesita, bórralo también). Veo que las columnas L y N tienen los mismos contenidos. ¿Por qué no eliminamos una de ellas?
Todo lo que sea limpiar la pizarra de garabatos innecesarios, será bienvenido y agradecido.
Saludos,
Por
Victor7, · 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