Select Rows based on cell value

[kamalm]

Hi, I use this code to select all Rows that contain number 3 based on column F. The code will select the Entire Row. But what I really want is the Rows contain number 3 to be selected only until Column X, not the entire Row. How can I do that ?

Sub SelRows()
Dim ocell As Range
Dim rng As Range


For Each ocell In Range("F:F")


If ocell.Value = "3" Then


If rng Is Nothing Then


Set rng = ocell.EntireRow
Else


Set rng = Union(rng, ocell.EntireRow)
End If
End If
Next


If Not rng Is Nothing Then rng.Select


Set rng = Nothing
Set ocell = Nothing
End Sub

 

[My Aswer Is This]

Edit

 

[My Aswer Is This]

Not sure what your ultimate goal is:
Try this:

Sub SelRows()
'Modified  8/20/2018  3:05:25 AM  EDT
Dim ocell As Range
Dim rng As Range
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "F").End(xlUp).Row

For Each ocell In Range("F1:F" & Lastrow)
    If ocell.Value = "3" Then
If rng Is Nothing Then
Set rng = ocell.Resize(, 19)
Else
Set rng = Union(rng, ocell.Resize(, 19))

End If
End If
Next
If Not rng Is Nothing Then rng.Select
Set rng = Nothing
Set ocell = Nothing
End Sub

 

[kamalm]

Sub SelRows()
'Modified  8/20/2018  3:05:25 AM  EDT
Dim ocell As Range
Dim rng As Range
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "F").End(xlUp).Row

For Each ocell In Range("F1:F" & Lastrow)
    If ocell.Value = "3" Then
If rng Is Nothing Then
Set rng = ocell.Resize(, 19)
Else
Set rng = Union(rng, ocell.Resize(, 19))

End If
End If
Next
If Not rng Is Nothing Then rng.Select
Set rng = Nothing
Set ocell = Nothing
End Sub

Hi, I'm sorry. I forget to tell you that actually I need it to select from Column A until Column X. Your code did work to select until Column X but it miss Column A to E

 

[footoo]

Sub SelRows()
Dim rng As Range, r&
Rows(1).Insert
[F:F].AutoFilter Field:=1, Criteria1:="3"
r = Cells(Rows.Count, "F").End(xlUp).Row
If r > 1 Then
    Set rng = Intersect(Range("F2:F" & Cells(Rows.Count, "F").End(xlUp).Row) _
        .SpecialCells(xlCellTypeVisible).EntireRow, [A:X])
    rng.Select
End If
Rows(1).Delete
End Sub

 

[kamalm]

Not sure what your ultimate goal is:

Actually after I select all the Rows that contain number 3, I want to cut and paste at AA1.

 

[kamalm]

Sub SelRows()
Dim rng As Range
Rows(1).Insert
[F:F].AutoFilter Field:=1, Criteria1:="3"
Set rng = Intersect(Range("F2:F" & Cells(Rows.Count, "F").End(xlUp).Row) _
    .SpecialCells(xlCellTypeVisible).EntireRow, [A:X])
Rows(1).Delete
rng.Select
End Sub

Thank you so much! It works!

 

[footoo]

Thank you so much! It works!

See the revision.

 

[My Aswer Is This]

Well I'm glad you have a answer now.
I was not aware till now what your ultimate goal was. You never explained that in your original post

 

[footoo]

.