Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Copiar dados
-
- Colaborador
- Mensagens: 23
- Registrado em: Seg Mar 05, 2012 3:07 pm
Copiar dados
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
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
-
- Colaborador
- Mensagens: 23
- Registrado em: Seg Mar 05, 2012 3:07 pm
Re: Copiar dados
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+
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+
-
- Colaborador
- Mensagens: 23
- Registrado em: Seg Mar 05, 2012 3:07 pm
Re: Copiar dados
Bem, estou postando a planilha aqui...
Acho que pra quem manja, que nao é o meu caso, é facil..
Grato
[]´s
Jaime
Acho que pra quem manja, que nao é o meu caso, é facil..
Grato
[]´s
Jaime
- Anexos
-
- Calculo2.rar
- (167.26 KiB) Baixado 230 vezes
- Fabio Trindade
- Manda bem
- Mensagens: 161
- Registrado em: Dom Abr 24, 2011 4:07 pm
Re: Copiar dados
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
-
- Colaborador
- Mensagens: 23
- Registrado em: Seg Mar 05, 2012 3:07 pm
Re: Copiar dados
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
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
-
- Colaborador
- Mensagens: 23
- Registrado em: Seg Mar 05, 2012 3:07 pm
Re: Copiar dados
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
Parece que deu certo sim...
VAleu mesmo pela ajuda
[]´s
Jaime
- Fabio Trindade
- Manda bem
- Mensagens: 161
- Registrado em: Dom Abr 24, 2011 4:07 pm
Re: Copiar dados
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