Carrito: 
En incontables ocasiones he tenido la necesidad de convertir una fórmula a valor cuando en los argumentos que componen la fórmula se cumpla algún criterio especifico.
En este ejemplo, la fórmula será convertida a valor si ésta contiene la palabra “Clientes!A” ó “BC!” dentro de sí misma.
Las fórmulas que no contengan ninguna de estas palabras serán ignoradas y conservadas como fórmula.
Descargar xls
Código VBA:
'****************************************' ' Email: obed.cruz@exceltrabajaporti.com ' ' www.exceltrabajaporti.com ' '****************************************' Option Explicit Sub ConvertirFormulas() Dim Rng As Range Application.ScreenUpdating = False For Each Rng In Cells.SpecialCells(xlCellTypeFormulas) If InStr(Rng.Formula, "Clientes!A") > 0 Then Rng.Copy Rng.PasteSpecial xlPasteValues End If If InStr(Rng.Formula, "BC!") > 0 Then Rng.Copy Rng.PasteSpecial xlPasteValues End If Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub
