Página 1 de 1
Copiar se o horário For maior que 12h e menor que 22h
Enviado: 02 Out 2016 às 16:47
por FernandoAC
Pessoal Quero filtrar automaticamente as programações entre 12:00 e 22:00 e aparecer na planilha do lado da geral
tem algum jeito pra fazer isso ?
Re: Copiar se o horário For maior que 12h e menor que 22h
Enviado: 03 Out 2016 às 09:41
por alexandrevba
Bom dia!!
Seria isso?
Código: Selecionar todosSub AleVBA_3182()
With ActiveSheet
[I1].Value = "AleVBA": [M1].Value = "Horas": [N1].Value = "Descrição"
.Range("M2:N5000").ClearContents
.Range("I2:I35").Formula = "=IF(AND(HOUR(G2)>=12,HOUR(G2)<=22),1,0)"
.Range("$G$1:$I$30").AutoFilter Field:=3, Criteria1:="1"
.Range("G2:H35").SpecialCells(xlCellTypeVisible).Copy
.Range("M2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("I2:I5000").ClearContents
.Columns.AutoFit
.Range("$G$1:$I$30").AutoFilter
End With
Application.CutCopyMode = False
End Sub
Att
Re: Copiar se o horário For maior que 12h e menor que 22h
Enviado: 03 Out 2016 às 14:40
por FernandoAC
Boa tarde,
Desculpa minha ignorância mas onde coloca este código ?
Desde já muito obrigado
Re: Copiar se o horário For maior que 12h e menor que 22h
Enviado: 03 Out 2016 às 15:00
por FernandoAC
Ta dando esse erro sabe oq pode ser ?
Re: Copiar se o horário For maior que 12h e menor que 22h
Enviado: 03 Out 2016 às 15:01
por alexandrevba
Boa tarde!!
Remova as células mescladas G:H (onde tem o cabeçalho do filtro)
Att