Xanito

Tierra_pampa eres un barbaro, es lo que necesito, gracias te lo agradezco. Tema solucionado.

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.

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

Ya funciona perfectamente, eres un Genio Gerson Pineda, te lo agradezco, bendiciones, Tema solucionado.

Hola Gerson, funciona perfectamente solo con un inconveniente: no me multiplica el PRECIO con el INGRESO o EGRESO en el TOTAL (Q.) de la columna M, seria del TextBox13 ¿tu me podrias apoyar con eso? esque no mucho entiendo la programacion, disculpe que lo moleste, de antemano gracias.

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.

Cualquier modificacion en el archivo sera Bienvenido muchas gracias.

Hola Gerson, si asi como esta ahi tengo que usar el optionbutton1 y optionbutton2 para lograr la multiplicación, pero no quiero usar esos botones. Lo que quisiera es que al darle en el boton acepatar me haga lo que hace la optionbutton1 y 2. Gracias por responder Gerson.

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

Gracias Silvia, me diste otra idea, ya lo probe y funciona. Tema solucionado, bendiciones.

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)

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

Eres un Genio johnmpl, te admiro, es la formula que necesito, muchas gracias. Tema solucionado .

Quetal Gerson, es 2013.

Buenas tardes genios en Excel, me podrían ayudar por favor con lo siguiente: yo quisiera unificar la cantidad de unos códigos, que por ejemplo quiero unificar la cantidad del código 7 que quedaría de la manera siguiente 30,50,25. Para mayor comprensión adjunto el archivo, de antemano gracias por su ayuda. Unificar.xlsx

Gracias johnmpl y Gerson son unos genios, es lo que necesito gracias les agradezco. Tema solucionado☺️

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

Johnmpl gracias funciona perfectamente, sos un genio, tema solucionado.

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

Gracias a todos, son unos genios.

Gabriel Raigosa, justo lo que necesito, eres un genio, gracias por tu pronta respuesta. Tema solucionado.

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

Antoni sos un genio, ya funciono, gracias. Tema solucionado. Haplox gracias por tu aporte.

Gracias por responder Haplox y Antoni, lo estoy probando.

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