Selecting Like Names {RESOLVED}Thanks Mark

[brettvba]

I have a table like
Tea Coffee Total
Tecpak two
Tecpak two
Tecpak two
Tecpak two
Tecpak two
Tecpak two
Tecpak two
Tecpak two
Tecpak two
Tecpak two
Tecpak two Total

what i am doing is selecting a name on one sheet as a variable such as Tecpak two Total

how do I then select all of the other rows with Tecpak two but not select Tea Coffee Total

Anyone have any ideas the variable will change??


_________________


[ This Message was edited by: brettvba on 2002-05-09 20:01 ]

[ This Message was edited by: brettvba on 2002-05-09 20:44 ]

[KnAsTa]

hold down ctrl when selecting them

[brettvba]

No with code and ctrl would select right up to the top anyway any others?

[Mark O'Brien]

No SHIFT would select them all. CTRL allows you to select one at a time.

[brettvba]

if you hold ctrl and press up it goes to the next space in the row or in my case the very top or bottom.

What I was really asking was in vba code to select the like names or basically it selects the total one first this selects up till just before it reaches the second total anyone have any ideas>?

[Mark O'Brien]

We know you were asking for VBA code, but not from your first post. Anyway this code will do it. The data is assumed to be situated on Sheet1 in column A:

Public Sub main()



  Dim sText As String

  Dim oRange As Range

  Dim oTargetRange As Range

  Dim sFirstRange As String

  Dim sSelect As String

  

  sText = "Tecpak two"

  Set oTargetRange = Sheets("Sheet1").UsedRange.Columns("A")



  Set oRange = oTargetRange.Find(what:=sText, lookat:=xlWhole)

  

  If Not oRange Is Nothing Then

    sFirstRange = oRange.Address

    Do

      If oRange.Value = sText Then

        sSelect = sSelect & "," & oRange.Address

      End If

      Set oRange = oTargetRange.FindNext(oRange)

    Loop While Not oRange Is Nothing And sFirstRange <> oRange.Address

  End If

  Sheets("Sheet1").Range(Right$(sSelect, Len(sSelect) - 1)).Select



End Sub

HTH


_________________
[b] Mark O'Brien

[ This Message was edited by: Mark O'Brien on 2002-05-09 20:32 ]

[brettvba]

Thats was my request exactually it thanks Mark