Convertir fecha en cadena de caracteres

[Pirtrafilla]

Buenos días a todos. Necesito convertir una celda donde tengo una fecha en una cadena de caracteres. El problema es no quiero que elimine los 0 a la izquierda. Por ejemplo 01/07/2022 debería convertirse a 20220701, sin embargo solo consigo que se convierta en 202271. Este es el código simpe que he puesto y que luego lo he de adaptar con bucles y demás.

La fecha la tengo en la celda B1 y he de convertirla  en la celda B2

Sub fecha_inicio()

anyo = Year(Sheets("Repsol").Range("B1"))
mes = Month(Sheets("Repsol").Range("B1"))
dia = Day(Sheets("Repsol").Range("B1"))

Sheets("Repsol").Range("B2") = anyo & mes & dia

End Sub

Gracias.

[Gerson Pineda]

Hola

Prueba así:

mifecha = VBA.Format(Sheets("Repsol").Range("B1"), "yyyymmdd")

 

[Pirtrafilla]

Hace 28 minutos , Gerson Pineda dijo:

Hola

Prueba así:

mifecha = VBA.Format(Sheets("Repsol").Range("B1"), "yyyymmdd")

 

@Gerson Pineda, gracias. Era lo que necesitaba.

He adaptado el código a mi programa.

Sub periodo_inicio()

With Sheets("Repsol")
  anyo = Year(.Range("B1"))
  mes = Month(.Range("B1"))
  dia = Day(.Range("B1"))
  
  mifecha = VBA.Format(.Range("B1"), "yyyymmdd")
 .Range("B2") = mifecha
End With

End Sub

 

[Antoni]

También:

Sub fecha_inicio()

anyo = Year(Sheets("Repsol").Range("B1"))
mes = Format(Month(Sheets("Repsol").Range("B1")), "00")
dia = Format(Day(Sheets("Repsol").Range("B1")), "00")

Sheets("Repsol").Range("B2") = anyo & mes & dia

End Sub

 

[Pirtrafilla]

Hace 57 minutos , Antoni dijo:

También:

Sub fecha_inicio()

anyo = Year(Sheets("Repsol").Range("B1"))
mes = Format(Month(Sheets("Repsol").Range("B1")), "00")
dia = Format(Day(Sheets("Repsol").Range("B1")), "00")

Sheets("Repsol").Range("B2") = anyo & mes & dia

End Sub

 

Gracias @Antonio.