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

Copiar dados

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Jaime Rib.Preto
Colaborador
Colaborador
Mensagens: 23
Registrado em: Seg Mar 05, 2012 3:07 pm

Copiar dados

Mensagem por Jaime Rib.Preto »

Boa tarde, tenho uma planilha de controle de estacionamento.

Eu gostaria de copiar os dados para outra planilha, mas estou esbarrando no seguinte.
Fiz via macro, a copia, colar, limpar os dados, etc... acontece que eu gostaria de copiar somente onde tem dados e nao todo o intervalo de celulas... Em alguns dias, da uns 30 carros de movimento, em outros, 10 ...

Como faço, alguma sugestão?

Grato


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
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Copiar dados

Mensagem por joseA »

Bem vindo ao fórum Jaime,

Mostra uma arquivo/resumo...


Jaime Rib.Preto
Colaborador
Colaborador
Mensagens: 23
Registrado em: Seg Mar 05, 2012 3:07 pm

Re: Copiar dados

Mensagem por Jaime Rib.Preto »

Posso colocar a planilha aqui?

Grato

[]´s


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Copiar dados

Mensagem por joseA »

Deve estar zipado, logo abaixo em opções "Adicionar um anexo"...


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
Rubens
Colaborador
Colaborador
Mensagens: 50
Registrado em: Qui Mar 01, 2012 9:24 am

Re: Copiar dados

Mensagem por Rubens »

Olá Jaime.
Pelo que entendi vc deve estar usando o seguinte código pra copiar e colar:


Sub teste_copiar()
'Seleção de células (exemplo - célula A1 até K29)
Range("A1:K29").Select
'comando copiar
Selection.Copy
'comando colar(neste caso está colando na mesma planilha)
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Tenta usar esses:

Sub teste_copiar()

'Define o começo da seleção
'Nesse caso está na célula A1 da Plan1
Sheets("Plan1").Select
Range("A1").Select

'Faz a seleção dos seus dados apartir da célula definida acima
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

'Copiar
Selection.Copy

'Colar (aqui vc define onde os dados vão ser colado)
'Nesse caso está colando na célula K20 em diante da Plan2
Sheets("Plan2").Select
Range("K20").Select
ActiveSheet.Paste

End Sub

Espero ter ajudado. Se não for isso favor descosiderar.

T+


Jaime Rib.Preto
Colaborador
Colaborador
Mensagens: 23
Registrado em: Seg Mar 05, 2012 3:07 pm

Re: Copiar dados

Mensagem por Jaime Rib.Preto »

Bem, estou postando a planilha aqui...
Acho que pra quem manja, que nao é o meu caso, é facil.. :)

Grato
[]´s

Jaime
Anexos
Calculo2.rar
(167.26 KiB) Baixado 230 vezes


Avatar do usuário
Fabio Trindade
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Abr 24, 2011 4:07 pm

Re: Copiar dados

Mensagem por Fabio Trindade »

Jaime Rib.Preto escreveu:Bem, estou postando a planilha aqui...
Acho que pra quem manja, que nao é o meu caso, é facil.. :)

Grato
[]´s

Jaime

Boa tarde, Jaime Rib.Preto.

Estou anexando o seu arquivo com algumas alterações na rotina que copiar as informações para a ABA Relatorio, efetue mais testes pra verificar se vai atender sua necessidade.
Anexos
Calculo2.rar
Calculo
(169.63 KiB) Baixado 221 vezes


Jaime Rib.Preto
Colaborador
Colaborador
Mensagens: 23
Registrado em: Seg Mar 05, 2012 3:07 pm

Re: Copiar dados

Mensagem por Jaime Rib.Preto »

Oi, obrigado pela ajuda...

A caixa de mensagem, ficou perfeita, era o que eu queria

Fiz um teste inicial e parece que funcionou, dai limpei a planilha relatorio e joguei dados na planilha horario, qdo foi executar a macro deu o seguinte erro: Selection.End(xlDown).Offset(1, 0).Select

O que pode ser?

Grato
[]s
Jaime


Jaime Rib.Preto
Colaborador
Colaborador
Mensagens: 23
Registrado em: Seg Mar 05, 2012 3:07 pm

Re: Copiar dados

Mensagem por Jaime Rib.Preto »

estranho ... na aba relatorio, escrevi manualmente (teste) na celula A2, e a rotina funcionou normal... que loucura...
Parece que deu certo sim...

VAleu mesmo pela ajuda

[]´s

Jaime


Avatar do usuário
Fabio Trindade
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Abr 24, 2011 4:07 pm

Re: Copiar dados

Mensagem por Fabio Trindade »

Jaime Rib.Preto escreveu:estranho ... na aba relatorio, escrevi manualmente (teste) na celula A2, e a rotina funcionou normal... que loucura...
Parece que deu certo sim...

VAleu mesmo pela ajuda

[]´s

Jaime

Bom dia, Jaime Rib.Preto.

Peço desculpa sobre sua planilha, pois eu não tinha testado inserir os dados com a planilha "Relatorio" toda limpa somente com cabeçalho.
Pois fiz algumas alterações no codigo e agora ela faz a inserção mesmo que estaja só com cabeçalho, e tambem foi incrementado um botão LIMPAR DADOS na aba "Relatorio".
Efetue teste na planilha pra verificar se vai atender a sua necessidade.
Anexos
Calculo2.rar
(168.39 KiB) Baixado 234 vezes


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