Jump to content

Xanito

Members
  • Content Count

    155
  • Joined

  • Last visited

  • Days Won

    2

Posts posted by Xanito


  1. Gracias por tu aporte tierra_pampa, yo estaba probando el archivo pero al descargar el lote 1 del codigo 1220 que tiene un saldo de 450, trato de descargaar solo 50 de ese lote, pero lo descarga de de tres lotes descarga 20 del lote Rodriguez1 y descarga 15 del lote 8 y 15 del lote 1 y no deberia ser asi, sino lo que busco esque me descargue los 50 solo del lote 1, disculpe que lo moleste tierra_pampa.


  2. Buen día a todos, en verdad Enigma25 el hizo una consulta de un tema llamado como manejar lotes en este foro, derivado de la consulta de él, Antoni miembro de este foro subió un archivo llamado Stock-Perecederos como su aporte; entonces yo lo analice y me pareció interesante y, lo quiero aplicar en mi trabajo.  Y estoy tratando de acoplarlo a mis necesidades, pero ya me quede estancado de lo que quiero lograr y ya no doy, porque yo no soy programador, estoy aprendiendo mucho en este foro.

    Dicho lo anterior, quien me podría ayudar en virtud que el Userform2-salidas tiene dos ListBox, el primero es para seleccionar el código y el ListBox2 aparecen todos los lotes de cada código entonces hace la descarga de salida pero toma de referencia el primer lote que encuentra en la fila donde comienza el código, no sé si me explico, pero eso no es lo que quiero, sino lo que trato de encontrar es que al seleccionar cualquier lote del código en el ListBox2 me descargue el lote que selecciono con el botón commandButton llamado Validar.   Espero de haberme explicado bien, de antemano gracias por sus aportes, cualquier modificación será bienvenido.

    Stocks-Perecederos - copia.xlsm


  3. Hola Gerson ese  codigo ya existe en los ComandButton3, 4 y 5 eso es lo que estoy usando para multiplicar las celdas antes indicada.  Pero eso es lo que no quiero usar.  Lo que yo busco esque me haga eso en el ComandButton1 de nombre aceptar a la hora de guardarlo. Lo que yo busco es no usar muchos ComandButton, no se si ne explico.  Espero haber explicado bien. Gracias por responder Gerson.


  4. Como están Genios, yo aqui molestando de nuevo, disculpen que los moleste, lo que pasa que yo no soy experto en programación. 

    pues yo tengo unos datos en la hoja1 que aveces se iquivoca uno al digitar cualquier cosa, entonces trate de hacer un ListBox y un formulario para modificar los datos de la Hoja1 a traves del formulario, funciona bien y todo, pero no mucho me parece  los botones de optionbutton1 y la optionbutton2 para que me multiplique el precio con el ingreso o egreso  en dinero en la columna M asi como depende el caso, con el boton optionbutton1;  y de ahi me multiplica el precio por el SALDO (UNIDADES) que esta en la columna N  el total en dinero de la columna Y con el boton optionbutton2 tanto de ingreso y de egreso depende el caso.

    Derivado de lo anterior, sera que alguien me puede echar la mano con algun codigo de programacion para que me guarde y multiplique el precio por el ingreso o egreso depende cual  sea el caso en la columna M Total (Q.)  y que también me multiplique el precio con el SALDO UNIDADES que esta en al columna N  a la columna Y al darle click en el boton aceptar en el formulario de Modificar Registros.  Adjunto el archivo, Sin mas que agregar les agradezco su apoyo sobre el mismo.

    Modificar datos mediante ListBox.xlsm


  5. Buenos días mis estimados, estoy tratando de hacer la formula que necesito, me funciona al digitar el valor en las celdas de referencias.

    Pero como en la celda de referencia en mi archivo original tiene formulas no se si es por eso no funciona la formula es su totalidad y, la formula que utilice es la siguiente: 

    =SI(I19<=0,I17,I19) 


  6. Que tal genios en Excel, aquí de nuevo molestándolos disculpen, que formula podría usar si por ejemplo en la columna B3 quiero jalar el precio de referencia de la columna E3 pero resulta que esa columna está a cero o en blanco, pero el precio de referencia de la columna E2 tiene entonces que me jale el que tiene precio; y si la columna E2 y la E3 tienen precio entonces solo me jale el precio de la columna E3,  no sé si me explico.  De antemano gracias por su ayuda.                                       

                                                  

    Precio.xlsx


  7. Buenas noches Genios en Excel, espero que estén bien, después de mi corto saludo paso a lo siguiente:

    Lo que les quiero pedir yo lo veo complicado, pero de repente hay alguien que me pueda ayudar.  Lo que pretendo lograr es que al buscar unas Órdenes de compra, como por ejemplo: busco la orden de compra 123 dentro de la matriz y jalar la fecha y, resulta que la orden a buscar esta de esta manera 123/2019 y si uso el buscarv normal para jalar la fecha yo creo que no va funcionar solo así; alguien tendrá una idea como se puede lograr, de antemano gracias.

    Buscarv.xlsx


  8. Buenas tardes genios en Excel, alguien me podría ayudar sobre una formula; bueno lo que hace este archivo es que en la columna G me resalta con colores los días, entre más cerca este el producto a vencerse los días se ponen de color rojo.  Pero lo que busco hacer es que al momento de que el producto ya se consumió antes de que se venciera el producto, es decir que este a cero en la columna de Saldos, entonces  que ya no este marcando los colores y que el día aparezca en cero.  De antemano gracias por su valiosa ayuda.

    PRODUCTOS VENCIDOS.xlsx


  9. Buenas noches Genios en Excel, aqui de nuevo molestandolos, por favor me podrian ayudar con lo siguiente:

    En la columna "C"  Cantidad Entregada y pendiente de entrega,  por ejemplo del Código 2, que el 3 es la cantidad entregada y la 5 es la cantidad total a entregar.  Pero lo que trato de buscar es una formula que reste el 3 a la número 5 quedando = 2 asi como esta en la columna "D"

    De antemano gracias.

    Control-Entregas-2019.xlsx


  10. Buenas tardes Antoni, disculpe que lo moleste no soy bueno para programar, agregue el código que usted me dijo, no tira ningun error pero no elimina la fila en el HISTÓRICO, usted podria verificar por favor que estoy haciendo mal, el código que usted me dejo lo resalte en color rojo para que usted mire donde puse cada codigo, lo hice de la siguiente manera:

    Private Sub CommandButton11_Click()
    Dim filah As Long
    Application.ScreenUpdating = False
    Application.Visible = True
    Sheets("ANULACIONES_RA").Activate
    Sheets("ANULACIONES_RA").Visible = True
    Sheets("HISTÓRICO").Visible = False
    'Call osotovi

    Unload Me
    End Sub

    Private Sub BOTONBUSQUEDA_Click()
    Sheets("HISTÓRICO").Activate
    Sheets("HISTÓRICO").Visible = True
    Sheets("FINALIZACION_MEB").Visible = False

    On Error GoTo noencontro

    Cells.Find(What:=LOCALIZADO_ANULACION, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False).Activate

    ActiveCell.Offset(0, -18).Select
    OTO1 = ActiveCell
    ActiveCell.Offset(0, 1).Select
    OTO2 = ActiveCell
    ActiveCell.Offset(0, 3).Select
    OTO3 = ActiveCell
    ActiveCell.Offset(0, -5).Select
    OTO4 = ActiveCell
    ActiveCell.Offset(0, 19).Select
    OTO5 = ActiveCell
    ActiveCell.Offset(0, 22).Select
    OTO6 = ActiveCell
    ActiveCell.Offset(0, 22).Select
    OTO7 = ActiveCell

    noencontro:
     filah = ActiveCell.Row
    End Sub

    Private Sub CommandButton1_Click()

    Sheets("ANULACION_MEB").Activate
    Sheets("ANULACION_MEB").Unprotect "55821353"
    Range("L5").Select
        ActiveCell.Offset(0, 0).Value = OTO1.Value
        ActiveCell.Offset(0, 1).Value = OTO6.Value
    Sheets("ANULACION_MEB").Protect "55821353"

    'ver procedimiento de validación
    Application.ScreenUpdating = False
    Sheets("INVENTARIO").Activate
    Sheets("INVENTARIO").Visible = True
    Worksheets("INVENTARIO").Select
    Sheets("INVENTARIO").Unprotect "55821353"
    Range("A:A").Select

    For x = 1 To 20
        Selection.Find(What:=ThisWorkbook.Names("CODIGO_INGRESO_MEB").RefersToRange.Value, _
        After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        validacion = Len(ActiveCell.Text)
        If Len(ThisWorkbook.Names("CODIGO_INGRESO_MEB").RefersToRange.Value) = validacion Then
            ActiveCell.Select

    Exit For
        End If
    Next x

    If ActiveCell.Value = ThisWorkbook.Names("CODIGO_INGRESO_MEB").RefersToRange.Value Then
        
        ActiveCell.Offset(0, 3).Select
        bodegaanterior = ActiveCell.Value
            If bodegaanterior < ThisWorkbook.Names("CANTIDAD_INGRESO_MEB").RefersToRange.Value Then
                MsgBox "LA OPERACIÓN QUE PRETENDE REALIZAR NO ES PROCEDENTE, TODA VEZ QUE LA CANTIDAD A REVERTIR ES MAYOR AL SALDO DE INVENTARIO." & Chr(13) & "         * * EXISTENCIA DE " & bodegaanterior & " UNIDADES EN SALDO DE AUXILIAR * *", vbOKOnly + vbCritical, "**ADMINSTRADOR**"
                'SALDO_INSUFICIENTE.Show NO MOSTRAR ÉSTE CUADRO

    Sheets("INVENTARIO").Activate
    Sheets("INVENTARIO").Visible = True
    Worksheets("INVENTARIO").Select
    Sheets("INVENTARIO").Protect "55821353"
                
                Sheets("ANULACIONES_RA").Activate
                Sheets("ANULACIONES_RA").Protect "55821353"
            Exit Sub
            End If

    'PROCEDIMIENTO PARA DEJAR REGISTRO DE OPERACION
    Sheets("HISTÓRICO").Activate
    Sheets("HISTÓRICO").Visible = True
    Sheets("HISTÓRICO").Select
    Sheets("HISTÓRICO").Unprotect "55821353"
    x = MsgBox("ESTÁ SEGURO DE LA OPERACIÓN QUE ESTÁ POR APLICAR", vbYesNo + vbQuestion, "Opción")
        If x = vbYes Then
        ActiveCell.Offset(0, -22).Value = "OPERACIÓN ANULADA" & " por " & " " & Application.UserName & " el " & " " & Date & " " & Time
        ActiveCell.Offset(0, -41).Value = OTO7.Value
        ActiveCell.Offset(0, -57).Value = OTO7.Value
        OTO7.Text = ""
        ActiveCell.Offset(0, -32).Value = "OPERACIÓN ANULADA" & " por " & " " & Application.UserName & " el " & " " & Date & " " & Time
        ActiveCell.Offset(0, -31).Value = "OPERACIÓN ANULADA" & " por " & " " & Application.UserName & " el " & " " & Date & " " & Time
        ActiveCell.Offset(0, -55).Value = "OPERACIÓN ANULADA " & Date & " _ " & Time
           
        
        LOCALIZADO_ANULACION = ""

    Sheets("HISTÓRICO").Protect "55821353"
    'Sheets("FINALIZACION_MEB").Visible = True   ÉSTA OPERACIÓN YA NO PROCEDE
    'Sheets("FINALIZACION_MEB").Select   ÉSTA OPERACIÓN YA NO PROCEDE
    Sheets("HISTÓRICO").Visible = False
    Application.ScreenUpdating = False
    Sheets("ANULACION_MEB").Activate
    Sheets("ANULACION_MEB").Visible = True
    Sheets("ANULACION_MEB").Unprotect "55821353"
    Range("L5").Select
        ActiveCell.Offset(0, 0).Value = OTO1.Value
        ActiveCell.Offset(0, 1).Value = OTO6.Value
    Sheets("ANULACION_MEB").Protect "55821353"
    Sheets("HISTÓRICO").Visible = True
    Sheets("HISTÓRICO").Select
    Sheets("ANULACION_MEB").Visible = False
    Application.Visible = True

    Call ActualizarSALDOenanulacionMEB_AUXILIAR_INGRESO
    Call INDICADOR_DE_REGISTRO_REALIZADO_AUXILIAR

    'Call REGISTRO_DE_SUBIDA_DE_SALDO_INGRESOS
    Sheets("HISTÓRICO").Visible = False '= xlVeryHidden
    'Unload Me

        Else
    'Sheets("FINALIZACION_MEB").Visible = True  no procede
    'Sheets("FINALIZACION_MEB").Select  no procede
    Sheets("HISTÓRICO").Visible = False
    Application.Visible = True

    Sheets("HISTÓRICO").Rows(filah).Delete
    End If
    End If
    End Sub

×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png