Error en Traslado de Datos a Hoja

[dorgelis]

Buenos días mis apreciados Foreros, la presente es para ver si me pueden apoyar en algo, tengo un archivo de Inmobiliaria, donde en una Hoja tengo "Recibo", y otra hoja que se llama "Histórico", en la hoja de recibo necesito que se traslade la información a histórico, y al pasar el saldo de la hoja de Recibo en histórico me figura otro monto. Ya revise mi macro y todo, pero no entiendo porque me calcula otro monto. 

En el anexo, el saldo que bebe ir en la Hoja Histórico  M2 es de 660 y me traslada otro valor. Quisiera saber cual es mi error.

INMOBILIARIA DORG 8.1.xlsm

[bigpetroman]

Saludos @dorgelis, el principal problema es que en RECIBO tienes formulas que buscan datos en HISTORICO por el DNI, cuando comienzas a pasar la información pues esas formulas se actualizan y por eso cambian los valores, una forma de hacerlo es copiar de ultimo el DNI así las formulas no se actualizaran, te dejo la macro modificada, NO es necesario seleccionar hojas y celdas para copiar y pegar

suerte

Sub TRASLADORECIBO()

'Codigo para el parpadeo
    Application.ScreenUpdating = False


' INQUILINO_DIRECC_HAB_MESPAGO Macro
    'INQUILINO
    Worksheets("HISTORICO").Range("B2").Value = Worksheets("RECIBO").Range("C6").Value
    
   'DIRECCION
    Worksheets("HISTORICO").Range("C2").Value = Worksheets("RECIBO").Range("C8").Value
    
    'HABITACION
    Worksheets("HISTORICO").Range("D2").Value = Worksheets("RECIBO").Range("G6").Value
    
    'MES DE PAGO
    Worksheets("HISTORICO").Range("E2").Value = Worksheets("RECIBO").Range("C9").Value

    ' CUOTA_DIAS_INTER_APAGAR Macro
    'CUOTA
    Worksheets("HISTORICO").Range("G2").Value = Worksheets("RECIBO").Range("I16").Value
    
    'DIAS INTERESES Y FORMATO
    Worksheets("HISTORICO").Range("H2").Value = Worksheets("RECIBO").Range("G17").Value
    
    'CALCULO DE INTERESES
    Worksheets("HISTORICO").Range("I2").Value = Worksheets("RECIBO").Range("I17").Value
    
    'A PAGAR
    Worksheets("HISTORICO").Range("J2").Value = Worksheets("RECIBO").Range("I18").Value

    ' FECHAEMISION_ABONO_SALDO Macro
    Worksheets("HISTORICO").Range("K2").Value = Worksheets("RECIBO").Range("I4").Value
        
    Worksheets("HISTORICO").Range("L2").Value = Worksheets("RECIBO").Range("I19").Value
    
    Worksheets("HISTORICO").Range("M2").Value = Worksheets("RECIBO").Range("I20").Value
    
    ' DNI Macro
    Worksheets("HISTORICO").Range("A2").Value = Worksheets("RECIBO").Range("H3").Value
        
        
    'Inserta una fila nueva
    Worksheets("HISTORICO").Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    With Worksheets("HISTORICO").Rows("2:2").Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    'Cambia el fondo de la fila
    With Worksheets("HISTORICO").Rows("2:2").Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    
    'Borrar datos en Recibo
    Worksheets("RECIBO").Range("H3:I3").ClearContents
    Worksheets("RECIBO").Range("I16").ClearContents
    Worksheets("RECIBO").Range("I19").ClearContents
    Worksheets("RECIBO").Range("H3").Select
    'Mensaje
    MsgBox ("El cobro fue cargado")
     
    'Codigo de cierre de parpadeo
    Application.ScreenUpdating = True
     
End Sub

 

[dorgelis]

Saludos Big...Muy agradecido por tu respuesta muy precisa y efectiva.

El Codigo corre genial y muy rapido, estoy fascinado por tu valiosa colaboración.

Con este aporte, doy por cerrado el tema