EXCELPATAS

DEJE QUE EXCEL HAGA EL TRABAJO SUCIO

Convertir a valores todas las fórmulas de un libro de Excel

La siguiente macro convierte a valores todos las fórmulas de todas las hojas de un libro, dejando sólo el resultado:
Sub Convertir_a_valores()


    Dim wshHoja As Excel.Worksheet
   

    For Each wshHoja In ThisWorkbook.Worksheets
   
        wshHoja.UsedRange.Value = wshHoja.UsedRange.Value     
   
    Next wshHoja


End Sub

3 comentarios:

  1. Este comentario ha sido eliminado por el autor.

    ResponderSuprimir

  2. Mauricio
    Corto y eficiente...

    Saludos

    ResponderSuprimir

  3. Hola Gerson,

    me alegra verte.

    He modificado (en forma, no en contenido) la macro que había publicado, eliminando la estructura With ... End With con la que la había escrito originalmente.

    Esto, porque en este caso no aporta mucho esa estructura y me parece que resulta más simple y claro para leer el código sin dicha estructura.

    ResponderSuprimir

Suscribirse a: Enviar comentarios (Atom)