Jump to content

Visor

Members
  • Content Count

    1,193
  • Joined

  • Last visited

  • Days Won

    3

Visor last won the day on June 2 2019

Visor had the most liked content!

About Visor

  • Rank
    Advanced Member
  • Birthday 05/28/1973

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Lo siguiente no tiene intención de publicidad pues no soy beneficiado en nada por comentarlo. No obstante a modo de informacion me he encontrado con un utilitario para crear código macro vba para diversos casos de proyectos que se quiera hacer, no sé qué tan eficiente sea pero para quienes no somos informáticos o conocemos poco o nada de código vba supongo que sería útil. De pronto me he encontrado con esto, y me parece que en el mismo excel se lo puede crear supongo con una base de datos de diversos propósitos genéricos o al menos de muestras o ejemplos. me pareció interesante lo compart
  2. Excelente!! comprendo lo que me explicas, Gracias por la ayuda y enseñanza que he recibido en este tema, Tema solucionado
  3. 😲Muy agradecido pense que solo este código .SpecialCells(12).Copy era el único que podía tomar datos filtrados, por es seguí intentando de este modo. Una matriz como lo haces, lo ejecutas tan fácil y me permite seleccionar directamente la columna que quiero importar Me das más lecciones, normalmente ya había aprendido que primero: declarar variables segundo: establecer variables (Set) tercero: asignar la función para que se ejecute lo que quiero con la variable Pero vero que en algunos casos no le das estas instrucciones a Excel en los código
  4. Que sorpresa!!! Gracias por el detalle ,..Excelente,. otro código otro estilo, igual creas un área auxiliar, pero si es una hoja..... Worksheets("aux") no veo donde la creas ni donde la eliminas simplemente no existe en los libros se ejecuta tan rápido que el libro origen prácticamente provee los datos como sin abrirlo. Resize un código interesante. Gracias por tu apoyo
  5. Muy agradecido Entiendo que la respuesta a: Se puede usar asi?: wbLibroOrigen.Sheets("Hoja1").Cells(cont, 1).SpecialCells(12).Copy .Cells(ufila + 1, 1) es NO!! Aunque no sé cómo así me funcionó!! pero luego me da el error según lo comentado antes... Pero entonces siempre se requiere un espacio auxiliar Bien!! creo con esto está claro.. Quedo muy agradecido
  6. Estimado JSDJSD Saludos He estado tratando de verificar si se puede usar esta parte del codigo que tienes pero con este cambio para vitar la Hoja2 a ver si se pueda ejecutar directamente desde la Hoja1, pero encuentro dificultad,...Seria que eso no se debe hacer??? Algunas veces más consigo realizar estas aplicaciones de modo intuitivo o por deducción antes que por conocimiento cabal.. Te pongo el codigo y una imágen Del botón importar ufila1 = wbLibroOrigen.Sheets("Hoja1").Cells(Rows.Count, 1).End(xlUp).Row For cont = 2 To ufila1 ufila = wbLibroD
  7. Genial!! tiene varias instrucciones que me libran de darme las vueltas con los filtros organizar columnas, eliminar, cambiar en la hoja auxiliar (Hoja2) y luego llevarla a la Hoja1. sobre todo este que tienes en la macro que has realizado .Cells(ufila + 1, 1) = wbLibroOrigen.Sheets("Hoja2").Cells(cont, 1) Me toma específicamente la columna que requiero del archivo origen. Con este codigo voy a corregir mucho en lo mio Te quedo muy agradecido
  8. Gracias Gerson, todos estos días no he podido dormir (literalmente) buscando pistas para resolver. Lo que ha hecho Antoni en soluciones antiguas, aunque no era lo mismo que aquí buscaba, me dieron pistas, a más de lo que he encontrado en la red..Desafortunadamente no pude cumplir con la entrega de las listas para el análisis de 360 reactivos y que cada vez se repite este procedimiento de análisis, pero me dieron plazo hasta el lunes. En fin ya lo he conseguido al estilo mio, de seguro esta lleno de errores pero me funciona y creo que con ello voy a presentar las listas organizadas en el a
  9. Estimado JSDJSD Saludos, me podrias ayudar enviando la solución que me muestras en el Gif?? yo me encargo de ajustarlo Te agradezco anticipadamente...😶
  10. Gracias Gerson Pineda por la aclaración, corrección y sugerencias... Veo que no he colocado en el lugar correcto las lineas del codigo por eso se comporta diferente al ejecutar Gracias
  11. Saludos Así como esto??? combobox2 dependiente combobox1.xlsm
  12. Intentalo!! Además puedes añadirle al código, el formato así: ' .NumberFormat = "General" o así: '' .NumberFormat = "0.00" Según veas conveniente
  13. Saludos La verdad no se que pasa en estos momentos con la pagina del foro AyudaExcel, parecería que entro al estado de mundos paralelos. Cuando hago clic en actualizar pagina se ve unos resultados donde he participado pero no veo mi mensaje, le vuelvo a actualizar y se ve otro similar pero allí ya no esta mi mensaje pero si el icono de mi perfil que hace notar que he estado..son cambios de pagina similares, en uno consta ciertas cosas en la otra ya no.
  14. Saludos Te pongo esta alternativa, coloca el código donde corresponde Worksheets("Hoja1").Activate With ActiveSheet.Range("I:I") .Replace "-", "." End With o quizá Worksheets("Hoja1").Activate ActiveSheet.Range("I:I").Replace "-", "." devuelve algún comentario
  15. @JDGNo se será que lo que necesitas es así?? Private Sub Workbook_Open() 'Apertura With Hoja1 uf = Hoja1.Cells(Rows.Count, "A").End(xlUp).Row Hoja1.Range("A" & uf + 1) = Now End With End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Cierre With Hoja1 uf = Hoja1.Cells(Rows.Count, "A").End(xlUp).Row Hoja1.Range("B" & uf) = Now 'Tiempo de uso Hoja1.Range("C" & uf) = Hoja1.Range("B" & uf) - Hoja1.Range("A" & uf) End With End Sub Eso es lo que te están indicando Mauricio_ODN y AlexanderS Pero le he puesto unos toque adicionales, es decir que al abrir se r
×
×
  • Create New...

Important Information

Privacy Policy