Copiar Valor e não fórmula

Question

Bom Dia, tenho uma macro em vba  que faz um copia e colagem  simples, porém quando eu copio algo de uma célula com fórmula ele cola a fórmula e não o valor. Gostaria que fizesse a cópia do valor e não da fórmula, é possível?

Sub copiaInfo()
    Sheets("Plan1").Select
    Range("G7:I9").Select
    Selection.Copy
    Sheets("plan2").Select
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Answer 1

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

---

A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz [e-mail]

Answer 2

Bom dia, neste mesmo código gostaria que parasse a seleção de cópia na última linha com valor, por exemplo: se tenho 100 linha e somente 85 estiverem com valores copiar essas 85 e não as 100.

Answer 3

Option Explicit

Sub copiaInfo()
    Dim linha As Long
    linha = 7
    
    Sheets("Plan1").Select
    While Sheets("Plan1").Range("G" & linha).Value <> ""
        
        
        linha = linha + 1
    Wend
    
    Range("G7:I" & linha - 1).Select
    Selection.Copy
    Sheets("plan2").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
    
End Sub

---

A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz [e-mail]