Jump to content

Ayuda para corregir código de formula para que funcione


Recommended Posts

Buenas tardes tengan todos!

Tengo un código al cual le agregue una formula pero esta no pasa a la hoja que seleccione en su lugar me sale la leyenda de "Falso" todos los demás datos pasan muy bien pero la formula no, podrían apoyarme con sus sugerencia y recomendaciones para que esta funcione?

Este es el código y adjunto archivo para mejor explicación:

Sub Pasarpagos()
Sheets("Pagos").Activate
If Sheets("Pagos").Range("C7") = "" Then Exit Sub 'No hay referencia
Dim hj As String
Dim a
Dim b
Dim c
Dim d
Dim e
Dim f
Dim g
Dim h
Dim i
hj = Sheets("Pagos").Range("C7")
a = Sheets("Pagos").Range("C9")
b = Sheets("Pagos").Range("C11")
c = Sheets("Pagos").Range("C13")
d = Sheets("Pagos").Range("C15")
e = Sheets("Pagos").Range("C17")
f = Sheets("Pagos").Range("C19")
g = Sheets("Pagos").Range("C20")
h = Sheets("Pagos").Range("C21")
i = Sheets("Pagos").Range("C22")
i = Sheets("Pagos").Cells(U + 1, "J").Formula = "=J" & (U - 0) & "+" & "H" & (U + 1) & "-" & "I" & (U + 1)

With Sheets(hj).Range("B" & Rows.Count).End(xlUp)(2).Resize(1, 9)
.Value = Array(a, b, c, d, e, f, g, h, i)
End With

End Sub[/CODE]

Como siempre agradezco por anticipado su interes y apoyo

Saludos

Pregunta corregir código para formula.zip

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy