Views

Histats

Vitrine

VBA Excel - Fórmulas mal importadas - Fix Badly Imported Formulas.



Se você importou fórmulas de outra planilha, pode ter passado por esse problema, onde um apóstrofe é adicionado ao início de cada fórmula. Então ao invés de exibir os resultados da fórmula, você vê a própria fórmula. O código baixo vai corrigir isso, basta marcar as planilhas e executar.

Sub FixFormulas()
Dim arrData() As Variant
Dim rng As Excel.Range
Dim lRows As Long
Dim lCols As Long
Dim i As Long, j As Long
 
' let's not accidently use this on a non-Range object
If TypeName(Selection) <> "Range" Then Exit Sub
 
Let lRows = Selection.Rows.Count
Let lCols = Selection.Columns.Count
 
ReDim arrData(1 To lRows, 1 To lCols)
 
Set rng = Selection
Let arrData = rng.Value
 
For j = 1 To lCols
  For i = 1 To lRows
    Let arrData(i,j) = "=" & Right(arrData(i,j), Len(arrData(i,j)) - 1)
 Next i
Next j
 
Let rng.Value = arrData
 
Set rng = Nothing
End Sub


Referencejpsoftwaretech.com

Tags: VBA, Excel, célula, cell, apostrofe, formulas, imported, badly

Inline image 1

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...