Userform tarih karakteri hk.

[celikomerh]

Selamlar,
Öncelikle depremden dolayı ülkemize çok çok geçmiş olsun..
Userform'da şöyle bi sorunum var;

Userform'da listeleme yapmak için kullandığım textbox var içine tarih yazıyorum.
aşağıdaki kod ile de excel hücresine yazdırıyorum.
tarih kriterine göre listelemek istediğimde tarih bölümüne bu şekil yazdırıyo =">=15.09.2206"

böyle oluncada listeleme yapmıyor. yardımlarınızı rica ederim.

If IsDate(TbBaşTrh) = True And TbBaşTrh <> "" Then
wsExtre.Range("A2") = "=" & Chr$(34) & ">=" & CDate(CDbl(TbBaşTrh)) & Chr$(34)
Else
wsExtre.Range("A2") = "=" & Chr$(34) & ">=1" & Chr$(34)
End If

 

[Muzaffer Ali]

Merhaba.

    If IsDate(TbBaşTrh) = True And TbBaşTrh <> "" Then
        wsExtre.Range("A2") = CDate(CDbl(TbBaşTrh))
    Else
        wsExtre.Range("A2") = "=" & Chr$(34) & ">=1" & Chr$(34)
    End If

 

[celikomerh]

Merhaba.

Teşekkürler..

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.