Notifications
Clear all

Inserir nova linha em várias planilhas

14 Posts
2 Usuários
0 Reactions
1,657 Visualizações
(@erica)
Posts: 8
Active Member
Topic starter
 

Boa tarde,

Tenho um documento com 4 planilhas, porém todas correspondem as mesmas pessoas. Em cada linha é um funcionário e nas colunas um valor. Isso acontece em 3 planilhas e na quarta é total dos valores.
O meu problema está em quando preciso adicionar um novo funcionário (estão em ordem alfabética). É possível adicioná-lo uma unica vez, mas de um modo em que ele apareça em todas as 4 planilhas, mantendo a ordem?

 
Postado : 15/07/2014 11:16 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

ERICA,

Fiz usando VBA:

Insira o código e faça o teste.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.Value = "" Then
        Worksheets("Plan2").Range(Target.Address).Value = Target.Value
        Worksheets("Plan3").Range(Target.Address).Value = Target.Value
        Worksheets("Plan4").Range(Target.Address).Value = Target.Value
    End If
End Sub

Qualquer dúvida é só perguntar!!!

Att,

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

 
Postado : 15/07/2014 12:00 pm
(@erica)
Posts: 8
Active Member
Topic starter
 

Marciel,

Não deu certo.
"Erro em tempo de execução '13'.
Tipos incompatíveis"

Ao depurar, destaca-se a parte do código: If Not Target.Value = "" Then

Desculpe se é algo errado que eu possa ter feito. Nunca usei o VBE.

 
Postado : 15/07/2014 12:50 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde, Erica.

Abra o meu arquivo e vê se o erro ainda continua.

Att,

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

 
Postado : 15/07/2014 1:42 pm
(@erica)
Posts: 8
Active Member
Topic starter
 

O erro continua.

 
Postado : 15/07/2014 1:47 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Erica, o seu excel é qual versão?
Quando abre o arquivo é pedido para você habilitar a Macro, você está habilitando?

Att,

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

 
Postado : 15/07/2014 1:50 pm
(@erica)
Posts: 8
Active Member
Topic starter
 

é 2010. Estou habilitando a Macro sim.

 
Postado : 15/07/2014 1:54 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Erica,

Fiz no excel 2007.
Agora estou saindo do meu emprego. Chegando em casa eu monto em outra versão para ver se não dá mais o erro.

Att,

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

 
Postado : 15/07/2014 1:59 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

ERICA, boa noite!

Fiz o teste na versão 2013 e não ocorreu o erro.

Tente esse código:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Not Target.Value = "" Then
        Worksheets("Plan2").Range(Target.Address).Value = Target.Value
        Worksheets("Plan3").Range(Target.Address).Value = Target.Value
        Worksheets("Plan4").Range(Target.Address).Value = Target.Value
    End If
End Sub

Att,

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

 
Postado : 15/07/2014 6:20 pm
(@erica)
Posts: 8
Active Member
Topic starter
 

Marciel,

Bom dia,

Não teve erro mesmo, mas também não fez a mudança que preciso. Ao inserir uma linha na primeira planilha, as demais continuam como antes, sem nenhuma alteração.
A minha intenção é que, ao inserir uma linha na primeira planilha, nas demais também seja inclusa, na mesma ordem, para que eu tenha os nomes de todos os funcionários em todas as planilhas.

 
Postado : 16/07/2014 5:22 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Erica, bom dia!

Infelizmente não entendi a sua dúvida.
O que o código faz é simplesmente tudo o que você digitar na Plan 1 aparece nas outras Planilhas.
Quanto a inserir linhas eu não tinha atentado para isso.
Continuo tentando aqui...
Deixo aberto aqui para que alguém do grupo tiver o código possa lhe ajudar!!!

Att,

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

 
Postado : 16/07/2014 5:59 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

ERICA,

Como estou no meu emprego aqui não consigo pesquisar sobre esse caso.
Mais há uma maneira de se fazer isso manualmente:

Selecione todas as planilhas (Segure o CTRL e clique em todas as abas)
Qualquer alteração que fizer na plan1 vai para todas!

Att,

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

 
Postado : 16/07/2014 6:11 am
(@erica)
Posts: 8
Active Member
Topic starter
 

Obrigada Marciel,

Creio que essa será a forma para me ajudar mesmo!

Obrigada!

 
Postado : 16/07/2014 7:23 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

ERICA, bom dia!

Vendo a biblioteca do fórum hoje, vi que o nosso amigo Edcronos postou uma planilha que é exatamente o que você precisa.
Veja se lhe atente se ainda estiver precisando.

Deixo aqui reconhecido os direitos autorais desse material pertencente ao nosso amigo Edcronos.

Att,

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

 
Postado : 31/07/2014 5:05 am