Notifications
Clear all

Copiando Célula e Gerando aspas na cópia

14 Posts
2 Usuários
0 Reactions
3,348 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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
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
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
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
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
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