Notifications
Clear all

Bloqueio de copiar e colar...

8 Posts
2 Usuários
0 Reactions
2,433 Visualizações
(@welitogyn)
Posts: 4
New Member
Topic starter
 

Pessoal,

Utilizei a seguinte formatação condicional : formula: =lin()=cel("lin")

Código VB :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Porem quando executo a função de copiar e colar (Ctrl +C / Ctrl +V) a função está desativada não permitindo eu copiar e colar.

Como faço para que esta função esteja disponível utilizando a formatação e o código acima.

Obrigado e abs.

Welito,

 
Postado : 23/12/2011 7:45 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Olá Welitogyn!

Aqui o ctrl c + ctrl v funcionou. O que exatamente vc quer? Seria pintar a linha da planilha com base em um valor específico?

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

 
Postado : 23/12/2011 10:27 am
(@welitogyn)
Posts: 4
New Member
Topic starter
 

Caro Bruno,

Estou enviando a planilha em anexo para melhor verificar.

Tente copiar e colar na mesma planilha, você verá que o código VB (msg anterior) que calcula a planilha executa assim que você seleciona outra célula impedindo que você copie os dados.

Veja que coloquei um codigo VB e uma formatação Condicional para pintar a linha da célula ativa, porém me impede de executar o copiar e colar na mesma planilha.

Att.,

Welito,

 
Postado : 26/12/2011 2:44 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Olá Welitogyn!

Cara... pelo que entendi vc quer que sempre que selecione uma célula toda a linha fique marcada, certo? Então... pesquisei para tentar te ajudar a resolver esse problema em específico e a única coisa que eu achei que pode ser útil, e que você já deve saber ¬¬, é que mandando a macro executar o comando "calculate" vc não conseguirá fazer o ctrl+c/ctrl+v, pois toda vez que um range é definido, ou seja, sempre q vc movimenta o cursor o "calculate" é executado e imediatamente o ctrl+c/ctrl+v é desfeito.

Mas como o mundo não vive de más notícias (rsrsrs), deixo 3 sugestões para vc contornar o problema de copiar e colar (é até meio óbvio, mas vai que ajuda...!).

1 - Você pode clicar na célular que queria copiar e colocar o mouse no canto direito-inferior da célular para arrastar a fórmula até onde vc queira;

2 - Você pode usar o comando ctrl+D ou ctrl+R para preencher as células. Estes comandos funcionam da seguinte forma; Ex: vc seleciona o range A1:D1 e apertar ctrl+R. O conteúdo de B1 até D1 é preenchido com o conteúdo de A1. O ctrl+D é a mesma coisa, mas preenche para baixo.

3 - Coloque a aspa simples " ' " antes do calculate ( 'calculate) para ele virar comentário no macro e não ser executado enquanto vc copia e cola a informação necessária.

Enfim... exauri meus conhecimentos, hehehe.

Se eu puder ajudar em algo mais (ou em alguma coisa, rs), estamos aí.

Abraços!

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

 
Postado : 27/12/2011 7:32 pm
(@welitogyn)
Posts: 4
New Member
Topic starter
 

Caro amigo Bruno,

Primeiramente obrigado pela disposição.

Estou enviando um anexo para que entenda melhor o que preciso, veja que executo uma macro para inserir e copiar dados, porem ela trava quando o comando "calculate" é executado.

Já tentei criar uma macro para ativar e desativar o comando "calculate" mas não funcionou, se tiver outra sugestão irei ficar muito grato.

Obrigado,

Welito,

 
Postado : 27/12/2011 9:20 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Fala Welitogyn!

Cole este código em algum módulo do VBA, vincule-o ao botão "LANÇAR" que vc criou e veja se é isso mesmo que você quer.

Sub LANCAMENTO_TESTE()

Dim Coluna_Evento, Linha_Descricao As Variant

Coluna_Evento = 2
Linha_Descricao = 15

Cells(15, 1).Select
Selection.EntireRow.Insert

Do While Worksheets("CRONOGRAMA").Cells(8, Coluna_Evento) <> ""
Coluna_Evento = Coluna_Evento + 1
Loop

ActiveSheet.Range(Worksheets("CRONOGRAMA").Cells(8, 2), Worksheets("CRONOGRAMA").Cells(8, Coluna_Evento)).Select
Selection.Copy

On Error Resume Next
ActiveSheet.Paste(Worksheets("CRONOGRAMA").Cells(15, 2), Worksheets("CRONOGRAMA").Cells(15, Coluna_Evento)).Selection

End Sub

Qualquer coisa estamos aí!

Abraços!

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

 
Postado : 28/12/2011 5:33 am
(@welitogyn)
Posts: 4
New Member
Topic starter
 

Valeu Bruno!!!! É isso mesmo.

Muito obrigado pela ajuda.

Abraços.

Welito,

 
Postado : 28/12/2011 1:26 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Que bom que deu certo!

Precisando estamos aí.

Abraços!

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

 
Postado : 28/12/2011 2:44 pm