Excel - Cambiar fecha dd/mm/yyyy

 
Vista:

Cambiar fecha dd/mm/yyyy

Publicado por Mauricio Bocanegra (2 intervenciones) el 10/03/2020 14:50:02
1
2
3
4
5
6
7
8
9
10
11
12
13
Sheets("ENTRADAS").Select
 
Range("A7").EntireRow.Insert
 
Range("A7") = fecha.Value
Range("B7") = codigo.Value
Range("D7") = cantidad.Value
 
MsgBox ("DATOS COMPLETOS")
 
fecha = Empty
codigo = Empty
cantidad = Empty


------- me gustaria que en la celda "A7" su formato sea dd/mm/yyyy, ya que al ingresar el dato 07/12/19 en la celda "A7" me aparece el siguiente 12/07/2019 -------------
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.796
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cambiar fecha dd/mm/yyyy

Publicado por Andres Leonardo (1405 intervenciones) el 10/03/2020 15:05:16
pon formato personalizado en la celda
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Cambiar fecha dd/mm/yyyy

Publicado por Mauricio Bocanegra (2 intervenciones) el 10/03/2020 15:19:54
no me funciono, el personalizar la celda

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub CommandButton1_Click()
 
If fecha.Text = Empty Or codigo.Text = Empty Or cantidad.Text = Empty Then
MsgBox ("FALTA COMPLETAR DATOS")
Exit Sub
 
End If
 
 
Sheets("ENTRADAS").Select
 
Range("A7").EntireRow.Insert
 
Range("A7") = fecha.Value
Range("B7") = codigo.Value
Range("D7") = cantidad.Value
 
MsgBox ("DATOS COMPLETOS")
 
fecha = Empty
codigo = Empty
cantidad = Empty
 
End Sub
 
Private Sub fecha_Change()
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 4.146
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cambiar fecha dd/mm/yyyy

Publicado por Antoni Masana (1456 intervenciones) el 10/03/2020 17:26:14
Prueba esto:

1
2
3
4
5
6
7
Sub bb()
    Dim Fecha As Date
    Fecha = "31/12/19"
    Cells(5, 4) = Fecha
    Cells(5, 4).Select
    Selection.NumberFormat = "dd/mm/yyyy"
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar