Macro copiar e colar em determinada hora

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Macro copiar e colar em determinada hora

Mensagempor barison28 » Dom Ago 12, 2018 7:57 am

Bom dia,

amigos, não sei se tem como mas eu pretendia executar a macro automaticamente todos os dias as 07:08 para copiar as células da aba Produção=>AD3,Y15,B2,Z11,Z15,Y14,Z22,AD3,Y43,B30,Z39,Z43,Z50,Y42,AD3,Y80,B67,Z76,Z80,Y79,Z87,AD6
e colar na aba banco de dados=>A,B3,C3,D3,E3,F3,G3,H3,I3,J3,K3,L3,M3,N3,O3,P3,Q3,R3,S3,T3,U3,V3
essa é a sequencia de copiar e colar.
pessoal não sei se tem como mas se alguém possa me dar alguma ideia, essa planilha preenchemos durante as 24 horas do dia nos 3 turno de trabalho e queremos fazer uma especie de banco de dados do ano todo.
Editado pela última vez por Patropi em Dom Ago 12, 2018 6:01 pm, em um total de 1 vez.
Razão: Não é permitido todo o título em letras maiúsculas - Leia as regras do fórum
barison28
Membro
Membro
 
Mensagens: 59
Registrado em: Qui Mar 30, 2017 12:27 pm
Has thanked: 15 times
Have thanks: 0 time

{ SO_SELECT }

Re: mACRO COPIAR E COLAR EM DETERMINADA HORA

Mensagempor MPrudencio » Dom Ago 12, 2018 8:48 am

Primeira coisa a fazer é disponibilizar a planilha com alguns dados de exemplo isso facilita conseguir ajuda.

Não entendi pq as 7:08 nao pode ser ao abrir a planilha?

Ate pq o codigo só sera executado se a planilha estiver aberta.
Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

MPrudencio
Membro
Membro
 
Mensagens: 2747
Registrado em: Sáb Ago 15, 2015 8:29 pm
Has thanked: 71 times
Have thanks: 599 times

Re: Macro copiar e colar em determinada hora

Mensagempor barison28 » Seg Ago 13, 2018 11:05 am

Bom dia,

a planilha tem o tamanho de 3mb não consigo anexar aqui, a planilha fica aberta 24 horas nos 3 turno de trabalho temos que enviar as informações da planilha no fechamento do terceiro turno que é entorno das 7:08, o primeiro turno assume o setor 07:20 e as informações da planilha é apagada para inclusão de novos dados de trabalho.

e como não sou o unico a realizar o fechamento algumas pessoas esquece de copiar os dados e essas informações são perdidas por isso de copiar automático as 07:08, copiar na próxima linha vazia
barison28
Membro
Membro
 
Mensagens: 59
Registrado em: Qui Mar 30, 2017 12:27 pm
Has thanked: 15 times
Have thanks: 0 time

Re: Macro copiar e colar em determinada hora

Mensagempor barison28 » Seg Ago 13, 2018 11:16 am

Código: Selecionar todos
Public dTime As Date
Sub cch()
  Application.OnTime TimeValue([A2].Text), "CopiaA1"
  Application.OnTime dTime, "CopiaA1"
End Sub

Sub CopiaA1()
  [A3] = [A1]
End Sub


tenho essa sequencia onde A2 tem a hora que é para copiar e colar mas não consigo fazer para copiar em uma aba as células e colar na outra aba
barison28
Membro
Membro
 
Mensagens: 59
Registrado em: Qui Mar 30, 2017 12:27 pm
Has thanked: 15 times
Have thanks: 0 time

Re: Macro copiar e colar em determinada hora

Mensagempor barison28 » Qua Ago 15, 2018 3:48 am

Alguém pode me dar alguma ideia de como realizar essa tarefa
barison28
Membro
Membro
 
Mensagens: 59
Registrado em: Qui Mar 30, 2017 12:27 pm
Has thanked: 15 times
Have thanks: 0 time

Re: Macro copiar e colar em determinada hora

Mensagempor Castilhos » Qua Ago 15, 2018 1:27 pm

Tente esse Cod e veja se dá Certo.

Adicione um Módulo à Planilha e teste esse código nele.

Código: Selecionar todos
Public Sub Copia()
     Sheets("Plan1").Range("B3").Copy 'Seleciona a Planilha e a Célula e Copia
     Sheets("Plan2").Activate 'Ativa a Planilha que receberá a Colagem
     Range("B1").Select 'Seleciona a Célula que receberá a colagem"
     ActiveSheet.Paste 'Faz A Colagem"
     
     Application.CutCopyMode = False
     
     Call Hora_deCopiar
End Sub

Public Sub Hora_deCopiar()

Application.OnTime TimeValue("13:19:00"), "Copia" ' Só alterar para o horário desejado


End Sub
Castilhos
Membro
Membro
 
Mensagens: 5
Registrado em: Sáb Jan 06, 2018 11:40 am
Has thanked: 6 times
Have thanks: 0 time

Re: Macro copiar e colar em determinada hora

Mensagempor barison28 » Qui Ago 16, 2018 6:01 am

Alguem pode me dizer pq esse erro, eu tirei a parte de proteger e desproteger a planilha por senha ai não deu mais o erro mas eu queria deixar com senha..

nessa rotina me atendeu, mas da esse erro ai (MÉTODO PASTESPECIAL DA RANGE FALHOU) e está colando só 3 linha depois disso não cola mais, adicionei on error resume next, não sei se tem outra forma

Código: Selecionar todos
Private Sub Copiar()
On Error Resume Next
UltimaLinha = Sheets("Banco de Dados").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Produção").Select
Range("am6:bh6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Banco de Dados").Visible = True
Sheets("Banco de Dados").Select
Sheets("Banco de Dados").Unprotect "Cia2018"
Cells(UltimaLinha + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("a1").Select
Sheets("Banco de Dados").Protect "Cia2018"
Sheets("Banco de Dados").Visible = False
Sheets("Produção").Select
Range("a3").Select
   Application.CutCopyMode = False
End Sub
Public Sub Hora_deCopiar()
Application.OnTime TimeValue("04:49:00"), "Copiar"


Adicionei na pasta de trabalho
Workbook Open
Call Hora_deCopiar
barison28
Membro
Membro
 
Mensagens: 59
Registrado em: Qui Mar 30, 2017 12:27 pm
Has thanked: 15 times
Have thanks: 0 time

Re: Macro copiar e colar em determinada hora

Mensagempor teleguiado » Sex Ago 17, 2018 10:45 am

Provavelmente seu código esta tentando gravar algum dado na planilha protegida, já que como você disse quando retirou a parte de proteger e desproteger o erro não aconteceu.
Obrigado.

Teleguiado.
E-mail: telegui4do@gmail.com
teleguiado
Membro
Membro
 
Mensagens: 70
Registrado em: Qui Mar 24, 2016 6:38 pm
Localização: Cuiabá/MT
Has thanked: 9 times
Have thanks: 16 times

Re: Macro copiar e colar em determinada hora

Mensagempor barison28 » Sáb Ago 18, 2018 2:37 am

Sim, acho que deu erro pois eu testei muito rápido ai não tinha dado o tempo de proteger e ocultar. Acho que se isso!
barison28
Membro
Membro
 
Mensagens: 59
Registrado em: Qui Mar 30, 2017 12:27 pm
Has thanked: 15 times
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google [Bot] e 7 visitantes