Saltar al contenido

Gerson Pineda

Administradores
  • Unido

  • Última visita

  1. Hola @ROVER1965 Te adjunto dos tipos de soluciones, la primera es celda por celda con la funcion SUMAR.SI.CONJUNTO y la segunda es una sola formula de Excel 365. Ya nos comentaras. CONSULTA SOBRE FORMULAS EXCEL.xlsx
  2. ¡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
  3. Sari887 ha empezado a seguir a Gerson Pineda
  4. gonzalomadrid ha empezado a seguir a Gerson Pineda
  5. JasallBcn ha empezado a seguir a Gerson Pineda
  6. Garp78 ha empezado a seguir a Gerson Pineda
  7. patriciomates ha empezado a seguir a Gerson Pineda
  8. Gerson Pineda ha cambiado su foto de perfil
  9. Genial el efecto de mover el raton sobre el mapa, y se cambia dinamicamente! Respecto al eje del año, sigue como "aa", pero bueno eso es minimo en relacion al impacto de tu aporte! Exitos Padro!
  10. Que tal Pedro Respecto al idioma el mío es 3082 y si esta en la lista, pero realmente lo que quise decirte, es que en el eje horizontal esas "a" visualmente no representan nada, a menos que se ponga el año o siendo un poco mas drásticos quitar esa descripción del eje, para que se vea mas limpio y titular la grafica "Por año" Que sigan mas aportes! Saludos
  11. Pedro, este aporte esta sencillamente fenomenal, el informe es genial!, te felicito y como siempre aportes de gran calidad El eje horizontal no me agrada verlo, ademas que se ven "a" repetidas Saludos
  12. Riddle Lo he probado, solo tiene un fallo, para adjuntar los 4 archivos, el bucle lo tienes desde la columna E Gracias por compartir Saludos!
    • 94 downloads
    • Version 1.1.0
    Hoy comenzó el mundial, hoy les comparto el Fixture Mundial Rusia 2018 Podrás ver cada grupo, etapa final y la explicación de uso Solo de agregar el marcador por cada juego! Saludos!
  13. Estupendo uso de modulo de clase, combinado con controles de formularios Saludos
  14. Pedro que excelente trabajo, pero hasta que disponga de 2010 lo experimentare completamente... pero el video no te deja mentir, con es de las manecillas Saludos master
  15. nuganda Este foro no es para consultas (porfavor lee los apartados importantes, como anuncios, recomendaciones y nosrmas), crea un tema en el lugar correspondiente referenciando este tema Saludos
  16. A cualquiera le pasa amigo Saludos
  17. Hola Pedro, gracias por entenderlo jeje, en definitiva el codigo es completamente mejorable, siguiendo con tu idea, se puede crear un Combobox o Lista Desplegable, para escoger tal prefijo que deseamos utilizar en ese momento, es decir no ingresar a la macro a cambiarlo si no desde una hoja y que la macro busque el dato en la hoja o lo tome del combobox Saludos
  18. Hola Rafael, gracias por tus palabras (pero yo tambien sigo aprendiendo:)) Hola verzulsan si te fijas en la macro, el dato debe ser numerico y diferente de vacio, siendo asi, si escribes 1 te escribira al inicio "AyudaExcel 1" como repito espero sea util y si no pues hice el intento jeje Saludos amigos!
  19. un mensaje en un tema añadido Gerson Pineda en Ideas y aportes
    Hola Si! podra ser algo contradictorio el titulo del tema, pero es algo asi:) Suponiendo que somos digitadores de algun inventario y que ciertos codigos/numeros (de materia prima o prendas terminadas o lo que sea...), comienzan con el mismo caracter o caracteres, pues bien elabore (se me ocurrio) esta pequeña macro de evento para que puedan probarla y pues hacer cambios a conveniencia y uso Se puede usar en todo el libro o una hoja en especifico Para todo un libro Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next 'If Target.Column = 3 Then If Not Intersect(Target, Range("A3:A12")) Is Nothing Then If VBA.IsNumeric(Target) And Target <> "" Then Target = "AyudaExcel" & Target End If End If 'End If End Sub[/PHP] Para una hoja en especifico [PHP]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next 'If Target.Column = 7 Then If Not Intersect(Target, Range("G3:G12")) Is Nothing Then If VBA.IsNumeric(Target) And Target <> "" Then Target = "AyudaExcel" & Target End If End If 'End If End Sub[/PHP] No he visto algo similar aqui en el foro, espero entiendan el objetivo, que les guste y sirva de algo Saludos desde Honduras Macro de evento.zip