Guru do Excel e Power BI

Boa Noite Amigos.
Preciso de uma ajudinha em vba. Talvez seja coisa simples, mas já tentei de tudo e não consigo desenvolver.

É o seguinte, eu preciso copiar o valor de Plan1 A1 e colar valores em Plan2 A1, mas sem precisar selecionar a sheet Plan2.

Consigo fazer dessa forma:

Sub Copiar()
Dim wsOrigem As Worksheet
Dim wsDestino As Worksheet

Set wsOrigem = Worksheet("Plan1")
Set wsDestino = Worksheet("Plan2")

With wsOrigem
.Range("A1").Copy Destination:=wsDestino.Range("A1")
End With

End Sub

Meu problema é que o valor em Plan1 é uma fórmula e quando ele cola na plan2 continua sendo uma forma. Preciso que seja colado valores, mas sem que o Excel ative ou selecione a plan2 para colar.

Boa noite!!

Tente acrecentar dentro With wsOrigem de o seguinte código

Código: Selecionar todos

        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Cells(1).Select

Obs: Não testado!!!!

Att

Não funcionou amigo

Bom dia!!

Eu não estou entendendo, favor revisar seu código e sua dúvida.
Favor testar!!

Código: Selecionar todos

Sub AleVBA_666()
Dim wsOrigem As Worksheet
Dim wsDestino As Worksheet

Set wsOrigem = Worksheets("Plan1")
Set wsDestino = Worksheets("Plan2")

    With wsOrigem
        .Range("A1").Copy Destination:=wsDestino.Range("A1")
    End With
    With wsOrigem
        Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Cells(1).Select
    End With
    Application.CutCopyMode = False
End Sub

Att

Se for somente a Celula A1, pode ser desta forma :

Código: Selecionar todos

Sub CopiaCola()
    Dim wsOrigem As Worksheet
    Dim wsDestino As Worksheet
    
    Set wsOrigem = Worksheets("Plan1")
    Set wsDestino = Worksheets("Plan2")
    
    'Copia
    wsOrigem.Range("A1").Copy
    
    'Cola
    wsDestino.Range("A1").PasteSpecial xlPasteValues
    
    Application.CutCopyMode = False
    
End Sub

[]s

Boa tarde Amigo...

Pelo que entendi da sua dúvida, criei um modelo para ver se te ajuda...

Testa aí...

Obrigado por tentarem me ajudar, mas todos as formas apresentas foram iguais aos testes que eu tinha realizado.
Quando a macro executa a tela ainda continua piscando e mudando as paginas para executar a função.

Só preciso que um valor seja colado em outra planilha sem que a macro precise ativar ou selecionar a outra planilha para colar, e não queria que a visualização da tela piscando aparece no excel. Mas mesmo assim obrigado.

Guru do Excel e Power BI

Ajuda VBA colar Valores

Ajuda VBA colar Valores

Re: Ajuda VBA colar Valores

Ajuda VBA colar Valores

Re: Ajuda VBA colar Valores

Re: Ajuda VBA colar Valores

Re: Ajuda VBA colar Valores

Re: Ajuda VBA colar Valores