Jump to content

Salvador1

Members
  • Content Count

    298
  • Joined

  • Last visited

  • Days Won

    2

Salvador1 last won the day on August 24 2014

Salvador1 had the most liked content!

About Salvador1

  • Rank
    Advanced Member
  • Birthday 01/17/1990

Recent Profile Visitors

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

  1. Otra opción bastante rápida: Sub Sustituir() UF = Cells(Rows.Count, "B").End(xlUp).Row Range("B1:B" & UF) = Application.Substitute(Range("B1:B" & UF), "/", "@", 1) Range("B1:B" & UF).Replace "*@", "" End Sub
  2. Gracias Macro y Héctor por vuestras aportaciones. Solucion.rar
  3. Haciendo pruebas, debí quitarla sin querer. La he incluido en el módulo1. Abrir archivos II.rar
  4. Hola: Tengo un Listbox que lista una carpeta y al hacer doble click en cualquier item se debería abrir el archivo. Antes de hacer pruebas, se me abrian todos los tipos (doc, pdf, y jpeg entre otros), salvo los tipo excel (xls*), pero ahora no se abre ninguno. Aun así, la consulta es para saber cómo abrir cualquier tipo de archivo incluyendo los de Excel, porque tengo varios códigos que abren archivos (del tipo ShellExecute, etc) , pero fallan con los xls* Abrir archivos.rar
  5. La única solución que veo es abrirlo en la versión original (en este caso 2013) y guardarlo en la antigua. Solucionado.
  6. Claro. Lo que he hecho es abrir un archivo guardado en versión 2013 en una pc con versión 2007. Al hacer doble click, se me abre el excel pero no se abre ningún libro ni me salta el cuadro pidiéndome la contraseña. Creo que el problema es la contraseña porque lo he intentado abrir desde Outlook (no el que se suelen tener en los trabajos, sino este) como vista previa, pero me da error diciendo que tiene contraseña y no me da opción a ponerla.
  7. Hola: ¿Hay alguna forma de abrir un Excel guardado en versión 2013 en un pc con versión 2007 (o sea, en una anterior)? Decir que el archivo tiene contraseña (la cual conozco). Saludos.
  8. Me quedo con la primera opción que, además se ser más más digestiva, me resulta más fácil adaptarla a una macro. Pero las restantes las estudiaré, porque puede que me sirvan en el futuro. Muchas gracias Héctor. Solucionado.
  9. A ver si es esto lo que quieres: Cronograma1.rar
  10. Hola: ¿Hay alguna forma de decir que si una celda contiene esta estructura: ##/##/####-##/##/####, que haga tal o cual cosa? Como se intuye, se tratan de dos fechas separadas por guión, por lo que las almohadillas son números. Ejemplo: If celda is/like (estructura) then call Macro1 Saludos
  11. De todas las pruebas, creo que lo que me faltaba era el "Application" de delante de "Text". Muchas gracias, Héctor. Solucionado.
  12. Hola: El primer código convierte a texto una celda anteponiendo un apóstrofo. Y quisiera convertirlo al estilo del segundo (que no funciona, ni lo consigo) para luego adpatarlo -entre otras cosas- a la altura de la columna (ej: Range("e3:e" & UF), siendo UF una variable): [e3:e6] = [transpose(transpose(text(e3:E6,"'dd/mm/yyyy")))][/CODE] [CODE]Range("E3:E6") = Application.Transpose(Application.Transpose(WorksheetFunction.Text(Range("e3:e6"), " 'dd/mm/yyyy"))) [/CODE] ¿Cuál sería la equivalencia?
  13. Funciona. Muchas gracias. Yo había utilizado esta forma: Sub fecha() For i = 1 To 5 Cells(i, "A") = CDate((Format(Cells(i, "A"), ">"))) Next i End Sub[/CODE] Un saludo.
×
×
  • Create New...

Important Information

Privacy Policy