Seleccionar un celdas específicas en desorden.
Buenos días.
Supongamos que tenemos un arreglo de celdas de la siguiente forma (Cada corchete será una celda y los puntos suspensivos son continuación):
[Carlos] [Julián] [ ] [Daniel]...
[Carlos] [César] [Tomás] [ ]...
.
.
.
[Sandra] [Ernesto] [Carlos]...
Necesito un macro que, desde esa matriz, me seleccione sólo las celdas que tengan un cierto nombre, digamos, Carlos.
¿Cómo podría hacerlo?
Supongamos que tenemos un arreglo de celdas de la siguiente forma (Cada corchete será una celda y los puntos suspensivos son continuación):
[Carlos] [Julián] [ ] [Daniel]...
[Carlos] [César] [Tomás] [ ]...
.
.
.
[Sandra] [Ernesto] [Carlos]...
Necesito un macro que, desde esa matriz, me seleccione sólo las celdas que tengan un cierto nombre, digamos, Carlos.
¿Cómo podría hacerlo?
1 respuesta
Respuesta de Claudia Castellano
1
A ver, dos opciones.
Digamos que siempre quiero seleccionar el mismo nombre... Y la otra sería, escribiendo el nombre que quiero seleccionar en una celda aparte.
¿Cómo se haría?
Digamos que siempre quiero seleccionar el mismo nombre... Y la otra sería, escribiendo el nombre que quiero seleccionar en una celda aparte.
¿Cómo se haría?
Sigue los siguientes pasos:
1. Haz clic con botón derecho sobre el nombre de la hoja en la que quieres que se ejecute la macro
2. Ver código
3. Copia el siguiente código
Sub Find_All()
Dim FindRange As Range, c As Range
Dim FirstAddress As String
With ActiveSheet.UsedRange
Set c = .Find(Range("E1").Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
If FindRange Is Nothing Then
Set FindRange = c
Else
Set FindRange = Union(FindRange, c)
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With
If Not FindRange Is Nothing Then
FindRange.Select
End If
End Sub
Este código selecciona el valor que hayas introducido en la celda E1. Si lo vas a introducir en otra celda has de modificar E1 por la celda que quieras.
Si quieres introducirlo mediante un cuadro de diálogo, sustituye Range("E1"). Value por InputBox("Introduzca un nombre")
Si lo que quieres es que siempre seleccione Carlos, sustituye Range("E1").Value por "Carlos"
Un saludo
Claudia Castellano
Colaboradora de www.5incoaprendices.com
1. Haz clic con botón derecho sobre el nombre de la hoja en la que quieres que se ejecute la macro
2. Ver código
3. Copia el siguiente código
Sub Find_All()
Dim FindRange As Range, c As Range
Dim FirstAddress As String
With ActiveSheet.UsedRange
Set c = .Find(Range("E1").Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
If FindRange Is Nothing Then
Set FindRange = c
Else
Set FindRange = Union(FindRange, c)
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With
If Not FindRange Is Nothing Then
FindRange.Select
End If
End Sub
Este código selecciona el valor que hayas introducido en la celda E1. Si lo vas a introducir en otra celda has de modificar E1 por la celda que quieras.
Si quieres introducirlo mediante un cuadro de diálogo, sustituye Range("E1"). Value por InputBox("Introduzca un nombre")
Si lo que quieres es que siempre seleccione Carlos, sustituye Range("E1").Value por "Carlos"
Un saludo
Claudia Castellano
Colaboradora de www.5incoaprendices.com
