Anular fila en Histórico

Xanito · el 10 de diciembre

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

Haplox · el 10 de diciembre

No puedo descargar tu fichero

Antoni · el 10 de diciembre

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.

Xanito · el 10 de diciembre

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

Xanito · el 10 de diciembre

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

Leopoldo Blancas · el 10 de diciembre

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:

Desprotege tus hojas al inicio
Localiza la Operación
Pasa a una variables la cantidad a eliminar o descontar de tu hoja Histórico.
Borra la Fila
Busca en la hoja INVENTARIO el código en cuestión
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.
Proteges tus hojas.

Saludos.

Xanito · el 10 de diciembre

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.

Antoni · el 10 de diciembre

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

Xanito · el 10 de diciembre

Ok gracias Antoni, lo voy a probar y le cuento

Xanito · el 10 de diciembre

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

Haplox · el 11 de diciembre

@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

Antoni · el 11 de diciembre

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á.