Página 1 de 1

Inclusão de formulas por VBA e manter apenas valores

Enviado: 05 Jan 2017 às 13:52
por RobsonM
Pessoal, boa tarde!

Preciso de ajuda em uma questão, estou com uma planilha de controle de ensaios um pouco grande e preciso adicionar dados para geração de gráficos, porem não gostarias que as formulas ficassem na planilha justamente para reduzir o tamanho.

Não sou um grande conhecedor do Excel então venho por meio deste verificar se há uma forma melhor de realizar tal função, vou tentar explicar.

Faço entrada das amostras em minha planilha e faço o lançamento dos resultados. Cada tipo de amostra tem um parâmetro que é cadastrador em outra planilha, para puxar os parâmetros utilizo o código abaixo:

Sub Formulas()
'
' Add. Formulas
'
Application.ScreenUpdating = False
Range(Selection, Selection.End(xlDown)).Select
Range("FN6:HU6000").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.FormulaR1C1 = _
"=IF(VLOOKUP(RC169,Parâmetros!R4C6:R1000C66,R4C,FALSE)=0,"""",(VLOOKUP(RC169,Parâmetros!R4C6:R1000C66,R4C,FALSE)))"
Application.ScreenUpdating = True
End Sub

A partir dos valores obtidos pela formula eu gostaria de manter apenas os valores, eu tentei Copiar todo o campo e Colar valores e o tamanho reduz, mas fica algum vestigo nas células em branco que não consegui um código para remover, podem me ajudar com uma maneira mais prática de fazer essa limpeza?

Desde já agradeço a atenção.

Inclusão de formulas por VBA e manter apenas valores

Enviado: 09 Jan 2017 às 00:56
por DJunqueira
Fica mais fácil te ajudar se vc anexar a planilha.

Inclusão de formulas por VBA e manter apenas valores

Enviado: 09 Jan 2017 às 12:05
por AdrianoVdP
Boa tarde,
O arquivo anexo faz algo parecido.
Porem, através do botao, você seleciona o arquivo, a macro abre seu arquivo, converte todas as abas visíveis em valor e cria uma copia do mesmo.

Abs

Inclusão de formulas por VBA e manter apenas valores

Enviado: 10 Jan 2017 às 01:12
por DJunqueira
Teste algo assim:
Código: Selecionar todos
Sub All_Cells_In_All_WorkSheets()
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets
        With sh.UsedRange
            .Value = .Value
        End With
    Next sh
End Sub