[Resolvido]Copiar apenas texto para área de transferencia do windows

Boa tarde!!

Estou precisando copiar apenas o conteúdo dentro de uma célula para área de transferência do Windows em VBA.

Estou criando uma planilha onde, ao clicar num botão, o texto contido numa célula seja copiado para área de transferência e após executar o atalho Ctrl + v, possa ser colado apenas o texto contido na célula para o whatsapp.

Alguém pode me ajudar.

Olá seja bem vindo ao forum.

Amigão este é um forum de Ms Access, por isso movi a sua duvida para Off-Topic.

Para não ficar sem ajuda, existe duas simples formas, entre muitas outras;

Código:

'exemplo 1
Sub SeuBotao_Click()
    ActiveSheet.Range("A2").Copy
End Sub

'exemplo 2
Sub SeuBotao_Click()
    Worksheets("SuaFolha").Range("A2").Copy
End Sub

Boa tarde!

JPaulo, desde já agradeço a atenção.

Tente as duas formas, porém, os dois exemplos chegam em um mesmo resultado, transformam a seleção em imagem para a área de transferência.

O que eu preciso é copiar apenas o texto contido na célula para que eu possa colar como texto.

Certo.

Só copiar o valor que está numa celula, tem de usar uma função.

Cole esta função no VBA;

Código:

Function CopiarValorEmCelula$(Optional s$)
    Dim v: v = s  'Transmite para variavel o suporte VBA de 64 bits
    With CreateObject("htmlfile")
    With .parentWindow.clipboardData
        Select Case True
            Case Len(s): .setData "text", v
            Case Else:  CopiarValorEmCelula = .GetData("text")
        End Select
    End With
    End With
End Function

Chame a função no seu botão;

Código:

Sub SeuBotao_Click()
    CopiarValorEmCelula ActiveSheet.Range("A2").Value
End Sub

MUITO TOOOOOP!!!!!!

Salvou meu FDS inteiro de busca KKKKKKKKK

Ficou perfeito.

VLW JPAULO.

Obrigado pelo retorno o forum agradece.