Excel - Ayuda con macro

 
Vista:
sin imagen de perfil
Val: 3
Ha aumentado su posición en 10 puestos en Excel (en relación al último mes)
Gráfica de Excel

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 3
Ha aumentado su posición en 10 puestos en Excel (en relación al último mes)
Gráfica de Excel

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.....
************************************************************************************
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
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar