Mejora en validación de limites

Saludos Dam, cree una nueva lotería que se llama "7-Nac. Noche Quin. Palé Noche", y cuando se factura con esta lotería para validar el limite de jugada también debe sumar las jugadas que se hayan hecho con "2-Lotería Nacional 09:00 PM" y "3-Leidsa Quin. Palé 08:55 PM".

y cuando se facture por ejemplo con la lotería "2-Lotería Nacional 09:00 PM" para validar el limite de jugada también debe sumar las jugadas que se hayan hecho con "7-Nac. Noche Quin. Palé Noche"

igual y cuando se facture por ejemplo con la lotería "3-Leidsa Quin. Palé 08:55 PM" para validar el limite de jugada también debe sumar las jugadas que se hayan hecho con "7-Nac. Noche Quin. Palé Noche"

1 Respuesta

Respuesta
1

Te envíe el archivo 12 para que pruebes esta mejora.

Saludos. Dam

El archivo no me quiere abrir, dice que esta dañado. por favor revisar y enviármelo de nuevo.

Gracias

ah, también puedes publicar aquí las lineas que modificaste

Son estas

 'Combinaciones a validar
    'B   C   D
    'B   D   C
    'C   B   D
    'C   D   B
    'D   B   C
    'D   C   B
    If Mid(Cells(i, "F"), 1, 20) = Mid(ComboBox1, 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsB = TextBox2 And cellsC = TextBox3 And cellsD = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid(ComboBox1, 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsB = TextBox2 And cellsD = TextBox3 And cellsC = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid(ComboBox1, 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsC = TextBox2 And cellsB = TextBox3 And cellsD = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid(ComboBox1, 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsC = TextBox2 And cellsD = TextBox3 And cellsB = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid(ComboBox1, 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsD = TextBox2 And cellsB = TextBox3 And cellsC = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid(ComboBox1, 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsD = TextBox2 And cellsC = TextBox3 And cellsB = TextBox6 And _
        Cells(i, "J") = fecha Then
        If Mid(Cells(i, "G"), 1, 10) = "3-Tripleta" Then
            totfact_trip = totfact_trip + Val(Cells(i, "E"))
        Else
        End If
    End If
    'suma "2-Lotería Nacional 09:00 PM" y "3-Leidsa Quin. Palé 08:55 PM"
    'si el combobox1 = 7-Loteria Nac. Noche Quin. Noche7
    Select Case Mid(ComboBox1, 1, 20)
    Case "7-Loteria Nac. Noche Quin. Noche"
    If Mid(Cells(i, "F"), 1, 20) = Mid("2-Lotería Nacional 09:00 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsB = TextBox2 And cellsC = TextBox3 And cellsD = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("2-Lotería Nacional 09:00 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsB = TextBox2 And cellsD = TextBox3 And cellsC = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("2-Lotería Nacional 09:00 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsC = TextBox2 And cellsB = TextBox3 And cellsD = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("2-Lotería Nacional 09:00 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsC = TextBox2 And cellsD = TextBox3 And cellsB = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("2-Lotería Nacional 09:00 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsD = TextBox2 And cellsB = TextBox3 And cellsC = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("2-Lotería Nacional 09:00 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsD = TextBox2 And cellsC = TextBox3 And cellsB = TextBox6 And _
        Cells(i, "J") = fecha Then
        If Mid(Cells(i, "G"), 1, 10) = "3-Tripleta" Then
            totfact_trip = totfact_trip + Val(Cells(i, "E"))
        Else
        End If
    End If
    If Mid(Cells(i, "F"), 1, 20) = Mid("3-Leidsa Quin. Palé 08:55 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsB = TextBox2 And cellsC = TextBox3 And cellsD = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("3-Leidsa Quin. Palé 08:55 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsB = TextBox2 And cellsD = TextBox3 And cellsC = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("3-Leidsa Quin. Palé 08:55 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsC = TextBox2 And cellsB = TextBox3 And cellsD = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("3-Leidsa Quin. Palé 08:55 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsC = TextBox2 And cellsD = TextBox3 And cellsB = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("3-Leidsa Quin. Palé 08:55 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsD = TextBox2 And cellsB = TextBox3 And cellsC = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("3-Leidsa Quin. Palé 08:55 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsD = TextBox2 And cellsC = TextBox3 And cellsB = TextBox6 And _
        Cells(i, "J") = fecha Then
        If Mid(Cells(i, "G"), 1, 10) = "3-Tripleta" Then
            totfact_trip = totfact_trip + Val(Cells(i, "E"))
        Else
        End If
    End If
    '"2-Lotería Nacional 09:00 PM" para validar el limite de jugada también debe sumar _
    las jugadas que se hayan hecho con "7-Nac. Noche Quin. Palé Noche"
    Case "2-Lotería Nacional 09:00 PM"
    If Mid(Cells(i, "F"), 1, 20) = Mid("7-Nac. Noche Quin. Palé Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsB = TextBox2 And cellsC = TextBox3 And cellsD = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("7-Nac. Noche Quin. Palé Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsB = TextBox2 And cellsD = TextBox3 And cellsC = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("7-Nac. Noche Quin. Palé Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsC = TextBox2 And cellsB = TextBox3 And cellsD = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("7-Nac. Noche Quin. Palé Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsC = TextBox2 And cellsD = TextBox3 And cellsB = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("7-Nac. Noche Quin. Palé Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsD = TextBox2 And cellsB = TextBox3 And cellsC = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("7-Nac. Noche Quin. Palé Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsD = TextBox2 And cellsC = TextBox3 And cellsB = TextBox6 And _
        Cells(i, "J") = fecha Then
        If Mid(Cells(i, "G"), 1, 10) = "3-Tripleta" Then
            totfact_trip = totfact_trip + Val(Cells(i, "E"))
        Else
        End If
    End If
    '"3-Leidsa Quin. Palé 08:55 PM" para validar el limite de jugada también debe sumar _
    las jugadas que se hayan hecho con "7-Nac. Noche Quin. Palé Noche"
    Case "3-Leidsa Quin. Palé 08:55 PM"
    If Mid(Cells(i, "F"), 1, 20) = Mid("7-Nac. Noche Quin. Palé Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsB = TextBox2 And cellsC = TextBox3 And cellsD = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("7-Nac. Noche Quin. Palé Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsB = TextBox2 And cellsD = TextBox3 And cellsC = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("7-Nac. Noche Quin. Palé Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsC = TextBox2 And cellsB = TextBox3 And cellsD = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("7-Nac. Noche Quin. Palé Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsC = TextBox2 And cellsD = TextBox3 And cellsB = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("7-Nac. Noche Quin. Palé Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsD = TextBox2 And cellsB = TextBox3 And cellsC = TextBox6 And _
        Cells(i, "J") = fecha Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("7-Nac. Noche Quin. Palé Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 10) = Mid(ComboBox2, 1, 10) And _
        cellsD = TextBox2 And cellsC = TextBox3 And cellsB = TextBox6 And _
        Cells(i, "J") = fecha Then
        If Mid(Cells(i, "G"), 1, 10) = "3-Tripleta" Then
            totfact_trip = totfact_trip + Val(Cells(i, "E"))
        Else
        End If
    End If
    End Select
Next
'------------------suma las celdas de la hoja cuando es tripleta
'------------------suma las celdas de la hoja cuando es Super Pale
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, 12) = Mid(ComboBox2, 1, 12) 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, 12) = Mid(ComboBox2, 1, 12) And _
        Cells(i, "B") = TextBox3 And _
        cellsC = TextBox2 And _
        Cells(i, "J") = fecha Then
        If Mid(Cells(i, "G"), 1, 12) = "4-Super Pale" Then
            totfact_spal = totfact_spal + Val(Cells(i, "E"))
        End If
    End If
    'suma "2-Lotería Nacional 09:00 PM" y "3-Leidsa Quin. Palé 08:55 PM"
    'si el combobox1 = 7-Loteria Nac. Noche Quin. Noche7
    Select Case Mid(ComboBox1, 1, 20)
    Case "7-Loteria Nac. Noche Quin. Noche"
    If Mid(Cells(i, "F"), 1, 20) = Mid("2-Lotería Nacional 09:00 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 12) = Mid(ComboBox2, 1, 12) And _
        Cells(i, "B") = TextBox2 And _
        cellsC = TextBox3 And _
        Cells(i, "J") = fecha _
        Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("2-Lotería Nacional 09:00 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 12) = Mid(ComboBox2, 1, 12) And _
        Cells(i, "B") = TextBox3 And _
        cellsC = TextBox2 And _
        Cells(i, "J") = fecha Then
        If Mid(Cells(i, "G"), 1, 12) = "4-Super Pale" Then
            totfact_spal = totfact_spal + Val(Cells(i, "E"))
        End If
    End If
    If Mid(Cells(i, "F"), 1, 20) = Mid("3-Leidsa Quin. Palé 08:55 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 12) = Mid(ComboBox2, 1, 12) And _
        Cells(i, "B") = TextBox2 And _
        cellsC = TextBox3 And _
        Cells(i, "J") = fecha _
        Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("3-Leidsa Quin. Palé 08:55 PM", 1, 20) And _
        Mid(Cells(i, "G"), 1, 12) = Mid(ComboBox2, 1, 12) And _
        Cells(i, "B") = TextBox3 And _
        cellsC = TextBox2 And _
        Cells(i, "J") = fecha Then
        If Mid(Cells(i, "G"), 1, 12) = "4-Super Pale" Then
            totfact_spal = totfact_spal + Val(Cells(i, "E"))
        End If
    End If
    '"2-Lotería Nacional 09:00 PM" para validar el limite de jugada también debe sumar _
    las jugadas que se hayan hecho con "7-Nac. Noche Quin. Palé Noche"
    Case "2-Lotería Nacional 09:00 PM"
    If Mid(Cells(i, "F"), 1, 20) = Mid("7-Loteria Nac. Noche Quin. Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 12) = Mid(ComboBox2, 1, 12) And _
        Cells(i, "B") = TextBox2 And _
        cellsC = TextBox3 And _
        Cells(i, "J") = fecha _
        Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("7-Loteria Nac. Noche Quin. Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 12) = Mid(ComboBox2, 1, 12) And _
        Cells(i, "B") = TextBox3 And _
        cellsC = TextBox2 And _
        Cells(i, "J") = fecha Then
        If Mid(Cells(i, "G"), 1, 12) = "4-Super Pale" Then
            totfact_spal = totfact_spal + Val(Cells(i, "E"))
        End If
    End If
    '"3-Leidsa Quin. Palé 08:55 PM" para validar el limite de jugada también debe sumar _
    las jugadas que se hayan hecho con "7-Nac. Noche Quin. Palé Noche"
    Case "3-Leidsa Quin. Palé 08:55 PM"
    If Mid(Cells(i, "F"), 1, 20) = Mid("7-Loteria Nac. Noche Quin. Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 12) = Mid(ComboBox2, 1, 12) And _
        Cells(i, "B") = TextBox2 And _
        cellsC = TextBox3 And _
        Cells(i, "J") = fecha _
        Or _
        Mid(Cells(i, "F"), 1, 20) = Mid("7-Loteria Nac. Noche Quin. Noche", 1, 20) And _
        Mid(Cells(i, "G"), 1, 12) = Mid(ComboBox2, 1, 12) And _
        Cells(i, "B") = TextBox3 And _
        cellsC = TextBox2 And _
        Cells(i, "J") = fecha Then
        If Mid(Cells(i, "G"), 1, 12) = "4-Super Pale" Then
            totfact_spal = totfact_spal + Val(Cells(i, "E"))
        End If
    End If
    End Select
Next
'------------------suma las celdas de la hoja cuando es Super Pale
'------------------suma las celdas de la hoja cuando es pale 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"))
        Else
            totfact_quin = totfact_quin + Val(Cells(i, "E"))
        End If
    End If
    'suma "2-Lotería Nacional 09:00 PM" y "3-Leidsa Quin. Palé 08:55 PM"
    'si el combobox1 = 7-Loteria Nac. Noche Quin. Noche7
    Select Case Mid(ComboBox1, 1, 20)
    Case "7-Loteria Nac. Noche Quin. Noche"
    If Mid(Cells(i, "F"), 1, 20) = Mid("2-Lotería Nacional 09:00 PM", 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("2-Lotería Nacional 09:00 PM", 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"))
        Else
            totfact_quin = totfact_quin + Val(Cells(i, "E"))
        End If
    End If
    If Mid(Cells(i, "F"), 1, 20) = Mid("3-Leidsa Quin. Palé 08:55 PM", 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("3-Leidsa Quin. Palé 08:55 PM", 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"))
        Else
            totfact_quin = totfact_quin + Val(Cells(i, "E"))
        End If
    End If
    '"2-Lotería Nacional 09:00 PM" para validar el limite de jugada también debe sumar _
    las jugadas que se hayan hecho con "7-Nac. Noche Quin. Palé Noche"
    Case "2-Lotería Nacional 09:00 PM"
    If Mid(Cells(i, "F"), 1, 20) = Mid("7-Loteria Nac. Noche Quin. Noche", 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("7-Loteria Nac. Noche Quin. Noche", 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"))
        Else
            totfact_quin = totfact_quin + Val(Cells(i, "E"))
        End If
    End If
    '"3-Leidsa Quin. Palé 08:55 PM" para validar el limite de jugada también debe sumar _
    las jugadas que se hayan hecho con "7-Nac. Noche Quin. Palé Noche"
    Case "3-Leidsa Quin. Palé 08:55 PM"
    If Mid(Cells(i, "F"), 1, 20) = Mid("7-Loteria Nac. Noche Quin. Noche", 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("7-Loteria Nac. Noche Quin. Noche", 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"))
        Else
            totfact_quin = totfact_quin + Val(Cells(i, "E"))
        End If
    End If
    End Select
Next
'------------------suma las celdas de la hoja cuando es pale o quiniela

Saludos Dam, lo veo todo bien, pero no me funciona, es como si no estubieran hay la nueva validacion

Prueba en qué casos debe entrar a validar y no entra y me dices

Ya encontré el error y casi me funciona, pero hay un problema con los select caso por ejemplo:
Para que me funcione este case tuve que ponerle un 29 que es le numero de espacios que tiene:
Select Case Mid(ComboBox1, 1, 29)
Case "7-Nac. Noche Quin. Palé Noche"
Pero el los otros casos no me funcionan ya que no tienen el mismo numero de espacios no se si me entiende.
Case "2-Loteria Nacional 09:00 PM"
PD: Le envie el archivo con las modificaiones que le hise para que funcionara le cambie el por ejemplo a estas lineas los numeros que estan en negritas antes todos decian 20
Select Case Mid(ComboBox1, 1, 29)
Case "7-Nac. Noche Quin. Palé Noche"
If Mid(Cells(i, "F"), 1, 27) = Mid("2-Loteria Nacional 09:00 PM", 1, 27)
PD: si me va ha enviar el archivo modificado por favor envimelo al correo "[email protected]"
Gracias

Ya encontré el error y casi me funciona, pero hay un problema con los select caso por ejemplo:
Para que me funcione este case tuve que ponerle un 29 que es le numero de espacios que tiene:
Select Case Mid(ComboBox1, 1, 29)
Case "7-Nac. Noche Quin. Palé Noche"
Pero el los otros casos no me funcionan ya que no tienen el mismo numero de espacios no se si me entiende.
Case "2-Lotería Nacional 09:00 PM"
PD: Le envíe el archivo con las modificaiones que le hice para que funcionara le cambie el por ejemplo a estas lineas los números que están en negritas antes todos decían 20
Select Case Mid(ComboBox1, 1, 29)
Case "7-Nac. Noche Quin. Palé Noche"
If Mid(Cells(i, "F"), 1, 27) = Mid("2-Lotería Nacional 09:00 PM", 1, 27)
PD: si me va ha enviar el archivo modificado por favor envimelo al correo "[email protected]"
Gracias

- Cuando la loterías es "2-Loteria Nacional 09:00 PM" y la jugadas es "3-Tripleta" no me suma lo que se ha jugada que se han hecho con "7-Nac. Noche Quin. Palé Noche"

- Cuando la loterías es "3-Leidsa Quin. Pale 05:55 PM" y la jugadas es "3-Tripleta" no me suma lo que se ha jugada que se han hecho con "7-Nac. Noche Quin. Palé Noche"

Lo que pasa es que el combo lo estabas moviendo de nombre por eso tenía 20, pero si ya no lo vas a mover, cambia las validaciones sin usar el Mid, por ejemplo:

Dice:

Select Case Mid(ComboBox1, 1, 29)
Case "7-Nac. Noche Quin. Palé Noche"

ahora debe decir:

Select Case ComboBox1
Case "7-Nac. Noche Quin. Palé Noche"

otro ejemplo, dice:

If Mid(Cells(i, "F"), 1, 27) = Mid("2-Lotería Nacional 09:00 PM", 1, 27)

ahora debe decir:

If Cells(i, "F") = "2-Lotería Nacional 09:00 PM"

Haz los cambios y vuelve a probar.

Saludo Dam, mil gracias nunca abría podido adelantar tanto mi proyecto si no fuera por tu ayuda.

Esta bien pero quedo algo fuera de lógica por lo que te haré una nueva pregunta para ver si me puedes ayudar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro diseñada para copiar registros de un form a una hoja excel

Segundo diseñe esta macro para que copie los valores del textbox a una hoja excel llamada histórico, pero que primero busque en la hoja histórico la fila a partir de la 2 en la columna 1 la vacía y lo copie pero no lo hace me podrías decir en que...
1 respuesta

Formulario con 2 combobox y guardar datos en diferente libro

Un mega favor esperando que me puedas ayudar Tengo un formulario con 2 combobox los cuales el primero Con el siguiente código Private Sub UserForm_Activate() 'Captura datos y guarda en empresa ws_Count = ActiveWorkbook.Worksheets.Count For i = 1 To...
1 respuesta

¿Cómo llenar un listbox con columnas discontinuas?

He terminado de diseñar un UF el cual contiene varios textbox, un listbox y un botón de búsqueda. Lo primero que hago es agregar una clave de cliente en el textbox1 y al presionar el botón, la macro hace la búsqueda, si lo encuentra, llena el resto...
2 respuestas

Macro para colocar datos según cabecera de columna y fila ingresada.

Elabore un UserForm donde ingreso datos a una hoja de excel seleccionando los datos de un combobox y se va ingresando uno debajo de otro. Pero al tercer ingreso se empieza a grabar uno arriba de otro. Las columnas no siempre se llenan todas y...
1 respuesta

Crear Formulario Excel (ayuda a un principiante)

Gurús del excel, estoy trabajando en un formulario de ingreso de datos y mi intención es aprender todo sobre la herramientas de formularios. El objetivo del formulario es entregar un código al usuario que lo ejecute y almacenar en otra hoja los datos...
1 respuesta

Una macro para extraer una cadena alfanumérica

Agradecería mucho si me ayudan con la elaboración de una macro, ya que la verdad apenas me estoy introduciendo en este tema y no conozco demaciado. Mi problema es el siguiente: En una columna (F:F) tengo una lista de caracteres alfanuméricos, la cual...
1 respuesta

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta