FORMULARIO ESTA ENVIANDO A DATA ERRADO PARA A PLAN

RAMONLUCENA0 06/09/2012 15:20:11
#409270

Criei o seguinte:

Private Sub CommandButton1_Click()

Dim ultimalinha As Object

Set ultimalinha = Plan1.Range([Ô]B6556[Ô]).End(xlUp)

ultimalinha.Offset(1, 0).Value = TextBox1.Text
ultimalinha.Offset(1, 1).Value = TextBox2.Text
ultimalinha.Offset(1, 3).Value = TextBox4.Text
ultimalinha.Offset(1, 4).Value = TextBox5.Text
ultimalinha.Offset(1, 5).Value = TextBox6.Text
ultimalinha.Offset(1, 6).Value = TextBox7.Text
ultimalinha.Offset(1, 7).Value = TextBox8.Text
ultimalinha.Offset(1, 8).Value = TextBox9.Text
ultimalinha.Offset(1, 9).Value = TextBox10.Text
ultimalinha.Offset(1, 10).Value = TextBox11.Text
ultimalinha.Offset(1, 11).Value = TextBox12.Text
ultimalinha.Offset(1, 12).Value = TextBox13.Text
ultimalinha.Offset(1, 13).Value = TextBox14.Text
ultimalinha.Offset(1, 14).Value = TextBox15.Text
ultimalinha.Offset(1, 15).Value = TextBox16.Text

MsgBox [Ô]Registro Inserido[Ô], 6, [Ô]GIGABAT[Ô]

resposta = MsgBox([Ô]Deseja Inserir outro registro[Ô], 36, [Ô]GIGABAT[Ô])

If resposta = vbYes Then
TextBox1.Text = [Ô][Ô]
TextBox2.Text = [Ô][Ô]
TextBox4.Text = [Ô][Ô]
TextBox5.Text = [Ô][Ô]
TextBox6.Text = [Ô][Ô]
TextBox7.Text = [Ô][Ô]
TextBox8.Text = [Ô][Ô]
TextBox9.Text = [Ô][Ô]
TextBox10.Text = [Ô][Ô]
TextBox11.Text = [Ô][Ô]
TextBox12.Text = [Ô][Ô]
TextBox13.Text = [Ô][Ô]
TextBox14.Text = [Ô][Ô]
TextBox15.Text = [Ô][Ô]
TextBox16.Text = [Ô][Ô]

TextBox1.SetFocus


Else

Unload Me
Sheets([Ô]Fat2012[Ô]).Select

End If



End Sub


só que quando o formulario vai enviar as informações para a plan o Mês muda com o dia, por exemplo digito: 06/09/2012, na plan aparece 09/06/2012, como faço para corrigir esse erro.

è minha primeira postagem desculpa alguma coisa aew!