Jump to content
Xanito

Anular fila en Histórico

Recommended Posts

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

Share this post


Link to post
Share on other sites

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.

Edited by Antoni

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

@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

 

Share this post


Link to post
Share on other sites
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á.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5