Definir nombre con condiciones

Pienso que la forma más rápida de hacerlo es usando VBA:

Sub prueba()
With Worksheets("Hoja1")
.Columns(1).AutoFilter Field:=1, Criteria1:="a" 'Poner el criterio que se necesite
Names.Add Name:="prueba", RefersTo:=.Range("A1:A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
.Columns(1).AutoFilter
End With
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Lorenzo" escribió en el mensaje news:

Hola amigos.

Tengo la necesidad de definir un nombre (para hacer referencia a un conjunto
de celdas) añadiendo al mismo solo las filas que tengan un determinado
contenido en la columna A. No se si es posible, pero se que si es posible
hay suficiente nivel en este foro como para que lo averiguemos.

Gracias a todos por vuestra ayuda.-

Lorenzo / Malaga / España

Fernando, muchisimas gracias. Por favor, has visto el otro post en
referencia a la actualizacion de los datos de un listbox ????

Gracias, mil gracias !!!!

"Fernando Arroyo" escribió en el mensaje
news:
Pienso que la forma más rápida de hacerlo es usando VBA:

Sub prueba()
With Worksheets("Hoja1")
.Columns(1).AutoFilter Field:=1, Criteria1:="a" 'Poner el criterio
que se necesite
Names.Add Name:="prueba", RefersTo:=.Range("A1:A" &
.Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
.Columns(1).AutoFilter
End With
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Lorenzo" escribió en el mensaje
news:

Hola amigos.

Tengo la necesidad de definir un nombre (para hacer referencia a un

conjunto

de celdas) añadiendo al mismo solo las filas que tengan un determinado
contenido en la columna A. No se si es posible, pero se que si es posible
hay suficiente nivel en este foro como para que lo averiguemos.

Gracias a todos por vuestra ayuda.-

Lorenzo / Malaga / España

Buenas, Fernando

Lo siento, pero no me funciona el ejemplo .

He probado a dejar solo :
Names.Add Name:="prueba", RefersTo:=.Range("A1:A" &
.Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
... ya que me interesa que dando a un boton se cree el nombre "prueba" solo
con las filas visibles, es decir, una vez que haya activado los filtros
correspondientes a mano.
¿Lo puedes revisar a ver donde puede estar el problema?
Gracias mil



"Lorenzo" escribió en el mensaje
news:%

Fernando, muchisimas gracias. Por favor, has visto el otro post en
referencia a la actualizacion de los datos de un listbox ????

Gracias, mil gracias !!!!

"Fernando Arroyo" escribió en el mensaje
news:
Pienso que la forma más rápida de hacerlo es usando VBA:

Sub prueba()
With Worksheets("Hoja1")
.Columns(1).AutoFilter Field:=1, Criteria1:="a" 'Poner el criterio
que se necesite
Names.Add Name:="prueba", RefersTo:=.Range("A1:A" &
.Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
.Columns(1).AutoFilter
End With
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Lorenzo" escribió en el mensaje
news:
> Hola amigos.
>
> Tengo la necesidad de definir un nombre (para hacer referencia a un
conjunto
> de celdas) añadiendo al mismo solo las filas que tengan un determinado
> contenido en la columna A. No se si es posible, pero se que si es

posible

> hay suficiente nivel en este foro como para que lo averiguemos.
>
> Gracias a todos por vuestra ayuda.-
>
> Lorenzo / Malaga / España
>
>

Claro, es imposible que te funcione sólo esta instrucción porque, tal como está escrita, necesita estar dentro de un bloque With...End With. Por ejemplo:

With ActiveSheet
Instrucción
End With

para que el nombre se cree con las celdas visibles de la columna A de la hoja activa en el momento de ejecutar el código.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Lorenzo" escribió en el mensaje news:

Buenas, Fernando

Lo siento, pero no me funciona el ejemplo .

He probado a dejar solo :
Names.Add Name:="prueba", RefersTo:=.Range("A1:A" &
.Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
... ya que me interesa que dando a un boton se cree el nombre "prueba" solo
con las filas visibles, es decir, una vez que haya activado los filtros
correspondientes a mano.
¿Lo puedes revisar a ver donde puede estar el problema?
Gracias mil



"Lorenzo" escribió en el mensaje