Calendario textbox
Hola, espero me puedan ayudar... Estoy usando macros en excel y tengo un formulario con varios textbox en las cuales tengo que agregar fechas desde un calendario, me valí de un ejemplo de internet ( http://www.ozgrid.com/VBA/excel-calendar-dates.htm ) usando el objeto calendar en otro form y lo adapté para que este se llene en el primer textbox de otro form el cual resulta muy bien, hice algo así:
Private Sub Calendar1_Click()
UserForm2.TextBox1.Text = Calendar1.Value
Unload Me
End Sub
pero ahora mi pregunta es: como puedo hacer para que los datos ingresen a los demas textbox? Es decir que ingrese la fecha al textbox dependiendo de la casilla donde se hizo doble clik?
Agradezco me puedan ayudar con esto...
Gracias
Darwin Aguilar
Mi correo: [email protected]
Private Sub Calendar1_Click()
UserForm2.TextBox1.Text = Calendar1.Value
Unload Me
End Sub
pero ahora mi pregunta es: como puedo hacer para que los datos ingresen a los demas textbox? Es decir que ingrese la fecha al textbox dependiendo de la casilla donde se hizo doble clik?
Agradezco me puedan ayudar con esto...
Gracias
Darwin Aguilar
Mi correo: [email protected]
1 Respuesta
Respuesta de arico19
1
Si, por ejemplo, la fecha la tienes en la posición A1 este código te valdría:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Row = 1 And ActiveCell.Column = 1 Then
UserForm2.TextBox2.Text = ActiveCell.Value
End If
UserForm2.Show
End Sub
Si está en otra celda tienes que cambiar en activecell.row = 1, el 1 por la fila en que esté la celda y en activecell.column = 1, el 1 por la columna en que esté (siendo A el 1, B la columna 2, etc)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Row = 1 And ActiveCell.Column = 1 Then
UserForm2.TextBox2.Text = ActiveCell.Value
End If
UserForm2.Show
End Sub
Si está en otra celda tienes que cambiar en activecell.row = 1, el 1 por la fila en que esté la celda y en activecell.column = 1, el 1 por la columna en que esté (siendo A el 1, B la columna 2, etc)
