Este fórum está sendo desativado

[Suenne]

Boa tarde,

preciso criar uma macro para copiar dados de uma linha de uma determinada aba para outra aba. Pensei em fazer isso com uma flag, sempre que a flag for marcada ele faz a copia. Só assim eu consigo controlar o que eu já copiei ou não.

Por isso pensei em sempre que uma linha for adicionada na base de cadastros, o usuário marca ou não a flag para gerar etiqueta e ele envia para outra aba as informações que eu preciso.

Isso é possível?

Segue em anexo a planilha inicial (inclusive que me ensinaram aqui no fórum =).

Obrigada.

[laennder]

Suenne, o arquivo não veio.

[Suenne]

Adicionei o arquivo zipado agora.

[laennder]

Veja se é isso que você quer

[Suenne]

Laennder,

essa lista me ajuda sim, mas ao marcar sim ele não enviou. O que eu preciso fazer?

Obrigada.

[laennder]

Então não entendi o que deseja.

Não era para quando estiver marcado sim, criar a etiqueta?

[Suenne]

É algo parecido com essa macro aqui:

Sub copiar()
Sheets("Plan1").Range("A1:A3").Copy Destination:=Sheets("Plan2").Range("A1")
End Sub

Sempre que a flag estiver igual = Sim ele realiza a cópia.

[laennder]

Para a base de cadastros?

[Suenne]

copiar da planilha base de cadastro para planilha Sheet 1, sempre que na planilha base de cadastro estiver com a flag marcada como Sim.

[laennder]

Agora vai! rsrs

[Suenne]

Laennder, bom dia!

é realmente disso que eu precisava =)

Uma dúvida, estou adaptando este código à outra planilha.

alterei as planilhas no código e a coluna com a validação do Sim, a macro muda de planilha, seleciona as colunas, mas não cola nada.

Nó código, o que quer dizer essa função aqui?

qty = WorksheetFunction.CountA(Plan1.Columns(1))

Obrigada.

[Suenne]

Consegui, muito obrigada pela ajuda!