Xanito

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

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.