Luis Mondelo

Fui yo el que te dije hacerlo así. A esa macro falta ponerle su contenido, por ejemplo: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) range("a1").select End Sub Por ejemplo al salir del userform le estamos diciendo que se...

Eduardo ya te he añadido el msgbox. Lo tienes en el otro mensaje Recuerda finalizar las consultas

La macro que te he enviado es imposible que falle, te explico: Está preparada para analizar el rango comprendido entre la celda A2 y la última celda con datos de la columna A, por lo que es imposible que se vaya hasta la fila 65000.

Mándame el archivo con los datos y un ejemplo hecho a mano de lo que quieres para poder ayudarte mejor. [email protected]

Te mando mi solución, ejecuta esta macro y todo solucionado. Sub ejemplo() 'por luismondelo For Each celda In Range("a2:a" & Range("a65000").End(xlUp).Row) If celda.Interior.ColorIndex = 6 Then Total = Total + 1 lista = lista & "," &...

Utiliza esta macro al pulsar un botón Private Sub CommandButton1_Click() TextBox1.Value = Application.WorksheetFunction.RandBetween(1, 50) End Sub no olvides finalizar la consulta

En el siguiente enlace te dejo un vídeo para explicarte como hacerlo http://share.cx.com/xvvk56 No olvides finalizar la consulta

Mándame el archivo con los datos para poder ayudarte [email protected] Recuerda decirme en el mail la pregunta de todoexpertos.

Francamente no tengo tiempo de analizar tu código. Prefiero que me mandes un excel con un supuesto explicado para resolver y yo te lo mando construido. Mándame solo un ejemplo: [email protected]

Mándame el archivo y te lo dejo configurado [email protected]