Buenas, tengo el siguiente problema, una vez genero la fecha d, los valores que extraigo son erróneos y me sale por defecto en año = 1905, mes = 01(enero) y día = 29, cuando obviamente no estamos a esa fecha. No he encontrado la solución por ningún sitio, y estoy un poco verde en esto, si alguien me puede echar una mano lo agradecería! Saludos
Private Sub ComboBox4_Change()
'Se utiliza para poder generar un numero de oferta
Range("B3").Select
Selection.End(xlDown).Select
seleccion = ActiveCell.Row
d = Date
y = Format(Year(d), "yyyy")
m = Format(Month(d), "mm")
dia = Format(Day(d), "dd")
Select Case ComboBox4
Case "Material"
'Generar # oferta de material
Dim mat As String
mat = "C16/" & dia & m
Cells(seleccion, 3) = mat
Case "Proyecto"
'Generar # oferta de proyecto
Dim proy As String
proy = "16/" & dia & m
Cells(seleccion, 3) = proy
End Select
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas, tengo el siguiente problema, una vez genero la fecha d, los valores que extraigo son erróneos y me sale por defecto en año = 1905, mes = 01(enero) y día = 29, cuando obviamente no estamos a esa fecha. No he encontrado la solución por ningún sitio, y estoy un poco verde en esto, si alguien me puede echar una mano lo agradecería! Saludos
Private Sub ComboBox4_Change()
'Se utiliza para poder generar un numero de oferta
Range("B3").Select
Selection.End(xlDown).Select
seleccion = ActiveCell.Row
d = Date
y = Format(Year(d), "yyyy")
m = Format(Month(d), "mm")
dia = Format(Day(d), "dd")
Select Case ComboBox4
Case "Material"
'Generar # oferta de material
Dim mat As String
mat = "C16/" & dia & m
Cells(seleccion, 3) = mat
Case "Proyecto"
'Generar # oferta de proyecto
Dim proy As String
proy = "16/" & dia & m
Cells(seleccion, 3) = proy
End Select
End Sub