Excel - Ayuda con macro

Val: 3

Ayuda con macro

Publicado por Carolina (2 intervenciones) el 01/03/2019 17:42:39

Buen dia, espero que esten bien...

Mi problema es el siguiente:
Al momento de realizar un scan obtengo el producto,cantidad, lote y fecha de cuando se realizo el scan, a eso quiero anexar la local o repisa en la que se ubicara ese material de forma automatica, basandome en una tabla que contiene la local o repiza, el material y la cantidad que cabe tomando en cuenta si ya se lleno, si esta en proceso o esta vacio.

-------Tabla Locales
Material | L | Qty | Status | Now | Total Qty
-----------------------------------------------------------------------
P001 | A2 | 96 | Completo | 96 | 96
-----------------------------------------------------------------------
P001 | A3 | 96 | Procesando | 96 | 192
-----------------------------------------------------------------------
P001 | A4 | 96 | Procesando | 96 | 288
-----------------------------------------------------------------------
P001 | A5 | 96 |Procesando | 96 | 384

-------Tabla Scan
Date| Lot No | Part No| Qty | To
----------------------------------------------------------------------------------------
2/28/2019 | LA789789456240 | P001 | 96 | (Local)

De antemano gracias por su atencion!
Caro

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 739

Val: 3

Ayuda con macro

Publicado por Carolina (2 intervenciones) el 12/03/2019 18:48:29

Buen día,
Despues de ver varios videos, modifique un codigo y esto es lo que quedo.....
************************************************************************************

Sub MandarA()

    'Declarar variables

    Dim fpartno As String

    Dim ufila As Long

    Dim n As Long

    Dim fsendto As String

    fpartno = UserForm1.TextBox4

    ufila = Sheets("STOS").Range("A" & Rows.count).End(xlUp).Row

    'Si la tabla de stos no tiene valores cerrar

    If ufila < 2 Then

        Exit Sub

    End If

    'ciclo para enviar a

    For n = 2 To ufila

        If Sheets("STOS").Cells(n, 1) = fpartno And Sheets("STOS").Cells(n, 2) = "K1" And Sheets("STOS").Cells(n, 4) = "Pendiente" Or Sheets("STOS").Cells(n, 4) = "Procesando" Then

        fsendto = "K1"

        Else

        fsendto = "Distribucion Local"

        End If

      Next n

      UserForm1.TextBox6 = fsendto

End Sub

************************************************************************************
El problema que tengo ahora es que todo lo manda a "Distribucion Local"

Saludos!
Caro

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar