Jump to content

tuve

Members
  • Content Count

    933
  • Joined

  • Last visited

  • Days Won

    10

tuve last won the day on June 17 2011

tuve had the most liked content!

About tuve

  • Rank
    Advanced Member
  • Birthday 01/01/1920
  1. Prueba así: Sub QuitarMacros() Dim RutaLibro As String Dim NombreLibro As String RutaLibro = ThisWorkbook.Path & "\" NombreLibro = "Bases" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=RutaLibro & NombreLibro & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False Application.DisplayAlerts = True End Sub
  2. Refloto el hilo, a ver si alguien tiene alguna sugerencia.
  3. ¿Se puede desactivar con código la compatibilidad con ISO al guardar en .pdf?
  4. Gracias a todos por las respuestas. Gerson, estupenda tu solución. Tema solucionado
  5. Gracias, pero como he indicado, estaba buscando una solución sin macros.
  6. Tengo una tabla (lista en excel 2003) en la que tengo unos encabezados que quiero que sean dinámicos, el objetivo es que cambien en función del idioma escogido. El problema aparece al introducir una fórmula en el encabezado, al validar me poner 0, eliminando la fórmula introducida. Conocéis alguna solución a este problema (preferentemente sin macros). EncabezadosTabla.xls
  7. He encontrado una posible solución, la subo por si le interesa a alguien. Podemos cerrar el tema Imagen_r.zip
  8. Quiero cambiar una imagen que está vinculada a un rango variable pero como se ejecuta dentro de otro procedimiento por eso quiero evitar el uso de .Select y Selection ya que me genera un conflicto. Adjunto el procedimiento RngImagen_op_1 que funciona con .Select y Selection, pero no funciona la alternativa RngImagen_op_2 quería utilizar para evitar lo anterior. Imagen.zip
  9. Aprovechando el excelente aporte de Armando y restringiendo la solución a los números enteros positivos con tres dígitos.
  10. Este método creo que lo he visto en el foro, siento no recordar el hilo. Sub LimpiarEspacios() Dim RangoDatos As String RangoDatos = ActiveSheet.UsedRange.Address Range(RangoDatos).Value = Evaluate("=INDEX(TRIM(" & RangoDatos & "),0)") End Sub[/HTML] Si tienes fórmulas debes restringir al rango sólo a la celdas que contienen texto y no te servirá el procedimiento anterior.
  11. Revisa el adjunto. STUDIO86_tuve.rar
  12. Puedes probar así: =TEXTO(Valor*24;"h:mm AM/PM")[/CODE]
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png