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
Hola, tengo un juego de Poker que funciona perfectamente.
Pero lo copio a un Mac y el juego lo puedo modificar a mi gusto pero las imágenes del cubilete (como si se moviera) no funciona, solo las imágenes,
que parte del código debería modificar ? envío parte del programa, la macro en cuestión.
Sub Tirar()
Dim COLUMNAS As String
Dim DADOS As String,
DADO As Integer
Dim y As Integer, d As Integer '--
Randomize Range("A1").Select
COLUMNAS = "FGHGHGI" 'Columna de la imagen del cubilete
DADOS = "JKLMNO" 'Columna de la imagen de los dados Visualizar
False For y = 1 To Len(COLUMNAS)
ActiveSheet.Shapes.Range("CUBILETE").Select
Selection.Formula = "=" & "'.'!" & Mid(COLUMNAS, y, 1) & 4
ActiveCell.Select If y = Len(COLUMNAS) Then
Application.ScreenUpdating = False
Visualizar True 'uf = Range("E" & Rows.Count).End(xlUp).Row + 1 'Range("E" & uf) = uf - 6
For d = 1 To 5
DADO = Int((6 * Rnd) + 1)
ActiveSheet.Shapes.Range("DADO" & d).Select
Selection.Formula = "=" & "'.'!" & Mid(DADOS, DADO, 1) & 8 'Range("E" & uf).Offset(0, DADO) = Range("E" & uf).Offset(0, DADO) + 1
Next 'Range("L" & uf) = Range("F" & uf) * 6 _ + Range("G" & uf) * 5 _ + Range("H" & uf) * 4 _ + Range("I" & uf) * 3 _ + Range("J" & uf) * 2 _ + Range("K" & uf)
End If
Application.Wait (Now + TimeValue("00:00:01"))
Next ActiveCell.Select Application.ScreenUpdating = True
End Sub