Este fórum está sendo desativado

[Intruder18]

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.

[alexandrevba]

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

[Intruder18]

Não funcionou amigo

[alexandrevba]

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

[MauroCoutinho]

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

[lfgomes]

Boa tarde Amigo...

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

Testa aí...

[Intruder18]

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.