Guru do Excel e Power BI

Enviado: **20 Mar 2018 às 12:08**

Boa tarde

Estou tentando aperfeiçoar uma macro, mas como meu conhecimento é pequeno nao estou conseguindo e peço ajuda.

Sem em anexo planilha e desde já agradeço se algum conseguir me ajudar.

A celular I1 esta trazendo a data atual, e preciso que sejam excluidadas todas as linhas com data igual um superior a data da E1, porém se se a data da E1 for de uma segunda-feira, (19/03/2018) por exemplo, a exclusão deve acontecer a partir do ultimo dia util, no caso, tudo que for mair ou igual a 16/03/2018.

Resumindo preciso que fique apenas as linhas que contem o vencimento da coluna I anteriores a data atual(hoje).

Desde ja agraço e caso nao entenda tento explicar de uma forma melhor.

At.

Enviado: **21 Mar 2018 às 23:01**

Experimente este codigo!

Código: Selecionar todos


Sub Excluir()

Dim W As Worksheet
Dim Lin As Long

Set W = Sheets("INDPL")
    Lin = W.Range("A" & Rows.Count).End(xlUp).Row
    
    For X = 2 To Lin
    
    If W.Cells(X, 9).Value <= Date Then
    
    Rows(X).Delete
    
    End If
    
   
    
    Next X
    

MsgBox "Dados Excluidos"

End Sub

Guru do Excel e Power BI

Ajuda criação de uma macro VBA.

Ajuda criação de uma macro VBA.

Ajuda criação de uma macro VBA.