Dividir datos visual basit
Como puedo, a la vista de este ejemplo que en cada observación no las saque todas juntas sino que salga una por cada dato que falte y diciendo cual es la falta
esto es lo que esta en this wortkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("I107") < 1 Or Range("T84") > 0 Or Range("K111") < 1 Or Range("T82") > 1 Or Range("h4") < 1 Or Range("H3") < 1 Or Range("q111") < 1 Then
a = MsgBox("FALTA DATO EN VENDEDOR O VENCIMI O TINTES O IMPORTE o FECHA o nº CLIENTE" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If a = vbNo Then Cancel = True
End If
End Sub
esto es lo que esta en this wortkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("I107") < 1 Or Range("T84") > 0 Or Range("K111") < 1 Or Range("T82") > 1 Or Range("h4") < 1 Or Range("H3") < 1 Or Range("q111") < 1 Then
a = MsgBox("FALTA DATO EN VENDEDOR O VENCIMI O TINTES O IMPORTE o FECHA o nº CLIENTE" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If a = vbNo Then Cancel = True
End If
End Sub
1 Respuesta
Respuesta de patanrisitas
1
Prueba este código y me avisas:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim A, B, C, D, E, F, G
A = Range("I107").Value '< 1
B = Range("T84").Value '> 0
C = Range("K111").Value '< 1
D = Range("T82").Value '> 1
E = Range("H4").Value '< 1
F = Range("H3").Value '< 1
G = Range("Q111").Value '< 1
If A < 1 Then
A1 = MsgBox("T84 es Mayor que 0" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If A1 = vbNo Then Cancel = True
ElseIf B > 0 Then
B1 = MsgBox("T84 es Mayor que 0" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If B1 = vbNo Then Cancel = True
ElseIf C < 1 Then
C1 = MsgBox("K111 es Menor que 1" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If C1 = vbNo Then Cancel = True
ElseIf D > 1 Then
D1 = MsgBox("T82 es Mayor que 1" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If D1 = vbNo Then Cancel = True
ElseIf E < 1 Then
E1 = MsgBox("H4 es Menor que 1" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If E1 = vbNo Then Cancel = True
ElseIf F < 1 Then
F1 = MsgBox("H3 es Menor que 1" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If F1 = vbNo Then Cancel = True
ElseIf Range("q111") < 1 Then
F = MsgBox("Q111 es Menor que 1" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If F = vbNo Then Cancel = True
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim A, B, C, D, E, F, G
A = Range("I107").Value '< 1
B = Range("T84").Value '> 0
C = Range("K111").Value '< 1
D = Range("T82").Value '> 1
E = Range("H4").Value '< 1
F = Range("H3").Value '< 1
G = Range("Q111").Value '< 1
If A < 1 Then
A1 = MsgBox("T84 es Mayor que 0" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If A1 = vbNo Then Cancel = True
ElseIf B > 0 Then
B1 = MsgBox("T84 es Mayor que 0" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If B1 = vbNo Then Cancel = True
ElseIf C < 1 Then
C1 = MsgBox("K111 es Menor que 1" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If C1 = vbNo Then Cancel = True
ElseIf D > 1 Then
D1 = MsgBox("T82 es Mayor que 1" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If D1 = vbNo Then Cancel = True
ElseIf E < 1 Then
E1 = MsgBox("H4 es Menor que 1" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If E1 = vbNo Then Cancel = True
ElseIf F < 1 Then
F1 = MsgBox("H3 es Menor que 1" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If F1 = vbNo Then Cancel = True
ElseIf Range("q111") < 1 Then
F = MsgBox("Q111 es Menor que 1" & Chr(13) & _
"desea cerrar de todas formas ?", _
vbYesNo)
If F = vbNo Then Cancel = True
End If
End Sub
