VBA to search for set day and highlight column

**Crawfy** · 08-19-2018, 06:24 AM

I am attempting to use Cell I8 as the reference for the date i am searching for. I can enter the date via a Calendar Form or manually type it in I8.
I have used the below code before to achieve this in another worksheet which finds the date in a column and highlights the row. Now i want to find the date in row 14 and highlight the column, and have excel center on the column if possible. It does this for my other worksheet. I am not sure why it isn't working now.
Any help would be appreciated.

Sub FindSelectedDate()

Dim DateRngS As Range, DateCell As Range
Dim EntireColumn
Dim Interior

Set DateRng = Range("T14:OX14")
For Each DateCell In DateRng
If DateCell.Value = Range("I8") Then DateCell.Select
Next

With Selection
    .EntireColumn.Select
End With

End Sub

**SjonR** · 08-19-2018, 06:28 AM

it works fine!

**bakerman2** · 08-19-2018, 09:49 AM

This is not a true Worksheet event so code won't fire automatically.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("I8")) Is Nothing Then Exit Sub
    CalendarFrm.Show
    If Target.Value <> vbNullString Then FindSelectedDate
End Sub
Sub FindSelectedDate()
    Dim DateRngS As Range, x

    Set DateRng = Range("T14:OX14")
    x = Application.Match(Range("i8"), DateRng, 0)
    If Not IsError(x) Then Cells(1, x + 19).EntireColumn.Select
End Sub

**Crawfy** · 08-20-2018, 02:59 AM

Thx Bakerman2, that did the trick.

VBA to search for set day and highlight column

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

VBA to search for set day and highlight column

Re: VBA to search for set day and highlight column

Re: VBA to search for set day and highlight column

Re: VBA to search for set day and highlight column

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Search for empty cell in a row, highlight a range in that column

[SOLVED] VB Script search within a column in one Wb and find in another WB and Highlight yellow

[SOLVED] Search Row by Column value and Highlight Text - For each Row

Search and highlight hits only in Column C

[solved] Simple - Highlight a row - and keep the highlight even if you paste a column

Search and Highlight

Search and Highlight

Bookmarks

Bookmarks

Posting Permissions