title: Excel vba convert cell value in dd/mm/yyyy
body: <p>I have a problem with date value in excel using vba.
  I mae a userform that inseret date and other data. When i push the button it insert the date into a cell in a sheet. My problem is that when it copy the date in the textbox it copy it in mm/dd/yyyy instead of dd/mm/yyyy.</p>
  
  <p>Here is the code:</p>
  
  <pre><code>Private Sub ins_stampa_btn_Click()
  
  ' FUNZIONALITA' EVENTO BOTTONE "INSERISCI IN STAMPA" DI INSERIMENTO PER LA STAMPA DELLE SPEDIZIONI
  ' PER DATA, FORNITORE, CORRIERE E MERCE
  
  ' CONTROLLO SE IL TEXTBOX DATA E' VUOTO O NON E' UNA DATA
  If data_arr_txt = "" Or Not IsDate(data_arr_txt) Then
      MsgBox ("Inserire una Data di Spedizione valida")
      Exit Sub
  End If
  
  ' CONTROLLO SE IL TEXTBOX DATA E' UNA DATA CONVERTIRLO IN FORMATO ITALIANO
  If IsDate(data_arr_txt.Value) Then
  
      data_arr_txt.Value = Format(data_arr_txt.Value, "dd/mm/yyyy")
  End If
  
  MsgBox (data_arr_txt.Value)
  lastAddress = lastCell("ORDINI SPEDITI", "A") ' ULTIMA CELLA PIENA DELLA COLONNA A
  
  ' COPIA DEI DATI INSERITI NELLA FORM STAMPASPED NEL FOGLIO STAMPA SPEDIZIONI
  Sheets("STAMPA SPEDIZIONI").Range("C1048576").End(xlUp).Offset(1, -2).Value = Format(CDate(data_arr_txt.Value), "dd/mm/yyyy")
  Sheets("STAMPA SPEDIZIONI").Range("C1048576").End(xlUp).Offset(1, -2).NumberFormat = "dd/mm/yyyy"
  Sheets("STAMPA SPEDIZIONI").Range("C1048576").End(xlUp).Offset(1, -2).Interior.color = RGB(255, 255, 0)
  
  Sheets("STAMPA SPEDIZIONI").Range("C1048576").End(xlUp).Offset(1, -1).Value = fornitore_cbx.Value
  Sheets("STAMPA SPEDIZIONI").Range("C1048576").End(xlUp).Offset(1, -1).Interior.color = RGB(255, 255, 0)
  
  Sheets("STAMPA SPEDIZIONI").Range("C1048576").End(xlUp).Offset(2, -1).Value = corriere_txt.Value
  Sheets("STAMPA SPEDIZIONI").Range("C1048576").End(xlUp).Offset(2, -1).Interior.color = RGB(255, 255, 0)
  
  Sheets("STAMPA SPEDIZIONI").Range("C1048576").End(xlUp).Offset(3, -1).Value = merce_txt.Value
  Sheets("STAMPA SPEDIZIONI").Range("C1048576").End(xlUp).Offset(3, -1).Interior.color = RGB(255, 255, 0)
  </code></pre>
  
  <p>In another sheet i made a similar userform and it copy the date as i want.
  Could you help me?</p>
  
  <p>Thank you</p>