Excel VBA to select a range based on cell value

Question

I am new to VBA.

For each cell in columns("c:c")
If cell.value = "TRUE" Then
'vba is required for  selecting corresponding cells in columns A and B 
Next cell
Else:
exit sub
End if
end sub

please make suitable corrections

hi simico, please look atabove edited code. just i wrote roughly bcoz i dont to know much about coding. — ganesh
– ganesh, Commented Mar 25, 2014 at 17:30
you wnat to select only first row where in column C is FASLE, or all rows where in column C is false? — Dmitry Pavliv
– Dmitry Pavliv, Commented Mar 25, 2014 at 17:31

Dmitry Pavliv · Accepted Answer · 2014-03-25 17:39:46Z

5

Try this one:

Sub test()
    Dim lastrow As Long
    Dim c As Range, rng As Range
    'change Sheet1 to suit
    With ThisWorkbook.Worksheets("Sheet1")
        lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row
        For Each c In .Range("C1:C" & lastrow)
            If UCase(c.Text) = "FALSE" Then
                If rng Is Nothing Then
                    Set rng = .Range("A" & c.Row).Resize(, 2)
                Else
                    Set rng = Union(rng, .Range("A" & c.Row).Resize(, 2))
                End If
            End If
        Next c
    End With

    If Not rng Is Nothing Then rng.Select
End Sub

answered Mar 25, 2014 at 17:39

Dmitry Pavliv

35.9k13 gold badges84 silver badges85 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

ganesh Over a year ago

YES its perfect hit. Thats what I needed. thanks simico. If you dont mind can i have your email ID or where can i take your help directly other than this website?

Collectives™ on Stack Overflow

Excel VBA to select a range based on cell value

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related