** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Controlar rango seleccionado.
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoControlar rango seleccionado.

 Responder Responder
Autor
Mensaje
paiwoked Ver desplegable
Habitual
Habitual


Unido: 07/Abril/2008
Estado: Sin conexión
Puntos: 107
Enlace directo a este mensaje Tema: Controlar rango seleccionado.
    Enviado: 15/Diciembre/2009 a las 10:15
Buenos Y helados dias.
 
quiero hacer que cuando se seleccione en una tablas mas de siete "FILAS" (ahora paso a explicar lo de las FILAS) me aparezca un msgbox y se detenga la operacion.
 
Lo de las "FILAS" es porque no se seleccionan lineas enteras sino celdas en vertical por ejemplo se selecciona el rango A11:G25, este tiene 15 filas y siete columnas.
 
Lo que quiero es cuando se seleccione de esta manera mas de 7 filas de un msgbox y se detenga la macro.
 
He intentado con:
 
If selecion.rows > 7 Then
Msgbox(" HA SELECCIONADO MAS DE 7 FILAS")
End
End if
 
Pero esta mal, o no funciona.
 
Gracias y Abrigüense
Arriba
luisg Ver desplegable
Nuevo
Nuevo


Unido: 03/Agosto/2009
Estado: Sin conexión
Puntos: 0
Enlace directo a este mensaje Enviado: 15/Diciembre/2009 a las 11:02
Hola,

creo que te falta .count, sería seletion.rows.count y te devuelve el número de filas.

Saludos.
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5511
Enlace directo a este mensaje Enviado: 15/Diciembre/2009 a las 11:24

Prueba en el módulo de la hoja con:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Selection.Rows.Count > 7 Then
    MsgBox (" HA SELECCIONADO MAS DE 7 FILAS")
    ActiveCell.Select
  End If
End Sub

 
 
 
 
Editado para corregir código.


Editado por AnSanVal - 15/Diciembre/2009 a las 11:39
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
paiwoked Ver desplegable
Habitual
Habitual


Unido: 07/Abril/2008
Estado: Sin conexión
Puntos: 107
Enlace directo a este mensaje Enviado: 15/Diciembre/2009 a las 11:57
Gracias chicos.
 
Me quede con:
 
If Selection.Rows.Count > 7 Then
MsgBox ("ERROR USTEAD HA SELECCIONADO MAS DE SIETE LINEAS, REALICE UNA SELECCION MENOR Y PRUEBE DE NUEVO")
End
End If
 
La propuesta de AnSanVal es valida y de hecho me ha servido para otro archivo, pero no para este puesto que la macro en la que he metido este codigo, esta precedida de otra macro que selecciona mas de 7 filas, y al colocar el codigo en el modulo de la hoja, no me deja seleccionar de ninguna manera mas de siete filas.
 
Gracias a los dos.
 
Solucionado
 
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable