Mejora en validación de limites 2
Con la adiciones que me enviaste cuando la lotería es "7-Nac. Noche Quin. Pale Noche" para el limite de las jugadas suma los jugado en "2-Loteria Nacional 09:00 PM", "3-Leidsa Quiniela Pale 08:55 PM" y "7-Nac. Noche Quin. Pale Noche"
y si va a pasar me pone un mensaje que dice por ejemplo "El limite para los Pales es de xx pesos por dia, si usted desea continuar va a exceder el limite en xx pesos, que se convertirian en xx pesos,desea proceder?", si o no
Si le dan que si continua pero deben poner usuario y contraseña que "123" en ambos casos, tengo codigos para poder los numeros exactos en ves de xx en el mensaje.
Entonces lo que quiero es que cuando la loteria sea "7-Nac. Noche Quin. Pale Noche" en ves de el limite global en un solo mensaje, me genere dos mensajes.
1-"El limite para los Pales es de xx pesos por dia, si usted desea continuar va a exceder el limite de la "2-Loteria Nacional 09:00 PM", en xx pesos, que se convertirian en xx pesos,desea proceder?", si o no
2-"El limite para los Pales es de xx pesos por dia, si usted desea continuar va a exceder el limite de la "3-Leidsa Quiniela Pale 08:55 PM", en xx pesos, que se convertirian en xx pesos,desea proceder?", si o no
ya que me tiene que validar limites individuales porque en la loteria "7-Nac. Noche Quin. Pale Noche", hay dos loterias como usted sabe.
Si necesita otra aclaracion avise
Gracias por anticipado.
PD: Le envie el archivo "emmanuel Loteria Dam 13" desde mi correo [email protected]
1 respuesta
Le envía respuesta a su correo
LE envíe respuesta a su correo
Sorry, por el retraso, ya te envié otra duda
Le envíe respuesta a su correo, Gracias
Al fin, te envié el archivo, prueba y me coemtas
Ya le envíe el archivo con 2 errorsitos que me da, Gracias Saludos
Dam después de mucho revisar el archivo que te envíe encontré estos errores en el código
* primer hallazgo en los códigos
'------------------suma las celdas de la hoja cuando es palé o quiniela
For I = 2 To Range("F" & Rows.Count).End(xlUp).Row 'nuevo
If Cells(I, "C") = "N/A" Then
cellsC = ""
Else
cellsC = Cells(I, "C")
End If
If Mid(Cells(I, "F"), 1, 20) = Mid(ComboBox1, 1, 20) And _
Mid(Cells(I, "G"), 1, 6) = Mid(ComboBox2, 1, 6) And _
Cells(I, "B") = TextBox2 And _
cellsC = TextBox3 And _
Cells(I, "J") = fecha _
Or _
Mid(Cells(I, "F"), 1, 20) = Mid(ComboBox1, 1, 20) And _
Mid(Cells(I, "G"), 1, 6) = Mid(ComboBox2, 1, 6) And _
Cells(I, "B") = TextBox3 And _
cellsC = TextBox2 And _
Cells(I, "J") = fecha Then
If Mid(Cells(I, "G"), 1, 6) = "2-Pale" Then
totfact_pale = totfact_pale + Val(Cells(I, "E"))
totfact_pale_2 = totfact_pale_2 + Val(Cells(I, "E"))
totfact_pale_3 = totfact_pale_2 + Val(Cells(I, "E"))
Else
totfact_quin = totfact_quin + Val(Cells(I, "E"))
End If
End If
creo que debería cambiar esta linea
totfact_pale_3 = totfact_pale_2 + Val(Cells(I, "E"))
por esta
totfact_pale_3 = totfact_pale_3 + Val(Cells(I, "E"))
* Segundo hallazgo en los códigos
también las lineas que dan los mensajes me estoy dando cuenta de que el mensaje para totfact_pale_3 depende de si totfact_pale_2 pasa del limite.
Por lo que cuando la lotería es 3-... no va a llamar el mensaje que le pertenece por que totfact_pale_2 no pasa del limite ya que este es para la lotería 2-...
If Mid(ComboBox2, 1, 6) = "2-Pale" Then
'If totfact_pale + totfactlist_pale + Round(Val(TextBox4) * 1.1, 0) > limite_pale Then
If totfact_pale_2 + totfactlist_pale + Round(Val(TextBox4) * 1.1, 0) > limite_pale Then
'MsgBox "El valor de Pale va a exceder más de 50", vbCritical, "Error"
If MsgBox("El límite para los Pales es de " & limite_pale & " pesos por día. " & vbNewLine & _
"Si usted desea continuar va a exceder el límite de la lotería 2-LOTERIA NACIONAL 09:00 PM en: " & vbNewLine & _
totfact_pale_2 + totfactlist_pale + Round(Val(TextBox4) * 1.1, 0) - limite_pale & _
" pesos, que se convertirían en " & Format((totfact_pale_2 + totfactlist_pale + Round(Val(TextBox4) * 1.1, 0) - limite_pale) * 1000, _
"""RD$""#,##0.00") & " pesos" & vbNewLine & vbNewLine & "Desea proceder?", vbQuestion + vbYesNo) = vbYes Then
If totfact_pale_3 + totfactlist_pale + Round(Val(TextBox4) * 1.1, 0) > limite_pale Then
If MsgBox("El limite para los Pales es de " & limite_pale & " pesos por dia, si usted desea continuar va a exceder el limite de la lotería 3-LEIDSA QUIN. PALE 08:55 PM en " & _
totfact_pale_3 + totfactlist_pale + Round(Val(TextBox4) * 1.1, 0) - limite_pale & _
" pesos, que se convertirian en " & Format((totfact_pale_3 + totfactlist_pale + Round(Val(TextBox4) * 1.1, 0) - limite_pale) * 1000, _
"""RD$""#,##0.00") & " pesos,desea proceder?", vbQuestion + vbYesNo) = vbYes Then
clave1.Show
Else
TextBox4.SetFocus
End If
Else
clave1.Show
End If
Else
TextBox4.SetFocus
End If
Exit Sub
End If
End Ifestos son hallazgos que encontré en los código.
si necesitas mas aclaraciones avisame, que quiero terminar de esta pregunta, cuando terminemos de arreglar bien el juego palé cierro esta pregunta y para los otros juegos voy a abrir otras preguntas para no abusar con todo este esfuerzo para una sola pregunta,
Gracias y abrazo
Hice los cambios
Te envié el archivo
Le envíe comentarios a su correo
le envíe el archivo Prueba 4 dam, en este modifique un poco el código para los mensajes cuando la jugada es palé, pero solo funcional para las loterías 2, 3 y 7, ya que si pasa del limite otra lotería que no se las ya mencionadas salen los dos mensajes, por lo que creo se debe crear un un nuevo mensaje para estas loterías restantes.
Pero no se como hacerlo, solo faltaría esto y que funcione funcione bien para terminar esta pregunta, ya que me da mucha vergüenza con usted porque eh abusado de su tiempo para esta pregunta, discúlpeme, gracias
Te envié el archivo
Modifique un poco su código y me quedo perfecto gracias a usted, mil gracias, yo voy a modificar las otras jugadas si no puedo le haré otra pregunta, mil gracias.
Saludos,
Emmanuel
