Reinaldo Reinaldo, aparentemente deu certo. No entanto o 'cDate' não aceita 'txt' vazios. Private Sub cmdadc_Click() Dim rang As Range Set rang = ...

Reinaldo Seguem as IMAGENS, acho que agora da pra ver: Fiz essa verificação sobre o formato das células, e ambas estão como DATA. O estranho é qu...