Notifications
Clear all

Copiando Célula e Gerando aspas na cópia

14 Posts
2 Usuários
0 Reactions
3,336 Visualizações
(@victordalt)
Posts: 12
Active Member
Topic starter
 

Bom dia pessoal,

Escrevi a seguinte fórmula:

=CONCATENATE(IF(OR(Controle!AY3="";Controle!AY3=0);"";CONCATENATE("• ";Controle!AY3&CHAR(10)));IF(OR(Controle!BA3=0;Controle!BA3="");"";CONCATENATE("• ";"PRI Revision";" - ";Controle!BA3&CHAR(10)));IF(OR(Controle!BB3=0;Controle!BB3="");"";CONCATENATE("• ";Controle!BB2;" - ";Controle!BB3&CHAR(10)));IF(OR(Controle!BC3=0;Controle!BC3="");"";CONCATENATE("• ";Controle!BC2;" - ";Controle!BC3&CHAR(10))))

Até ai tudo bem, ta funcionando direitinho, puxando as infos, só que, eu criei um botao para copiar as celulas, e depois colar em outros lugares, como no bloco de notas por exemplo, o problema é que quando eu colo, o texto da célula ta vindo todo entre parenteses...

Alguém tem idéia do que possa ser?

Abraços!

 
Postado : 01/11/2013 8:38 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Realmente não entendi, o que está copiando para onde?
Pode postar um exemplo??

 
Postado : 01/11/2013 8:47 am
(@victordalt)
Posts: 12
Active Member
Topic starter
 

Essa formula, me gera um texto, eu quero copiar esse texto gerado para um bloco de notas.

Deveria ser colado no bloco de notas assim:

Texto concatenado

E ta sendo colado assim:

"Texto concatenado"

Queria saber de onde estão vindo as aspas, tá realmente incomodando muito, pois o texto que é colado, é de projetos, e eu tenho q ficar apagando essas aspas sempre.

 
Postado : 01/11/2013 9:05 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Em principio não deveria passar as Aspas. Voçe pode pelo menos postar o codigo/rotina utilizada?

 
Postado : 01/11/2013 9:38 am
(@victordalt)
Posts: 12
Active Member
Topic starter
 

O que seria esse codigo/rotina?

 
Postado : 01/11/2013 9:43 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Voce disse no tópico inicial:

.. eu criei um botao para copiar as celulas, e depois colar em outros lugares, como no bloco de notas por exemplo, o problema é que quando eu colo, o texto da célula ta vindo todo entre parênteses...

Para que o botão execute alguma ação é necessário "por" traz uma rotina pode ser chamado também de código ou macro, e essa rotina que falei. Mas o ideal seria seu arquivo com poucos dados e se houver algum dado confidencial, substitua-os por dados fictícios

 
Postado : 01/11/2013 12:58 pm
(@victordalt)
Posts: 12
Active Member
Topic starter
 

Sub Copy()
'
' Copy Macro
'

'
Range("B4:C24").Select
Selection.Copy
End Sub

Essa é a macro do botão. Creio que o problema nao seja nela, pois não são todas as células que estão sendo copiadas com esse problema, só as que estão com uma fórmula maior... Não sei se está associado ao char(10) ou ao concatenade, ou aos 2 juntos, ja quebrei a cabeça aqui e nao consigo achar de onde vêm essas aspas.

 
Postado : 01/11/2013 1:22 pm
(@victordalt)
Posts: 12
Active Member
Topic starter
 

Alguém?

 
Postado : 04/11/2013 6:26 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Tentei duplicar os valores da sua formula acima, e ao copiar para o bloco de notas é assumido as Aspas, porem copiando para o wordpad (creio que disponivel no windows 7) não "leva" as aspas.
Então sem maiores detalhes/exemplos, creio ser um "problema" do bloco de notas. Experimente utilizar outro editor de texto como o free notepad++.
Ou expermiente alterar a rotina de copia para a abaixo:

Sub Salva()
'Define o caminho e nome do arquivo txt.
Caminho = ThisWorkbook.Path & Application.PathSeparator
Arquivo = "Copiado.txt"
Open Caminho & Arquivo For Output As #1
'numero da linha que inicia copia e termina a copia

For x = 4 To 24
vlr = Range("B" & x) & " " & Range("C" & x)
    Print #1, vlr
Next
Close #1
End Sub
 
Postado : 04/11/2013 7:53 am
(@victordalt)
Posts: 12
Active Member
Topic starter
 

No caso da cópia, ta indo com aspas pra todo lugar, Skype, Bloco de notas, até mesmo pro proprio Excel, mas enfim, sua macro funcionou muito bem, o único problema é que o texto copiado está vindo sem quebra de linha,ta vindo tudo alinhado, vc conseguiria resolver isso?

Muito Grato!

 
Postado : 04/11/2013 9:32 am
(@victordalt)
Posts: 12
Active Member
Topic starter
 

Tem uma celula q vem como algo do tipo:

Escopo: • Teste
• Teste1
• Teste 2

No arquivo que está sendo criado pela macro está vindo assim:

Escopo: •Teste •Teste1 •Teste 2

 
Postado : 04/11/2013 9:45 am
(@victordalt)
Posts: 12
Active Member
Topic starter
 

Desculpa Reinaldo, o problema de quebra de linhas é no Bloco de Notas, abri com o wordpad e está tudo certo! Obrigado!

 
Postado : 04/11/2013 11:07 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi?

 
Postado : 04/11/2013 11:13 am
(@victordalt)
Posts: 12
Active Member
Topic starter
 

O codigo que vc mandou está funcionando perfeitamente, eu pensei q n tava gerando a quebra de linha, mas o problema é no Bloco de notas, que nao aceita a formatação, abri com o wordpad, e o conteudo da celula está vindo perfeito! Você resolveu meu problema.

Muito Obrigado

 
Postado : 04/11/2013 11:31 am