Jump to content

tese1969

Members
  • Content Count

    1,507
  • Joined

  • Last visited

  • Days Won

    4

Reputation Activity

  1. Like
    tese1969 got a reaction from Visor in ¿Como crear numero de factura automatico en factura y guardar resumen?   
    Como tú veas y prefieras..........sabes que si necesitas una mano se te ofrecerá gustosa.......
    Un saludo y suerte!!!.....:boxing:
    Tese
  2. Upvote
    tese1969 reacted to Antoni in Cargar formas en mapamundi estático   
    Revisa el adjunto.
    Mapa Excel MA I.zip
  3. Upvote
    tese1969 got a reaction from Antoni in Encontrar dato e insertar fila   
    Y digo yo, querido maestro, que quizás también para haber aprendido algo. Más que consultar, me da que tiene el Foro como su tutor privado....
    En fin, gusto en saludarte, Macro
    Tese
  4. Upvote
    tese1969 reacted to Antoni in Encontrar dato e insertar fila   
    Llevas 324 mensajes desde julio de 2009. ¿No crees que ya llevas el suficiente tiempo en el foro para haberte enterado que hay que subir un archivo?.
  5. Upvote
    tese1969 got a reaction from Fleming in Seguimiento de calibración de herramienta   
    Buenas, Asaco
    En fichero adjunto te dejo algo que quizás se parezca a lo que necesitas.
    He quitado las fechas de revisión de la columna "i" para que al ponerlas de nuevo veas lo que sucede.
    Ya me contarás.
    Un saludo,
    Tese
    Control automatico de herramienta_tesev1.rar
  6. Upvote
    tese1969 got a reaction from Gerson Pineda in Contar grupos que cumplen condicion   
    Buenas, txaler
    Efectivamente, se me olvidó incluir el borrado previo de esos datos antes de incluirlos de nuevo..., pero obviamente después de haber visto la "sencilla" y por tanto, mejor solución del maestro Gerson, creo que merece la pena adaptarla.
    De todos modos, más que utilizar un botón te bastaría con incluir la fórmula en dichas celdas, y no tendrías que ejecutar nada. Al modificar los valores, se iría actualizando.
    Al maestro Gerson sólo me queda felicitarle por su bendita "locura" y sus conocimientos de las funciones, de los cuáles carezco....yo todo lo intento con código...
    Un saludo a todos,
    Tese
  7. Upvote
    tese1969 reacted to Antoni in Macro para copiar filas no vacías   
    Claro, y pretendes que con nuestra visión de rayos X a distancia, seamos capaces de ver la macro.
  8. Upvote
    tese1969 got a reaction from Gerson Pineda in Contar grupos que cumplen condicion   
    Buenas a todos,
    Creo que lo que solicita txaler está bastante claro y no creo que la solución de Walter1702 sea lo que necesita, más que nada porque no está teniendo en cuenta cúal es el concepto de Grupo Funcional y Tabelas "OK" por grupo funcional. No se trata de sumar cuántas veces aparece en la columna un "Grupo Funcional" (el resultado de 5 en EC_Contrato explicaría el error), sino cuantos "bloques" (formados por la misma tabela de un mismo grupo funcional) existen en dicha columna.
    En el segundo asunto la base es la misma (bloques), pero con la singularidad del valor de la columna (OK ó no), contándose dicho bloque si la tabela tiene todos los valores a "OK".
    Otra cosa es que sea más o menos sencillo ofrecer una solución, pero dado que el Maestro Gerson está en el asunto, más pronto que tarde tendrás lo que buscas .
    Por cierto, aprovecho para saludarle...
    Un saludo y confianza.......que todo llega
  9. Upvote
    tese1969 got a reaction from Fleming in Que el cursor regrese a la celda que se editó primero   
    Pues GermanZAG, te diré que en este caso la aportación de rogman41 (Target.Select) es más sencilla y eficaz que la que yo te aporté, pues no necesitas crear la variable ni después llamarla.
    La clave es que al ser un código de evento (en este caso, que se modifica algo de un rango determinado), Target ya está localizado en el momento que se inicia el código y por tanto, puedes seleccionarlo directamente haciendo referencia a él.
    En otros casos, por ejemplo al buscar en una fila o columna un dato determinado, el crear una variable que recoja su "dirección" (Address) puede ser más útil, para después poder usarla a lo largo del código.
    Como ves, es cuestión de adaptarte a lo que cada situación requiera y en este caso rogman41 nos indicó la más adecuada.
    Un saludo a todos,
    Tese
  10. Upvote
    tese1969 reacted to Antoni in Separar en filas datos encadenados o corchetes [ ]   
    Ejecuta esta macro en el archivo que has subido.

    Sub SepararCorchetes()
    Application.ScreenUpdating = False
    With Sheets("Hoja2")
    Sheets("Hoja1").Cells.Copy .Cells
    For x = .Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    Application.StatusBar = Range("A" & x)
    If Not .Range("A" & x) Like "Total *" Then
    Frases = Split(.Range("D" & x), "[")
    For f = UBound(Frases) To 1 Step -1
    .Rows(x + 1).Insert
    .Rows(x).Copy .Range("A" & x + 1)
    .Range("D" & x + 1) = "[" & Frases(f)
    Next
    If UBound(Frases) > 0 Then
    Application.DisplayAlerts = False
    For y = 1 To 6
    If Not y = 4 Then
    .Range(.Cells(x + 1, y), .Cells(x + UBound(Frases), y)).Merge
    End If
    Next
    .Rows(x).Delete
    Application.DisplayAlerts = True
    End If
    End If
    Next
    '----------- Reformulamos subtotales
    desde = 2
    For x = 2 To .Range("A" & Rows.Count).End(xlUp).Row
    If .Range("A" & x) Like "Total *" Then
    .Range("F" & x).FormulaLocal = "=SUBTOTALES(9;F" & desde & ":F" & x - 1 & ")"
    desde = x + 1
    End If
    Next
    End With
    Application.StatusBar = "Listo"
    End Sub
    [/CODE]
  11. Upvote
    tese1969 got a reaction from Fleming in Borrar el contenido de una celda en función del contenido de otra celda   
    Buenas de nuevo, Drosophila
    Pues en el ejemplo que te adjunto lo podrás hacer de ambas maneras.
    Como ves, he aumentado el número de datos en la columna "C" para que puedas comprobar cómo funciona cuando incluyes "Si" ó "No" manualmente en la columna "F".
    Con el botoncito de "Actualizar" lo que haces es eliminar los datos de la columna "C" cuando en "F" aparece el "No".
    El código de este último botón está estructurado para que recorra la columna "C" y pare cuando encuentre la primera celda vacía, por lo que si en tus datos reales existen esas celdas vacías entre los datos habría que modificarlo.
    Espero que te pueda servir para algo....
    Un saludo,
    Tese
    Ejemplo_act_Tesev1.rar
  12. Upvote
    tese1969 got a reaction from Fleming in Borrar el contenido de una celda en función del contenido de otra celda   
    Buenas, Drosophila
    Pues simplemente puedes incluir el rango a recorrer directamente en el código, es decir, en vez de

    Range("c2:c" & Range("c30000").End(xlUp).Row)[/CODE]
    directamente....

    [CODE]Range("c2:c30000")[/CODE]
    30.000 serían las líneas que recorrería, por lo que si tu rango real es de 500 aproximadamente, pues incluyes ese número y pasará por todas ellas.......las vacías y las no vacías.
    y también deberías eliminar la línea donde se comprueba si está vacía para que pare.

    [CODE]If dato = "" Then GoTo Fin:[/CODE]
    De este modo, ya lo tendrías más adaptado.
    Un saludo,
    Tese
  13. Upvote
    tese1969 got a reaction from Gerson Pineda in Contar celdas con fondo de celda con formato condicional   
    Buenas, Sergio
    Entiendo que una línea, por ejemplo, del tipo

    colorcelda = Range("a2").DisplayFormat.Interior.ColorIndex[/CODE]
    no estaría sujeta a ninguna problemática por el número de formatos condicionales, pues en el fondo lo único que recoge es el color visible en esa celda, sin importar si se debe a uno u otro de estos diferentes formatos.
    Un saludo,
    Tese
  14. Upvote
    tese1969 got a reaction from Antoni in Contar celdas con fondo de celda con formato condicional   
    Buenas, a Sergio y al resto, con dedicatoria especial para mi amigo Gerson
    Creo que lo que necesitas lo puedes hacer más o menos sencillo con "DisplayFormat", que fue incluido en la versión 2010 y que hace ya varios meses me permitió ofrecer ayuda a un usuario de este foro. Sería cuestión de adaptarlo a lo que quieres, pero al menos tienes un ejemplo de cómo funciona esa propiedad.
    https://www.ayudaexcel.com/foro/threads/contar-celdas-por-colores-con-formato-condicional.36337/#post-175716
    Un saludo,
    Tese
  15. Upvote
    tese1969 got a reaction from Antoni in Contar celdas con fondo de celda con formato condicional   
    Buenas, a Sergio y al resto, con dedicatoria especial para mi amigo Gerson
    Creo que lo que necesitas lo puedes hacer más o menos sencillo con "DisplayFormat", que fue incluido en la versión 2010 y que hace ya varios meses me permitió ofrecer ayuda a un usuario de este foro. Sería cuestión de adaptarlo a lo que quieres, pero al menos tienes un ejemplo de cómo funciona esa propiedad.
    https://www.ayudaexcel.com/foro/threads/contar-celdas-por-colores-con-formato-condicional.36337/#post-175716
    Un saludo,
    Tese
  16. Upvote
    tese1969 got a reaction from RAIK0 in Macro para crear hojas segun datos filtrados   
    Gracias, Armando, pero no es necesario.
    Las palabras de RAIK0 ya me hacen pensar que está muy agradecido.
    Un saludo,
    Tese
    - - - - - Mensaje combinado - - - - -
    Por cierto, RAIK0, te adjunto una segunda versión que elimina un problema que he detectado con los nombres de familia, consistente en que estaban llenos de espacios después del valor.....y claro, a la hora de crear la hoja podría fallar.
    Revísalo ahora.....
    De hecho, en la celda H1 he puesto uno de los valores que te daría error en la primera versión.
    Un saludo,
    Tese
    base_Tesev2.rar
  17. Upvote
    tese1969 got a reaction from RAIK0 in Macro para crear hojas segun datos filtrados   
    Bueno, como imaginaba que te parecería buena idea, he estado adelantando el trabajo y ya lo tienes.
    Espero que se parezca a lo que buscas.
    Incluye un valor válido en la celda H1 y pulsa el botoncito azul.
    Un saludo,
    Tese
    base_Tesev1.rar
  18. Upvote
    tese1969 got a reaction from franco fernandez g in activar macros sin boton   
    Buenas, carcid....
    Incluye el siguiente código en la Hoja1.......(no en un módulo)


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("e3") = "" Or Range("e3") <> "" Then
    Macro3
    End If
    End Sub
    [/CODE]
    Como ves, es pequeñito pero matón.......jejejeje
    Prueba y me dices.....
    Un saludo,
    Tese
  19. Upvote
    tese1969 got a reaction from Antoni in Problema de cálculo   
    Así, maestro, parece que va....

    Application.CalculateFull[/CODE]
    A mí al menos me lo actualiza, pero vete tú a saber por qué...
    Cuídate mucho....
    Tese
  20. Upvote
    tese1969 got a reaction from Fleming in Encontrar texto y a continuacion insertar una fila   
    Lee las normas del foro y te darás cuenta de que te falta algo para que alguien te pueda ayudar.
    Un saludo,
    Tese
  21. Upvote
    tese1969 got a reaction from dadada in Problemas con doble click   
    Buenas,
    Simplemente cambia el orden de las sentencias para que quede así:

    Private Sub CommandButton1_Click()
    LLEGADA.Label2.Caption = ENVIALO.TextBox1.Value
    LLEGADA.Show
    End Sub[/CODE]
    Lo que tú le pedías es que primero lo enseñara y en ese momento tenía el foco. De esta manera tú pasas el valor y finalmente lo muestras.
    Un saludo,
    Tese
  22. Upvote
    tese1969 got a reaction from Enigma25 in Factura actualizando inventario   
    Lo dicho, Zarai, unos minutillos...jejeje
    Prueba a ver si algo así te valdría. Pulsa con el ratón en el botón que he creado en tu hoja Factura y comprueba el campo Salida de Control de Inventario.
    Ya me dirás.
    Un saludo,
    Tese
    MATEOS UNA BENDICIÓN_Tesev1.rar
  23. Upvote
    tese1969 got a reaction from Fleming in Factura actualizando inventario   
    Gracias, Zarai, por los elogios, pero en este caso no son del todo merecidos. Como te comenté es algo bastante sencillito y aquí en el foro hay auténticos monstruos de la programación en VBA para Excel, entre los que no me incluyo y a los que aprovecho para mandar un saludo, que ellos saben bien a quienes me refiero.
    El código puedes verlo pulsando con el botón derecho del ratón sobre la hoja Factura, eligiendo "Ver Código". Lo que hace es, ni más ni menos, buscar cada uno de los artículos que hayas incluido en Factura en la hoja Control de Inventarios y en la línea donde lo encuentra se traslada a la columna de Salida para sumar el valor que haya con el de unidades incluidas en Factura para ese artículo. Simplemente eso.
    En cuanto al botón, puedes hacer lo que quieras. Como ya sabes donde está el código puedes crearte un módulo aparte e incluirlo con el nombre de la macro que consideres, es decir, en vez del Commandbutton1_Click puedes llamarlo "Sub Control_Inventario()", por ejemplo. Y después creas la forma que consideres adecuada y le asocias la macro, como habrás hecho con los otros botoncitos. Para eliminarlo, entra en la ficha Programador y entra en el modo Diseño, que está en el apartado de Controles. Ahí ya podrás seleccionarlo y eliminarlo.
    Y no quiero terminar sin recordar que este foro es lo que es por la calidad de sus colaboradores, auténticas "alma maters" del mismo.
    Un saludo y me alegro de haberte podido ayudar. No olvides dar el tema por solucionado para que los administradores lo puedan cerrar.
    Tese
  24. Upvote
    tese1969 got a reaction from Enigma25 in Factura actualizando inventario   
    Buenas, Zarai
    Por lo que he podido comprobar, en tu hoja Control de Inventario tienes fórmulas que hacen referencias a valores de la Hoja Factura, de ahí que se descuenten en el momento de incluirlos y dejen de hacerlo cuando limpias la factura.
    La solución, o así lo veo yo al menos, podría ser crear un botoncito o algo parecido en la Hoja Factura, de manera que cuando estuviera lista para archivarse descontara las unidades de cada artículo incluido en la hoja Control de Inventarios. Así, ni necesitarías la fórmula en el campo de "Salida" ni nada por el estilo.......además, sería realmente sencillo de realizar. En minutos se podría preparar...
    Mira a ver si te vale como opción e intentamos hacer algo rapidito.
    Un saludo,
    Tese
  25. Upvote
    tese1969 got a reaction from Enigma25 in Factura actualizando inventario   
    Lo dicho, Zarai, unos minutillos...jejeje
    Prueba a ver si algo así te valdría. Pulsa con el ratón en el botón que he creado en tu hoja Factura y comprueba el campo Salida de Control de Inventario.
    Ya me dirás.
    Un saludo,
    Tese
    MATEOS UNA BENDICIÓN_Tesev1.rar
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png