Excel - VERIFICAR STOCK MACRO

 
Vista:

VERIFICAR STOCK MACRO

Publicado por carlinhos (9 intervenciones) el 06/06/2018 21:58:38
BUENAS EXPERTOS, ESTOY QUE ME ROMPO LA CABEZA Y NO LA HAYA

LO QUE QUIERO SI UN PRODUCTO SU STOCK ES CERO NO SE PUEDE PROCESAR CASO CONTRARIO QUE SE PROCESE...PERO NO ME SALE ALGO ME FALTA..ESTE ES MI CODIGO DE MI MACRO..

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Verificar_Stock()
''BUSCO STOCK DE LA FILA 2 AL 6 DE LA COLUMNA A
     'COLUMNA
'1    'A
'2     0
'3     0
'4     1
'5     0
'6     1
For x = 2 To 6
If Range("A" & Trim(x)).Value = 0 Then
       DATOS = "stock no hay, no se puede procesar la factura"
       MsgBox DATOS
Exit For
ElseIf Range("A" & Trim(x)).Value <> 0 Then ' SI TODOS SON MAYORES A 0
'1    'A
'2     1
'3     0
'4     1
'5     1
'6     1
MsgBox "PUEDE PROCESAR LA FACTURA"
End If
Exit Sub
Next
 
End Sub

MI ERROR ESTA EN EL ELSEIF.......COMO SE VE LA TABLA SI HAY UN CERO NO SE DEBERIA PROCESAR SIN EMBARGO ME SALE "PUEDE PROCESAR LA FACTURA"...AYUDA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Abraham Valencia
Val: 296
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

VERIFICAR STOCK MACRO

Publicado por Abraham Valencia (109 intervenciones) el 06/06/2018 22:58:44
Tratando de entenderte, déjalo así:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Verificar_Stock()
Dim x As Integer
 
For x = 2 To 6
    If Range("A" & Trim(x)).Value = 0 Then
        DATOS = "stock no hay, no se puede procesar la factura"
        MsgBox DATOS
        Exit Sub
    End If
Next
MsgBox "PUEDE PROCESAR LA FACTURA"
End Sub

Comentas

Abraham Valencia

PD: Yo cambiaría algunas otras cosas pero ese es otro tema
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

VERIFICAR STOCK MACRO

Publicado por carlinhos (9 intervenciones) el 07/06/2018 01:19:06
gracias eres un crack.....lo probe y sale, descubri otra manera de hacerlo aqui pego el codigo por si acaso alguien quiere hacerlo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub MACROSA()
Dim I As Integer
Dim found As Boolean
Dim VALOR As String
found = False
 
For I = 2 To 10
If Range("A" & I) = "0" Then
        found = True
       VALOR = Range("C" & I)
End If
Next
 
If found = True Then
    MsgBox "No hay Stock Suficiente de..." & VALOR
Else
    MsgBox "Generando factura"
    Hoja2.Select
End If
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar