Jump to content

Max2005

Members
  • Content Count

    202
  • Joined

  • Last visited

  • Days Won

    2

Posts posted by Max2005


  1. Hola Juan Reyes Martínez

    Usa este Código

    Option Explicit
    Public i, x As Double


    Sub Mayores100000()
    x = Range("A2", Range("A65536").End(xlUp)).Rows.Count
    Range("C1").Select

    For i = 1 To x
    If ActiveCell.Offset(i, 0).Value > 100000 Then
    ActiveCell.Offset(i, -1).Value = ActiveCell.Offset(i, -2).Value + 100000
    Else
    ActiveCell.Offset(i, 0).Value = ActiveCell.Offset(i, -1).Value - ActiveCell.Offset(i, -2).Value
    End If
    DoEvents
    Next

    End Sub[/CODE]

    Mucha Suerte

    Saludos !!!


  2. Hola rogman41,

    Solo puedes utilizar al momento de que una celda cambie no en la edición, puedes usar este código


    Option Explicit
    Public varDt1 As String

    Private Sub Worksheet_Change(ByVal Target As Range)

    'Pasamos a una variable, la celda o celdas que queremos evaluar si cambian o no
    varDt1 = "D2"

    'si la celda activa es la misma que la celda que hemos puesto en la variable llamada
    '"datos", entonces que muestre un mensaje (recordemos que una doble negación es una afirmación)
    If Not Application.Intersect(Target, Range(varDt1)) Is Nothing Then
    Range("D1").Value =Range("D2").Value
    End If
    End Sub[/CODE]

    Aquí solo es un ejemplo si cambia la Celda D2 lo posteara en la celda D1, espero te sirva

    Mucha Suerte

    Saludos !!!


  3. Hola Sriog,

    Te propongo esta Macro, pero debes tomar en cuenta las consideraciones de Héctor, aún que he puesto una alerta debido al tamaño de los datos se tomaría algunos minutos en terminar de procesarse, por lo que también puse un selector de para las estaciones a fin de delimitar las base por lo que tendrás que actualizar la hoja de datos después de cada ejecución.

    Mucha Suerte

    Saludos !!!

    TRANSPONER1.zip


  4. Hola José Reyna Cepeda

    Ya lo he revisado y si funciona, de hecho había puedes corroborarlo verificando que los que seas que se borre sea eliminado.

    Así también asegúrate que están habilitadas las Macros, pero si sigue sin funcionar, aquí te envío el código, pégalo en el Módulo y asígnalo al botón Ejecutar

    Public Sub QuitarBajoCriterio()

    Sheets("EJEMPLO PARA AYUDA").Select
    Application.ScreenUpdating = False
    Range("E1").Select

    Do
    ActiveCell.Offset(1, 0).Select
    If ActiveCell.Value = "NO SALIO A RUTA" Or ActiveCell.Value = "EN RUTA" Or ActiveCell.Value = "TALLER" _
    Then
    ActiveCell.EntireRow.Delete
    End If
    Loop Until ActiveCell.Value = ""

    Application.ScreenUpdating = True
    MsgBox ("Proceso Terminado"), vbInformation

    End Sub

    [/CODE]

    Mucha Surte

    Saludos !!!


  5. If MsgBox("¿Seguro que quiere eliminar este Registro?", vbQuestion + vbYesNo) = vbYes Then

    For Fila = 2 To Final
    If Hoja3.Cells(Fila, 1) = CInt(xArticulo) Then 'Puse el articulo como Integer para que coincidan los tipos
    Hoja3.Cells(Fila, 1).EntireRow.Delete
    Exit For
    End If
    Next
    Call btn_Buscar_Click
    MsgBox "Registro eliminado", vbInformation + vbOKOnly

    Else
    Exit Sub

    End If[/CODE]

    Mucha Suerte

    Saludos !!!


  6. Option Explicit

    Public ClaveEntrada as String

    Sub Entra()

    Range("A2").Select

    ClaveEntrada = ActiveCell.FormulaR1C1 + 12 <---------------- ahi va el error

    CeldaEntrada = "D" & ClaveEntrada

    Range("F4").Select

    EntradaProducto = ActiveCell.FormulaR1C1

    Range(CeldaEntrada).Select

    ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) + Val(EntradaProducto)

    Range("F4").Select

    ActiveCell.FormulaR1C1 = ""

    PERO SI LO VAS A DEJAR ASÍ NO PUEDES SUMAR EL 12 QUE TINES EN TU FORMULA, ESTE ES NUMERO Y ClaveEntrada ES TEXTO, esperó que te sirva, revísalo y coméntanos

    Saludos !!!


  7. Hola Kike21,

    He visto tu macro y hasta donde yo puedo entender estas mezclando las variables, el Rango("A2") es un "string" y le estas sumando un numero por ello es que debe estar enviando el error, debes declarar variables usa Option Explicit al principio de tu macro para que declare variables, por ejemplo si ClaveEntrada es alfabética declárala como "string"

    Saludos !!!


  8. Hola Jewison,

    Aquí te envió el archivo corregido, espero que sea lo que necesitabas, solo tengo que aclararte que en tu hoja de control diario tuve que modificar lo que se disminuye en la columna "C" al procesar pone en NEGRITAS las cantidades, esto para procesar la macro e identifique lo que ya se descontó y no sume a lo anterior, así también mi única recomendación es que lo pudieras trasladar a una hoja de VENTAS para que no mezcles con lo del diario puesto que ya tienes la fecha de lo que estas vendiendo.

    Mucha Suerte y Saludos !!!

    Control_V4.zip

×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png