MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

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

    avatar
    MB84
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 10/09/2023

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

    Mensagem  MB84 10/9/2023, 18:46

    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.

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 11/9/2023, 13:41

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Copiar apenas texto para área de transferencia do windows Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Copiar apenas texto para área de transferencia do windows Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Copiar apenas texto para área de transferencia do windows Folder_announce_new Instruções SQL como utilizar...
    avatar
    MB84
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 10/09/2023

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

    Mensagem  MB84 11/9/2023, 17:32

    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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 12/9/2023, 10:08

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Copiar apenas texto para área de transferencia do windows Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Copiar apenas texto para área de transferencia do windows Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Copiar apenas texto para área de transferencia do windows Folder_announce_new Instruções SQL como utilizar...
    avatar
    MB84
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 10/09/2023

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

    Mensagem  MB84 13/9/2023, 01:39

    MUITO TOOOOOP!!!!!!

    Salvou meu FDS inteiro de busca KKKKKKKKK

    Ficou perfeito.

    VLW JPAULO.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 13/9/2023, 09:37

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Copiar apenas texto para área de transferencia do windows Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Copiar apenas texto para área de transferencia do windows Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Copiar apenas texto para área de transferencia do windows Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 3/10/2024, 12:52