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
Lo que quiero lograr con el codigo es poder sumar los datos de una celda con los de mi formulario.
Aunque ya logre que se sumaran, esto es solo en la celda No. 3 y no se me ocurre una forma en la que pueda abarcar todas las celdas.
Asi que muchas gracias por la ayuda y este es el codigo que eh estado utilizando:
Dim fila As Integer
Dim final As Integer
For fila = 3 To 1000
Dim suma As Integer
Dim i As Integer
i = TextBox7.Value
'Range esta localizado en el primer codigo por lo tanto va a sumar con los datos de esa celda
suma = Hoja3.Range("E" & 3).Value
If Hoja5.cells(fila, 1) = "" Then
final = fila
Exit For
End If
Next
If MsgBox("Estan Correctos Los Datos" + Chr(13) + "Deseas Continuar", vbOKCancel) = vbOK Then
'Aqui empiezan los codigos de cada celda
If TextBox2 = "AF1968" Then
Hoja3.Range("E" & 3).Value = UserForm2.TextBox7
Hoja3.Range("E" & 3).Value = suma + i
End If
If TextBox2 = "AF25707" Then
Hoja3.Range("E" & 4).Value = UserForm2.TextBox7
Hoja3.Range("E" & 4).Value = suma + i
End If
If TextBox2 = "AF25732" Then
Hoja3.Range("E" & 5).Value = UserForm2.TextBox7
Hoja3.Range("E" & 5).Value = suma + i
Solo coloque los tres primeros codigos, los codigos llegan hasta el 295 .
De Antemano Gracias