"Highlite" a "row" that has a "particular date"
 

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.

"Highlite" a "row" that has a "particular date"
 

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
Emd with
.Interior.ColorIndex = 5
Emd With
Emd if
End Sub

This is untested, so it might hiccup. Check for typos.



"Steved" wrote in message
...
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.

"Highlite" a "row" that has a "particular date"
 

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" wrote in message
...
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.

"Highlite" a "row" that has a "particular date"
 

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" wrote in message
...
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" wrote in message
...
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.

"Highlite" a "row" that has a "particular date"
 

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" wrote in message
...
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" wrote in message
...
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" wrote in message
...
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.

"Highlite" a "row" that has a "particular date"
 

Hello JLGWhiz

I Thankyou

Steved

"JLGWhiz" wrote:

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" wrote in message
...
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" wrote in message
...
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.

"Highlite" a "row" that has a "particular date"
 

Hello JLGWhiz

Thankyou for the below

I'm Getting a

Compile error
Variable not defined

It is Highliting
nDte =

Can you please advice me as to what I have done or not done.

I Thankyou

Steved

"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 Range
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
End with
.Interior.ColorIndex = 5
End With
End if
End Sub

If not, you might have to go back to the original and then make format
Column C as Text.

"JLGWhiz" wrote in message
...
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" wrote in message
...
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" wrote in message
...
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.

"Highlite" a "row" that has a "particular date"
 

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" wrote in message
...
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" wrote in message
...
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" wrote in message
...
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.