Jump to content

Max2005

Members
  • Content Count

    202
  • Joined

  • Last visited

  • Days Won

    2

Everything posted by Max2005

  1. Disculpa olvide postear el Archivo Saludos !!! CONSOLIDADO por paciente y fecha RESUMEN.zip
  2. Hola nbogantes ([uSER=384]@petercien1[/uSER]) Te envío una alternativa con Macros, en la hoja "LO QUE NECESITAS", hay un botón de DATOS, lo que tienes que hacer es poner en la celda A2 la cedula que buscas y después oprimir el botón. (espero que sea lo que buscabas) Mucha Suerte Saludos !!!
  3. Hola Juan Reyes Martínez Ya lo realice prueba con este ejemplo Ajustar Limite para llegar a 100000.zip
  4. Hola Juan Reyes Martínez Sube tu Ejemplo para entenderlo Saludos !!!
  5. 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 !!!
  6. 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 !!!
  7. Max2005

    Grafico

    Hola vivan86, Revisa el archivo adjunto y comenta si es lo que necesitabas Mucha Suerte Saludos !!! Grafico.zip
  8. Hola Avixus, Debes de subir un ejemplo en excel explicando como quieres que funcione Saludos !!!
  9. Hola [uSER=113842]@johnmpl[/uSER] Su respuesta esta mucho mejor .... Muchas Gracias he aprendido algo nuevo Saludos !!!
  10. Hola exekyel2010, Prueba con esta formula que te puse en la primer celda Mucha Suerte Saludos !!! MUESTRA.zip
  11. 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
  12. 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 !!!
  13. Hola José Reyna Cepeda De acuerdo a lo que he entendido de tu archivo prueba esta aplicación Mucha Suerte Saludos !!! EJEM Para AYUDA.zip
  14. Hola Hay un tema solucionado sobre esto es Agregar sin duplicar items a listbox, revísalo te puede ser de utilidad y si no yo te recomiendo cerrar este punto y abrir uno nuevo, Son la reglas del foro y nos tenemos que apegar a ellas. Mucha Suerte Saludos !!!
  15. Hola Halkon, Ok, espero haber podido ayudarte y lo que pasa es que cambiaste tu base de las hojas ("cuidado"), en la primera versión usas en Grupo un consecutivo y en la última versión solo usas series repetidas de numero por lo que la macro borrara el primer registro que encuentre que coincide no importando si fue el que seleccionaste para borrar. Mucha Suerte Saludos !!!
  16. 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 !!!
  17. Hola Halkon123, Si te entendí bien al momento de ingresar un código nuevo no quieres que este ya lo hayas ingresado, tendríamos que crear una rutina de búsqueda con lo códigos para eliminar repetidos o usa en la opciones de Excel Datos Quitar duplicados. Espero sea lo que me preguntas. Mucha Suerte Saludos !!!
  18. Hola Halkon123, Modifique tu macro tenias 2 problema, hacías referencia a la hoja incorrecta y no funcionaba, el proceso de encontrar la ultima fila, así también en xArticulo lo manejabas como String pero tu articulo es de tipo integer así que lo cambie. Por Favor Verifícalo y mucha suerte Saludos !!! ZZZZZ V1.zip
  19. 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 !!!
  20. 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 !!!
  21. Hola Tengri, Seria mejor si anexaras un archivo explicando en este lo que necesitas ... Saludos !!!
  22. Max2005

    Autoresta

    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
  23. Hola Harot, Prueba esta formula =SI(BUSCARH($I$11,JULIO!$B$2:$AF$6,3,FALSO)="T",JULIO!$A$4,"")
  24. Hola FELIX, En tu botón de Filtrar solo he cambiado CInt por CLng Revísalo Saludos !!!
  25. Max2005

    Autoresta

    Hola Ya lo modifique, puedes revisarlo Saludos!!! Control_V3.zip
×
×
  • Create New...

Important Information

Privacy Policy