Fejoal o Valedor - Ayuda Urgente
Necesito un consejo de verdaderos expertos como ustedes: Hay les Va!
Tengo una B.DE con muchos registros, esta B.DE consta de 6 campos: Código, Articulo, Fecha compra, Dependencia, Estado_Articulo, Valoración.
Los códigos van de 1 a 3 unicamente y la Valoración es "Activo" o "Retirado" no más.
Yo tengo programados varios formularios en VBA, desde donde ingreso nuevos artículos, imprimo reportes, y otra serie de ordenes en general. Bueno resulta que necesito hacer otro formulario con un botón que me actualice la B.DE de la siguiente manera:
Los códigos que estén en 1 los cambie por 2, los que están en 2 los cambie por 3 y los del tres los cambie por 99, Pero solamente si su Valoración es "Activo", de lo contrario quedan igual.
Si me pueden ayudar les quedaré muy agradecido.
Harold.
Tengo una B.DE con muchos registros, esta B.DE consta de 6 campos: Código, Articulo, Fecha compra, Dependencia, Estado_Articulo, Valoración.
Los códigos van de 1 a 3 unicamente y la Valoración es "Activo" o "Retirado" no más.
Yo tengo programados varios formularios en VBA, desde donde ingreso nuevos artículos, imprimo reportes, y otra serie de ordenes en general. Bueno resulta que necesito hacer otro formulario con un botón que me actualice la B.DE de la siguiente manera:
Los códigos que estén en 1 los cambie por 2, los que están en 2 los cambie por 3 y los del tres los cambie por 99, Pero solamente si su Valoración es "Activo", de lo contrario quedan igual.
Si me pueden ayudar les quedaré muy agradecido.
Harold.
1 respuesta
Respuesta de vkinki
1
Puedes utilizar este código cuando hagan click en el botón. (Me baso en que el código lo tienes en la columna 1 y la valoración en la 6, sino deberías cambiar en el código donde pongo cells(i, 1) por cells(i, nº columna código) y lo mismo con la valoración.
MsgBox "Se va a actualizar la tabla. Desea seguir?", vbOKCancel
i = 1
Do While Cells(i, 1) <> ""
If Cells(i, 6) = "Activo" Then
If Cells(i, 1) = 1 Then
Cells(i, 1) = 2
Else
If Cells(i, 1) = 2 Then
Cells(i, 1) = 3
Else
If Cells(i, 1) = 3 Then
Cells(i, 1) = 99
End If
End If
End If
End If
i = i + 1
Loop
MsgBox "Se va a actualizar la tabla. Desea seguir?", vbOKCancel
i = 1
Do While Cells(i, 1) <> ""
If Cells(i, 6) = "Activo" Then
If Cells(i, 1) = 1 Then
Cells(i, 1) = 2
Else
If Cells(i, 1) = 2 Then
Cells(i, 1) = 3
Else
If Cells(i, 1) = 3 Then
Cells(i, 1) = 99
End If
End If
End If
End If
i = i + 1
Loop
