Bucle "mientras no..."

Cuando el calendario está incrustado en una celda, el código no se detiene
al mostrar el calendario.

Prueba poniendo el calendario en un formulario del editor de VBA y un código
similar a:

En un módulo ordinario:
Sub muestraForm()
UserForm1.Show
End Sub

En el módulo del formulario:
Private Sub Calendar1_Click()
[A1] = DateSerial(Calendar1.Year, Calendar1.Month, Calendar1.Day)
UserForm1.Hide
End Sub

Saludos desde Tenerife (España).
***********************************************

"Paketemetes" escribió en el mensaje
news:
Hola a Todos:

Dentro de una macro debe el usuario seleccionar una fecha de un
control calendario. No debe seguir hasta que se ha hecho click
seleccionando una fecha. He probado con "While...wend" pero observo en
el editor de VBA que figura que sigue ejecutándose hasta que
manualmente le doy al stop. ¿Por qué es así y como puedo solucionarlo?
Gracias

modif = 0
Sheets("Datos").Calendar1.Visible = True
While modif = 0
DoEvents
Wend
Cells(2, 23) = fechac

On 9 abr, 20:54, "AnSanVal"
wrote:

Cuando el calendario está incrustado en una celda, el código no se detiene
al mostrar el calendario.

Prueba poniendo el calendario en un formulario del editor de VBA y un código
similar a:

En un módulo ordinario:
Sub muestraForm()
UserForm1.Show
End Sub

En el módulo del formulario:
Private Sub Calendar1_Click()
[A1] = DateSerial(Calendar1.Year, Calendar1.Month, Calendar1.Day)
UserForm1.Hide
End Sub

Saludos desde Tenerife (España).
***********************************************

"Paketemetes" escribió en el mensajenews:
Hola a Todos:

Dentro de una macro debe el usuario seleccionar una fecha de un
control calendario. No debe seguir hasta que se ha hecho click
seleccionando una fecha. He probado con "While...wend" pero observo en
el editor de VBA que figura que sigue ejecutándose hasta que
manualmente le doy al stop. ¿Por qué es así y como puedo solucionarlo?
Gracias

modif = 0
Sheets("Datos").Calendar1.Visible = True
While modif = 0
DoEvents
Wend
Cells(2, 23) = fechac

Gracias pero ya lo había intentado así y el problema era (y es) que no
sabía como insertar el calendario en un formulario.
Lo he resuelto de todas maneras: el problema era que la variable modif
no la había declarado pública.