Visual Basic IF com duas condições

[Jorge Guimaraes]

Bom dia galera, comecei a me aventura hoje no VBA e estou tentando criar um gráfico de Gantt numa planilha que uso pra gerenciar projetos, mas não estou conseguindo utilizar duas condições no IF, o código é:

Dim Validade As Date
Dim Status As String

Sub VerificarValidade()

    Status = Planilha1.Cells(3, 4).Value
    Validade = Planilha1.Cells(4, 4).Value
    l = 4
    s = 3
    
        Do While Validade <> Empty
               
                If Validade = Planilha1.Cells(3, 13).Value And Status = "Done" Then
                               
                Planilha1.Cells(l, 13).Interior.ColorIndex = 4
                                                
                End If
                
                l = l + 1
                s = s + 1
                Validade = Planilha1.Cells(l, 4).Value
                Status = Planilha1.Cells(s, 4).Value
      
        Loop

End Sub

 

 

Quero que ele deixe verde quando a data for igual a de hoje e o status for "Done", poderiam me ajudar por gentileza? Segue também imagem da planilha.

 

[Midori]

@Jorge Guimaraes  Na linha da atribuição do status os valores de linha e coluna estão trocados, corrija para

 

Status = Planilha1.Cells(4, 3).Value

 

Nesta comparação da Validade Cells(4, 13) teria que ser uma data, mas aparentemente você vai apenas marcar esse campo já que o mês e dia estão nas linhas 2 e 3...

 

If Validade = Planilha1.Cells(4, 13).Value And Status = "Done" Then

 

E se quiser comparar linha por linha teria usar a variável L aí também junto com as Cells do status.