Bom dia!!

Eu lhe recomendo postar seu arquivo modelo, para que o pessoal possa ajuda-lo.
Ou use a pesquisa
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Estou tentando utilizar este comando porem não da o retorno necessario
Se na data do lançamento tiver alguma entrada retorna o valor caso contrario o retorno será zero.
Utilizei esta linha de comando.
If Dt1 = Data Then
Me.EntTqGde.Caption = Sheets("rec_Acet").Range("k" & qastrow)
EntTqGde = Format(EntTqGde, "#,##0.00")
Else
EntTqGde = "0,00"
End If

Antes de postar, para que o pessoal possa ajudar você tem de fornecer informações mais precisas, e se for o caso anexar um modelo reduzido, compactado (.rar, .zip..) conforme as regras do forum, por exemplo :
Estou tentando utilizar este comando porem não da o retorno necessario Qual o retorno é esperado ?
If Dt1 = Data Then - de onde vem a data referente a variavel Dt1 ? Como estamos lidando com Data, que tipo foi Declarada esta Variável ? conforme for tem de formatar a Variável para ter o retorno como Data, algo como : Format(Dt1,"dd/mm/yyyy")
Me.EntTqGde.Caption = Sheets("rec_Acet").Range("k" & qastrow) - Que tipo de controle é EntTqGde, e a variável qastrow como a mesma é alimentada ?

[]s