Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[RESOLVIDO]Preencher uma planilha ao preencher uma igual

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Bruno 33
Colaborador
Colaborador
Mensagens: 23
Registrado em: Qui Mai 18, 2017 8:01 am

[RESOLVIDO]Preencher uma planilha ao preencher uma igual

Mensagem por Bruno 33 »

Bom dia, eu dentro do mesmo documento tenho duas sheets iguais a esta imagem:
Imagem

Agora o que pretendo é que ao preencher a primeira sheet, automáticamente me preencha a outra sheet igual só os campos assinalados a vermelho.

Só uma atenção, o último campo assinalado a vermelho tem células unidas.

Alguém pode ajudar?
Anexos
123.png
123.png (86.61 KiB) Exibido 2853 vezes
Editado pela última vez por Bruno 33 em Seg Nov 20, 2017 3:05 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Preencher uma planilha ao preencher uma igual

Mensagem por webmaster »

Bruno,

As celulas mescladas nao sao um problema. Elas apenas vao ficar sobrando na outra planilha. Nesse contexto, voce pode usar um simples =Plan1!A1 e assim por diante em todas as celulas.

Ja se a formatacao e mesclagem eh importante, recomendo que use algo como esse codigo, provavelmente no onchange da sua planilha (aqui chamada PlanOriginal):

Código: Selecionar todos

Sub Copiar()
Dim PlanOriginalAs Worksheet
Set PlanOriginal= ThisWorkbook.Worksheets("PlanOriginal")
PlanOriginal.Copy ThisWorkbook.Sheets(Sheets.Count)
End Sub
Mais opcoes: https://stackoverflow.com/questions/843 ... 10#8439771


Bruno 33
Colaborador
Colaborador
Mensagens: 23
Registrado em: Qui Mai 18, 2017 8:01 am

Re: [RESOLVIDO]Preencher uma planilha ao preencher uma igual

Mensagem por Bruno 33 »

webmaster, informação útil para resolver o problema


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder