Named Ranges

[bailey537]

Hi

Is there a way to define a named range from a selection of cells that begin with a particular letter e.g. X from A1:A1000?

Cheers

 

[Weaver]

You could perhaps go through the cells, finding each one that began with X and combine them using union in VB, but it could wind up being too complex a definition. What is is you're trying to achieve?

 

[bailey537]

I have a list of codes and i want to basicly determine how many begin with X quickly. As it is a big list I don't want to loop through them all. I also need to know their locations within the list

 

[Weaver]

Wouldn't filtering the list achieve this? You could use a countif if you just wanted a count

=COUNTIF(A:A,"X*")

or if you really want to create the range:

Sub ComplexRange()
    Dim complexRng As Range, rng As Range, rStr As String
    Set rng = Columns(1).Find(what:="X*", lookat:=xlWhole)
    If Not rng Is Nothing Then
        rStr = rng.Address
        Do
            If complexRng Is Nothing Then
                Set complexRng = rng
            Else
                Set complexRng = Union(complexRng, rng)
            End If
            Set rng = Columns(1).FindNext(rng)
        Loop While rng.Address <> rStr
    End If
    complexRng.Select
End Sub

 

[Weaver]

actually, change

 complexRng.select

to

complexRng.Name = "myComplexRange"

If you want to actually name the range

 

[bailey537]

cheers for your help. I went with your first idea about the filtering and then naming the range with the visible cells. Do you know how to find the length of the range once this is generated?

 

[Weaver]

you could try counting the cells using .cells.count

msgbox range("myComplexRange").cells.count

or maybe

msgbox range("myComplexRange").rows.count