none
Copiar Valor e não fórmula RRS feed

  • Pergunta

  • 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
    

    quinta-feira, 30 de novembro de 2017 13:35

Respostas

  • 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 diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 segunda-feira, 4 de dezembro de 2017 11:55
    • Marcado como Resposta Rhuden Ramos segunda-feira, 4 de dezembro de 2017 12:52
    segunda-feira, 4 de dezembro de 2017 11:54
  • 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 diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 30 de novembro de 2017 13:56
    • Marcado como Resposta Rhuden Ramos quinta-feira, 30 de novembro de 2017 15:05
    quinta-feira, 30 de novembro de 2017 13:54

Todas as Respostas

  • 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 diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 30 de novembro de 2017 13:56
    • Marcado como Resposta Rhuden Ramos quinta-feira, 30 de novembro de 2017 15:05
    quinta-feira, 30 de novembro de 2017 13:54
  • 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.
    segunda-feira, 4 de dezembro de 2017 11:45
  • 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 diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 segunda-feira, 4 de dezembro de 2017 11:55
    • Marcado como Resposta Rhuden Ramos segunda-feira, 4 de dezembro de 2017 12:52
    segunda-feira, 4 de dezembro de 2017 11:54