Xanito

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

Ok gracias Antoni, lo voy a probar y le cuento

Gracias por responder Leopoldo. Pero la cuestion esque que codigo seria el que tengo que adaptar en el UserForm para que anule la fila del numero de Operecion buscada en el HISTORICO. Eso es lo que no logro entender por eso estoy pidiendo ayuda.

Buenos dias Antoni adjunto de nuevo el archivo con el siguiente link, de antemano gracias por tu ayuda. https://drive.google.com/file/d/1bqSnoBedv3SUoMCeMc8UOi6VW_90r2dy/view?usp=sharing

Buenos dias, gracias por su pronta respuesta a los dos. Lo voy a reducir y lo voy a subir.

Buenas noches Genios en excel, aquí molestándolos de nuevo, figúrense que tengo un archivo que anula ingresos y egreso que me devuelve mi saldo anterior, es decir por ejemplo: al anular un ingreso en la hoja HISTÓRICO en la columna B del código 920 me devuelve mi stock anterior en la hoja de INVENTARIO del código 920, Pero hasta ahí está bien. Pero lo que quisiera es que al anular un ingreso o egreso que me anule la fila que estoy anulando en la hoja HISTÓRICO por ejemplo si quiero anular un ingreso voy a la hoja ANULACIONES_RA y digito el número de operación 1245 en la casilla de Userform de la operación a anular y el número de operación que busco está en la hoja HISTÓRICO en la columna T : OP-1245 del código 920 en la fila 1836, que figura en el Userform de ANULACIONES_DE_INGRESOS. Son varias los números de operación y solo busco el número de operación que quiero anular. Pero en este caso si se dan cuenta en la hoja de INVENTARIO tengo 8,120 de stock del código 920 pero al anular el número de operación OP-1245 se va quedar mi stock en 0. No se si me explico pero para mayor comprensión adjunto Link donde está el archivo ya que pesa, de antemano gracias. https://drive.google.com/file/d/1EaocnBm9jbNgGiKivp1nosAAkzlqLFXo/view?usp=sharing

Eres un Genio Antoni, hoy si, eso es lo que necesito, mil gracias, bendiciones. Tema solucionado.

Buenas tardes Antoni, gracias por su pronta respuesta lo voy a probar y le cuento, solo que estoy en el trabajo, por favor.