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

Automatizando planilha diária - Macro - VBA

Ponto de encontro entre aqueles que precisam e fornecem soluções baseadas no Microsoft Excel e VBA. Precisa de uma solucão em VBA? É um consultor ou programador independente? Esse é o lugar!
Guilherme Nascimento
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qua Nov 22, 2017 3:16 pm

Automatizando planilha diária - Macro - VBA

Mensagem por Guilherme Nascimento »

Pessoal, boa tarde!

Sou iniciante em programação em VB. Na verdade conheço muito pouco.

Eu estou criando macros em uma planilha de trabalho diário, e me deparei com um obstáculo.

Eu tenho uma planilha. a 1 ABA nome "modelo", é onde eu quero que os dados sejam inseridos.

E tem a ABA "puxadas", que é de onde a macro busca e extrai os dados para jogar pra ABA modelo.




Abaixo segue o código:

Range("G2:H2").Select
Selection.Copy
Sheets("Puxadas").Select
ActiveSheet.Range("$A$2:$O$5447").AutoFilter Field:=1, Criteria1:= _
"=20/11/2017", Operator:=xlAnd
Sheets("MODELO").Select
Range("D4:D16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Puxadas").Select
ActiveSheet.Range("$A$2:$O$5447").AutoFilter Field:=7, Criteria1:= _
"=C450669", Operator:=xlAnd
Range("D2013:D2017,N2013:N2017").Select
Range("N2013").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("MODELO").Select
Range("G4").Select
ActiveSheet.Paste

End Sub

Eu gostaria de no local onde busca a data, colocasse uma variável, porque a macro está copiando a data, e sempre retornando os mesmos valores.


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.


gbportela
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Sáb Dez 09, 2017 10:24 pm

Re: Automatizando planilha diária - Macro - VBA

Mensagem por gbportela »

Bom dia Guilherme,

Existem algumas formas de se conseguir o resultado que você deseja. Abaixo temos duas delas:

'1o Inputbox:
Data = CDate(InputBox("Informe a data"))
'2o inserir a data desejada em uma célula, neste exemplo, "P1".
Data = Range("P1").Value

ActiveSheet.Range("$A$2:$O$5447").AutoFilter Field:=1, Criteria1:= _
"=" & Data, Operator:=xlAnd


Responder