Copiar dados de celula sem quebra de linha

2024 - VBA & Macros

Post Recente por denisonreis 1 ano atrás

3 Posts

2 Usuários

1 Reactions

707 Visualizações

RSS

denisonreis

(@denisonreis)

Posts: 10

Eminent Member

Topic starter

Bom dia!

Alguem poderia me ajudar criar um código?

Estou usando o código abaixo para copiar o texto da célula para a área de transferência do Windows para colar em outro programa. O problema é quando vou colar o texto, o texto vem com espaço no final e com quebra de linha. Existe alguma possibilidade de copiar somente o texto sem espaço no final e quebra de linha?

Sub copiar_nome()

[d5].Copy

End Sub

Postado : 01/08/2023 11:16 am

nelsonst

(@nelsonst)

Posts: 38

Eminent Member

Uma solução é colocar o texto que você deseja copiar em uma variável e, em seguida, usar a biblioteca MSForms para copiar o texto para a área de transferência. Primeiro, certifique-se de ter a biblioteca de objetos Microsoft Forms 2.0 incluída no seu projeto VBA (no VBA Editor, vá para Ferramentas > Referências > Microsoft Forms 2.0 Object Library).

Aqui está o código modificado:

Substituir "Sheet1" pelo nome da sua planilha,

Sub CopiarNome()

    Dim DataObj As MSForms.DataObject
    Set DataObj = New MSForms.DataObject
    Dim strText As String
    
    strText = Trim(Worksheets("Sheet1").Range("D5").Value)
    
    DataObj.SetText strText
    DataObj.PutInClipboard
    
End Sub

Postado : 01/08/2023 11:59 am

denisonreis reacted