Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Anular fila en Histórico

Xanito

Por Xanito
en Macros y programación VBA

Recommended Posts

Xanito Colaborador

Xanito

publicado
publicado

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

Antoni Veterano

Antoni

publicado
publicado

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 Colaborador

Xanito

publicado
  • Autor
publicado

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

Leopoldo Blancas Novato

Leopoldo Blancas

publicado
publicado

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.

Xanito Colaborador

Xanito

publicado
  • Autor
publicado

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 Veterano

Antoni

publicado
publicado

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 Colaborador

Xanito

publicado
  • Autor
publicado

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 Asiduo a Ayuda Excel

Haplox

publicado
publicado

@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 Veterano

Antoni

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

Xanito Colaborador

Xanito

publicado
  • Autor
publicado

Gracias por responder Haplox y Antoni, lo estoy probando.

Xanito Colaborador

Xanito

publicado
  • Autor
publicado

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

Haplox gracias por tu aporte.

 

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29
    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Cambios en el Control Horario
    Por pegones1

    3    1

  • Crear macros Excel

  • Mensajes

    • jues
      Generador de Códigos

      Por jues · publicado

      Saludos amigos espero estén bien  En la actualidad utilizo la siguiente macro para generar un código alfanumérico continuo que al guardar los datos se copia en la Celdas “B5” de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) Private Sub CommandButton3_Click()     If Hoja58.Range("B5").Value < 9999 Then Hoja58.Range("B5").Value Hoja58.Range("B6").Value + 1     Else        Hoja58.Range("B5").Value = 1     End If If Hoja59.Range("B5").Value < 9999 Then Hoja59.Range("B5").Value = Hoja59.Range("B6").Value + 1 Else        Hoja59.Range("B5").Value = 1     End If End Sub El código se genera normalmente sin embargo no se copia inmediatamente en las Celdas “B5” sino que aparece en las Celdas “B6” mientras que las Celdas “B5” siempre permanecen en blanco, actualmente el código consta de tres letras y cuatro dígitos (RCI-0000) pero me interesa poderle concatenar el mes y año en formato mm-yy para que el código finalmente quede expresado de la siguiente forma RCI-0000-00-00 Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • jues
      Justificar Texto en Texbox

      Por jues · publicado

      Saludos amigos espero estén bien  En la actualidad cuando introduzco texto en los TextBox 5, 6 y 7 y dicho texto es mas largo que el ancho de los Texbox el texto se copia en una misma línea lo que dificulta verificar la redacción, así como visualizar cualquier error por lo cual necesito me ayuden con una macro que justifique el texto dentro de los Textbox, he probado usar la función Multiline sin obtener el resultado esperado. Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • jues
      Ajuste Selectivo del Tamaño de las Filas

      Por jues · publicado

      Saludos amigos espero estén bien  En la actualidad utilizo los datos provenientes de los TextBox 5, 6 y 7 se guardan en las Columnas H, I y O de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) sin embargo cuando el texto es abundante no se visualiza completamente en las celdas correspondientes de allí que necesito que cada fila se ajuste al tamaño de la celda que contenga mayor cantidad de texto para lo cual he probado con la siguiente macro: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.EntireRow.AutoFit End Sub Sin embargo, dicha macro coloca todas las filas del tamaño del texto que contengan y lo que en realidad necesito es que dicha macro solo se aplique desde la Fila 5 en adelante. Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • jues
      Formato de Fecha

      Por jues · publicado

      Saludos amigos espero estén bien  En la actualidad utilizo la siguiente macro para que la fecha aparezca en el Textbox2: Private Sub UserForm_activate() Me.TextBox2.Value = VBA.Date End Sub Sin embargo, una vez guardo los datos la fecha cambia de formato y se guarda en formato mm/dd/yyyy en vez de dd/mm/yyyy y este cambio de fecha me distorsiona los resultados de las fórmulas en las Columnas J en las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • Gerson Pineda
      AYUDA PARA EXTRAER INFORMACIÓN ESPECIFICA DE UNA COLUMNA

      Por Gerson Pineda · publicado

      ¡Hola! Después de un buen tiempo ausente...  @Gabriela hg ya que veo que tienes Excel 365, te dejo mi solución para piezas y gramos.   Extraer piezas - gramos 365_GP.xlsx

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.