SteveD
7/30/2009 11:35:00 PM
Hello JLGWhiz from Steved
I finally got your Script to work
The reason was That I used an import ( "Oracle" )
And I did not read probably what you sent in your replies.
I Thankyou
ps I,m very sorry considering your program worked all the time.
"JLGWhiz" wrote:
> This might handle the match up if Column C is formatted as Date dara type.
>
> Sub hilite()
> Dim cRng As String, c As Ramge
> cRng = InputBox("Enter a date in dd-mmm-yyyy format", "Date")
> nDte = CDate(cRng) 'Convert string to date data type.
> Set c = ActiveSheet.Range(C:C).Find(nDte, LookIn:=xlValues)
> If Not c Is Nothing Then
> With ActiveSheet.Range("A" & c.Row & ":S" & c.Row)
> With .Font
> .ColorIndex = 3
> .Bold = True
> Emd with
> .Interior.ColorIndex = 5
> Emd With
> Emd if
> End Sub
>
> If not, you might have to go back to the original and then make format
> Column C as Text.
>
> "JLGWhiz" <JLGWhiz@cfl.rr.com> wrote in message
> news:Outy%23pyDKHA.1340@TK2MSFTNGP05.phx.gbl...
> > If you have column C formatted as Date then Dim cRng As Date, If you have
> > Column C formatted as String then Dim cRng As String. Dim c As Range You
> > might have to play with the cRng a little to get the data type the same as
> > Column C. Otherwise it should work OK.
> >
> > I also notice that I spelled Range wrong in the Set line. Trying to do
> > two things at once at my age is not smart.
> >
> >
> > "Steved" <Steved@discussions.microsoft.com> wrote in message
> > news:52598A20-981D-4E22-8F4B-BAD39055442C@microsoft.com...
> >> Hello JGLWhiz
> >>
> >> I am getting a
> >>
> >> Compile error:
> >> Variable not Defined
> >>
> >> It is highligting "cRng ="
> >>
> >> Could you please take me the process for this to function.
> >>
> >> Thanks for timeout
> >>
> >>
> >> "JLGWhiz" wrote:
> >>
> >>> I believe you meant InputBox.
> >>>
> >>> Sub hilite()
> >>> cRng = InputBox("Enter a date in dd-mmm-yyyy format", "Date")
> >>> Set c = ActiveSheet.Ramge(C:C).Find(cRng, LookIn:=xlValues)
> >>> If Not c Is Nothing Then
> >>> With ActiveSheet.Range("A" & c.Row & ":S" & c.Row)
> >>> With .Font
> >>> .ColorIndex = 3
> >>> .Bold = True
> >>> End with
> >>> .Interior.ColorIndex = 5
> >>> End With
> >>> End if
> >>> End Sub
> >>>
> >>> This is untested, so it might hiccup. Check for typos.
> >>>
> >>>
> >>>
> >>> "Steved" <Steved@discussions.microsoft.com> wrote in message
> >>> news:F1C51933-AC96-4BED-A2AE-EAC1ADD1B974@microsoft.com...
> >>> > Hello from Steved
> >>> >
> >>> > I'm using Office 2007
> >>> >
> >>> > Highlite the "Row" from "Col A: to Col S:"
> >>> >
> >>> > I would like to please have a message box that will allow me to input
> >>> > a
> >>> > date
> >>> > ie "22-Jun-2009" which are in the Column C:C, which would goto the row
> >>> > then
> >>> > from Column A: to Column S: have the Fill colour be "Yellow" and the
> >>> > Text
> >>> > "Red and Bold".
> >>> >
> >>> > Thankyou.
> >>>
> >>>
> >>>
> >
> >
>
>
>