Bom dia galera,

Sou novo aqui no fórum, e vim aqui pra tirar uma dúvida.

Eu estou com dificuldade em fazer uma função no vba que ele procura uma data numa coluna (Coluna D da aba Planilha1), e esta data deve ser igual a data digitada na célula "F3" da aba Plan1 (outra aba).
Assim que ele encontrar a data na coluna D, eu gostaria que ele retornasse a data da mesma célula porém da coluna C.

A data procurada na coluna D deverá ser igual da célula F3 conforme esta imagem: http://imgur.com/9gCOF1P
A data procurada na coluna D, quando for igual da célula F3, deverá retorna a data da coluna anterior conforme esta imagem: http://imgur.com/R2thQD6

Vocês podem alterar as variáveis caso precisem !!

Código:

Public Function dias_uteis() As String

Dim dia_liquido As String
Dim dia_hoje As String
Dim ultimo_dia As String

dia_hoje = Worksheets("Planilha1").Range("D3:D260")

If Worksheets("Plan1").Range("F3") = dia_liquido Then

    Do Until ActiveCell = dia_hoje
    ActiveCell.Offset(1, 0).Select
        If ActiveCell = dia_liquido Then
        cnPlanilha1.Cells(3 - 1, 1) = ultimo_dia
        End If
    Loop
End If

dias_uteis = ultimo dia

End Function

Obrigado pela ajuda !!