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

No puedo descargar tu fichero

Editado el el 10 de diciembre6 años por Haplox

Yo si he podido descargar tu archivo, pero 10 Mbytes es un tamaño de archivo inmanejable.

Tu hoja HISTÓRICO contiene más de 1.000.000 de filas vacías y otras hojas, aunque en menor medida, también contienen una gran cantidad de filas innecesarias.

Construye un archivo solo con las hojas y datos necesarios para probar tu ejemplo y vuélvelo a subir.

Editado el el 10 de diciembre6 años por Antoni

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

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

Hola Xanito,

Veo difícil seguir tu código, te voy a dar los pasos y/o conejos a seguir.

1.-No pongas tantas veces en tu código, separalo en una SUB o lo puedes hacer al inicio del USERFORM :

Sheets("HISTÓRICO").Activate
Sheets("HISTÓRICO").Visible = True
Sheets("HISTÓRICO").Select
Sheets("HISTÓRICO").Unprotect "55821353"
 

 2.- En la hoja históricos tienes la cantidad de INGRESO, columna J  8120 , y en saldo, columna N 8120, y es por eso que te lo deja en CERO.

Pasos a seguir:

1. Desprotege tus hojas al inicio
2. Localiza la Operación
3. Pasa a una variables la cantidad a eliminar o descontar de tu hoja Histórico.
4. Borra la Fila
5. Busca en la hoja INVENTARIO el código en cuestión
6. Obtén la cantidad del Inventario y le restas lo que guardaste en la variable y lo vuelves a guardar en la misma celda el resultado.
7. Proteges tus hojas.

Saludos.

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.

A ver si lo consigues tu solo:

Sigue estos pasos y te debería funcionar

1) Define una variable a nivel userform,  por ejemplo: Dim Filah As Long

2) Guarda la fila después de buscar la operación, así: FilaH = Activecell.Row

3) En el momento de aplicar la anulación: Sheets("HISTÓRICO").Rows(FilaH).Delete

Ok gracias Antoni, lo voy a probar y le cuento

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

@Xanito

Dim filah As Long
______________

Private Sub CommandButton11_Click()
Application.ScreenUpdating = False

Cuando @Antoni te dijo  lo de crear la variable a nivel de userform, se referia a que la deginieses al principio DE TODO EL CODIGO QUE TIENES. Asi tu codigo deberia quedar como arriba.

Busca por declaracion de variables, versd los distintos tipos que hay

 

Hace 3 horas, Haplox dijo:

@Xanito

Dim filah As Long
______________

Private Sub CommandButton11_Click()
Application.ScreenUpdating = False

Cuando @Antoni te dijo  lo de crear la variable a nivel de userform, se referia a que la deginieses al principio DE TODO EL CODIGO QUE TIENES. Asi tu codigo deberia quedar como arriba.

Busca por declaración de variables, ver los distintos tipos que hay

 

Y además, debes eliminar la fila antes de volver a proteger la hoja, porqué de lo contrario, no te funcionará.

Gracias por responder Haplox y Antoni, lo estoy probando.

Antoni sos un genio, ya funciono, gracias. Tema solucionado.

Haplox gracias por tu aporte.