Tomás Vásquez Fórum

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.

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