Boa tarde!!

Poste seu arquivo modelo para o pessoal possa ajuda-lo!

Att

Segue o código... O problemas está em 'preenche a 1ª com a data, mas não consigo inverter a data.

'cria varíavel para contagem da linha a ser preenchida
Dim Nlin As Integer
'cria uma variável para contar as linhas da listbox
Dim Cont As Integer

'limpa a região com dados anteriores
Worksheets("transferido").Range("A1:D1000").ClearContents

'linha inicial da planilha que carregará os dados
Nlin = 1
'preenche a 1ª com a data
'Worksheets("transferido").Range("A" & Nlin) = Me.lst_busca.List(Cont, 0)
Sheets("transferido").Range("A1") = Pesquisa.ComboBox1.Value
Sheets("transferido").Range("D1") = Pesquisa.ComboBox2.Value

'preenche as outras linhas até o fim da listbox
For Cont = 0 To Me.lst_busca.ListCount - 1
Worksheets("transferido").Range("A" & Nlin + 1) = Me.lst_busca.List(Cont, 1)
Worksheets("transferido").Range("B" & Nlin + 1) = Me.lst_busca.List(Cont, 2)
Worksheets("transferido").Range("C" & Nlin + 1) = Me.lst_busca.List(Cont, 3)
Worksheets("transferido").Range("D" & Nlin + 1) = Me.lst_busca.List(Cont, 4)
Nlin = Nlin + 1
Next

'Aviso quando pronto
MsgBox "Transferência concluida!", vbInformation, "Aviso!!!"

Eu nãoi sei a que se refere a Variável "pesquisa", mas tente se assim da certo :

Como citou os ComboBox, acredito quesão estas linhas, então altere conforme abaixo :

Sheets("transferido").Range("A1") = CDate(Format(Pesquisa.ComboBox1.Value, "dd/mm/yyyy"))
Sheets("transferido").Range("D1") = CDate(Format(Pesquisa.ComboBox2.Value, "dd/mm/yyyy"))

Se realizar Busca no Forum pela expressão "Data Invertida", encontrara vários tópicos sobre o assunto.

[]s

Obrigdo Mauro Coutinho, problema resolvido...

Boa tarde pessoal, preciso de ajuda, tenho um formulário onde tem duas combobox com data, quando selecionado a data ele envia essas datas para uma planilha, só que quando ele cola a data veem formato americano mm/dd/aaaa, gostaria de deixar no nosso padrão dd/mm/aaaa.

obrigado pela atenção.