Snasui Excel Forum

Code: Select all

Sub demo()
Dim i As Integer
Dim sel As Range
Set sel = [a5 :F24]
For i = 1 To sel.Rows.Count
    If sel.Rows(i).Cells(1).Value = "1" Then
        sel.Rows(i).Select
    End If
        Next i
    End Sub

Code: Select all

    Dim sh As Worksheet
    Dim rRange As Range
    Dim AllRange As Range
    Dim lngFirst As Long
    Dim lngLast As Long
    Dim lngCount As Long

    Set sh = Worksheets("Sheet1")
    Set AllRange = sh.Range("A5:A24")

    For Each rRange In AllRange
        If rRange = 3 Then
            lngCount = lngCount + 1
            lngFirst = lngFirst
            lngLast = rRange.Row
        End If
    Next rRange
    lngFirst = lngLast - lngCount + 1
    lngLast = lngCount

    sh.Range("A" & lngFirst).Resize(lngLast, 6).Select

Code: Select all

Dim sel As Range
Dim rAll As Range
Set rAll = [a4:f4]
Set sel = [a5 :F24]
For i = 1 To sel.Rows.Count
    If sel.Rows(i).Cells(1).Value = 1 Then
        Set rAll = Union(rAll, sel.Rows(i))
    End If
Next i
Intersect(rAll, sel).Select