Como poner el primer año de una lista en un textbox
Tengo que poner el año mas bajo de una lista en el textbox1 y así poniendo +1, +2 etc en los otros textbox los puedo llenar, la cosa es que no se que año es el primero cuando ponga el formulario en la aplicación correspondiente, de momento he intentado lo siguiente
Private Sub UserForm_Initialize()
año As Date
For x = 5 To Range("A" & Rows.Count).End(xlUp).Row
año = Year < (Range("A" & x)) 'lo he puesto asi pero no funciona
Textbox1 = año
Textbox2 = Textbox1 + 1
TextBox3 = Textbox1 + 2
TextBox4 = Textbox1 + 3
TextBox5 = Textbox1 + 4
TextBox6 = Textbox1 + 5
TextBox7 = Textbox1 + 6
Next
End Sub
Sale el error "la instrucción no es valida fuera del bloque Type
1 respuesta
Respuesta de Dante Amor
1
Prueba lo siguiente:
Private Sub UserForm_Initialize()
Dim año As Long
Dim c As Range
'
año = 9999
'
For Each c In Range("A5", Range("A" & Rows.Count).End(3))
If c.Value <> "" And IsDate(c.Value) Then
If Year(c.Value) < año Then
año = Year(c.Value)
End If
End If
Next
'
If año < 9999 Then
TextBox1 = año
TextBox2 = año + 1
TextBox3 = año + 2
TextBox4 = año + 3
TextBox5 = año + 4
TextBox6 = año + 5
TextBox7 = año + 6
End If
End Sub
Dante Amor, te envíe un correo para realizarte una solicitud, quedo atento a tus comentarios. - Cartagena Lopez