Visual Basic para Aplicaciones - discriminar celdas

Life is soft - evento anual de software empresarial
   
Vista:

discriminar celdas

Publicado por JOSÉ ANTONIO (4 intervenciones) el 30/10/2009 08:17:08
Hola a todos. Estoy haciendo una macro para que realice una serie de tareas pero sólo en un rango de celdas determinado y ahí está el problema. No sé como discriminar las celdas seleccionadas. Me he quedado en el if, he intentado con Selection.range pero nada de nada, el compilador además me dice que uso una variable indebidamente.
Además de todo esto me da problemas el Excel y me deshabilita las macros que yo he creado, no hay ningún certificado y sólo funciona con nivel bajo de seguridad.
Gracias de antemano.
José Antonio
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:discriminar celdas

Publicado por JuanC (431 intervenciones) el 30/10/2009 11:30:31
y cuáles son las condiciones para discriminar celdas?
podrías publicar lo ya hecho y explicar un poco más lo que necesitás?

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:discriminar celdas

Publicado por JOSÉ ANTONIO (4 intervenciones) el 30/10/2009 11:40:48
Es muy sencilla, lo único que hace es eliminar una celda, pero quiero que solo se permita el borrado en un rango de una columna específica, concretamente en J2:J50. Supongo que "is" no significa incluido, escribí lo siguiente a ver si acertaba, pero se ve que está mal.

Private Sub borrarDescripcion_Click()
#If Selection.Range. Is Range("j2:j50") Then

#Else
Selection.Delete Shift:=xlUp
#End If
End Sub

Gracias por vuestra ayuda.

P.D. y si podéis contadme algo acerca de como habilitar mis macros.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

RE:discriminar celdas

Publicado por JuanC (431 intervenciones) el 30/10/2009 12:45:50
eliminá los caracteres # de la esctructura If...End If

Private Sub borrarDescripcion_Click()
If Intersect(Selection, Range("j2:j50")) Is Nothing Then
MsgBox "no borrar"
Else
Selection.Delete Shift:=xlUp
End If
End Sub

respecto a la habilitación de macros, trabajas en 2007 o anterior?
en 2007 el archivo debe guardarse con extensión xlsm
en otras versiones no deberías tener problemas si bajaste el nivel
de seguridad... también podrías revisar algún antivirus...

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:discriminar celdas

Publicado por JOSÉ ANTONIO (4 intervenciones) el 30/10/2009 14:19:43
Muchas gracias JuanC, me has evitado mucho tiempo de seguir investigando sin resultado por manuales y webs. Funciona perfectamente.
Soy un verdadero inútil en esto pero si algo puedo hacer para ayudarte aquí me encontrarás: macarro1@hotmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar