VBA - Find value and select row with active data

[Uzeal]

Hello!

I'm hoping someone can help me out here. Please let me know if this should go in the Access forum instead, but my code is opening an excel spreadsheet and manipulating the data in excel so I hope I'm okay with posting this here.

What I'm trying to do is find a value in an excel spreadsheet (the value should always exist) and select the row that has active data in it (not the entire row). I have the find portion working, I just can't figure out how to only select the row that has active data in it. This is my code and I need to replace the "ActiveCell.EntireRow.Select" with my request.

 Set wks = objexcelapp.ActiveSheet
        With wks
          .Columns("E:E").Select
          Selection.Find(What:="5049923", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.EntireRow.Select
        End With

Thank you for your help!!

 

[Uzeal]

Also, if it makes it easier, I just need to select columns A:K of the active row.

 

[MARK858]

Try the code below (untested)...

    Dim myRng As Range
    Set wks = objexcelapp.ActiveSheet
    With wks
        Set myRng = .Columns("E:E").Find(What:="5049923", LookIn:=xlValues, _
                    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)
        If Not myRng Is Nothing Then myRng.Offset(, -4).Resize(, 11).Select
    End With

 

[Uzeal]

THANK YOU. The resize was off by a few columns but that was exactly what I was looking for. THANK YOU!!!

 

[MARK858]

The resize was off by a few columns

That was because I had it in my mind that it was column H not K (If you see my original post you'll see that I edited it from an 8 to 11 when I realised)

Happy it worked for you and welcome to the board