Este fórum está sendo desativado

[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 ?

[alexandrevba]

Bom dia!!

Seria isso?

Código: Selecionar todos

Sub 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

[FernandoAC]

Boa tarde,
Desculpa minha ignorância mas onde coloca este código ?
Desde já muito obrigado

[FernandoAC]

Ta dando esse erro sabe oq pode ser ?

[alexandrevba]

Boa tarde!!

Remova as células mescladas G:H (onde tem o cabeçalho do filtro)

Att