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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Automatizando planilha diária - Macro - VBA
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Qua Nov 22, 2017 3:16 pm
Re: Automatizando planilha diária - Macro - VBA
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
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