Xanito

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.

Buenas noches Genios de Excel, esta solicitud ya lo había hecho antes aquí en ayuda Excel, y me ayudo amablemente Gerson Pineda, pero la persona que utilizó este archivo me indicó que al digitar una hora que ya ha sido ingresada a otra fecha, la macro siempre lo elimina y no es lo que queríamos lograr, perdonen talvez no me explique la ves pasada. Bueno lo que quiero lograr es que no me deje ingresar una hora repetida en una misma fecha; por ejemplo en la fecha 01/11/2018 ya existe una hora como: 07:15 y al poner otra vez la fecha 01/11/2018 y la hora 07:15 que no me deje ingresar la misma hora en una misma fecha, no sé si me explico, pero para mayor comprensión ahí está el ejemplo en el archivo, y les dejo la URL porque es muy pesado el archivo, de antemano gracias por su ayuda. https://drive.google.com/file/d/16Z8aJqQmOGMGSCJB6zJIhQuvsTLumgI5/view?usp=sharing

Gerson Pineda eres un genio, gracias, funciona perfectamente

Gracias Gerson, dame chanse lo probare, solo que estoy en el trabajo

Buen día a todos. Me pueden ayudar por favor; el archivo que adjunto, lo que hace es que la columna fecha cuando llega a la cantidad de 30 pacientes en una misma fecha de electro, que tira un mensaje que no puedo enviar más de 30 pacientes en una misma fecha, hasta ahí va bien. Pero lo que necesito es que también me tire un mensaje que no puedo enviar más de 1 paciente en la misma hora y en la misma fecha; por ejemplo en la fecha 01/11/2018 ya existe una hora como: 07:15 y al poner otra vez la fecha 01/11/2018 07:15 que me tire la alerta antes descrita, no sé si me explico, pero para mayor comprensión ahí está el ejemplo en el archivo, y les dejo la URL porque es muy pesado el archivo, de antemano gracias por su ayuda. https://drive.google.com/file/d/16Z8aJqQmOGMGSCJB6zJIhQuvsTLumgI5/view?usp=sharing

Gracias por tu pronta respuesta Leopoldo y Mario tinen razon. Tema solucionado.