Warn for an Empty Record
 

Hi all

I have the following:

ColumnA Column B
title1 data1
title2
title3 data2
title4

when i reach row five it runs a macro :
before proceeding i want to check any empty cells in this
range and should go back to that empty cell with a
message this cell should be filled

in my above eg: it should say title2 and title4 is emppty
and select column B row 2 (Title2)

My code now only says "There are empty cells"
without specifically saying which are they and selecting
the corresponding cell

any help?

TIA
Soniya

Warn for an Empty Record
 

If your data in a1:a5 for example you can do this if
there are empty cells in the range

Range("A1").End(xlDown).Offset(1, 0).Select


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Soniya" wrote in message ...
Hi all

I have the following:

ColumnA Column B
title1 data1
title2
title3 data2
title4

when i reach row five it runs a macro :
before proceeding i want to check any empty cells in this
range and should go back to that empty cell with a
message this cell should be filled

in my above eg: it should say title2 and title4 is emppty
and select column B row 2 (Title2)

My code now only says "There are empty cells"
without specifically saying which are they and selecting
the corresponding cell

any help?

TIA
Soniya

Warn for an Empty Record
 

this is not the case,

i want to check if any of the cells in range is blank and
which are they

Soniy
-----Original Message-----
If your data in a1:a5 for example you can do this if
there are empty cells in the range

Range("A1").End(xlDown).Offset(1, 0).Select


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Soniya" wrote in message
...
Hi all

I have the following:

ColumnA Column B
title1 data1
title2
title3 data2
title4

when i reach row five it runs a macro :
before proceeding i want to check any empty cells in
this
range and should go back to that empty cell with a
message this cell should be filled

in my above eg: it should say title2 and title4 is
emppty
and select column B row 2 (Title2)

My code now only says "There are empty cells"
without specifically saying which are they and
selecting
the corresponding cell

any help?

TIA
Soniya


.

Warn for an Empty Record
 

Post the code you have - then someone can suggest a modification.

--
Regards,
Tom Ogilvy

Soniy wrote in message
...
this is not the case,

i want to check if any of the cells in range is blank and
which are they

Soniy
-----Original Message-----
If your data in a1:a5 for example you can do this if
there are empty cells in the range

Range("A1").End(xlDown).Offset(1, 0).Select


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Soniya" wrote in message
...
Hi all

I have the following:

ColumnA Column B
title1 data1
title2
title3 data2
title4

when i reach row five it runs a macro :
before proceeding i want to check any empty cells in
this
range and should go back to that empty cell with a
message this cell should be filled

in my above eg: it should say title2 and title4 is
emppty
and select column B row 2 (Title2)

My code now only says "There are empty cells"
without specifically saying which are they and
selecting
the corresponding cell

any help?

TIA
Soniya


.

Warn for an Empty Record
 

this is the code I have

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If Target.Address = "$C$10" Then

Set rng = Range("C4:C8")
On Error GoTo DoIt
Application.EnableEvents = 0
If Application.Count(rng) < 5 Then
MsgBox "Enter All Records!", vbOKOnly, "Invalid
Record found"
End
End If
Else
Run MyCode
EndSub

i want to check if any of the cells in range is blank and
which are they

TIA

Soniya



-----Original Message-----
Post the code you have - then someone can suggest a
modification.

--
Regards,
Tom Ogilvy

Soniy wrote in message
...
this is not the case,

i want to check if any of the cells in range is blank
and
which are they

Soniy
-----Original Message-----
If your data in a1:a5 for example you can do this if
there are empty cells in the range

Range("A1").End(xlDown).Offset(1, 0).Select


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Soniya" wrote in message
...
Hi all

I have the following:

ColumnA Column B
title1 data1
title2
title3 data2
title4

when i reach row five it runs a macro :
before proceeding i want to check any empty cells in
this
range and should go back to that empty cell with a
message this cell should be filled

in my above eg: it should say title2 and title4 is
emppty
and select column B row 2 (Title2)

My code now only says "There are empty cells"
without specifically saying which are they and
selecting
the corresponding cell

any help?

TIA
Soniya


.



.

Warn for an Empty Record
 

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If Target.Address = "$C$10" Then

Set rng = Range("C4:C8")
On Error GoTo DoIt
Application.EnableEvents = 0
If Application.CountA(rng) < 5 Then
MsgBox "Enter All Records!", vbOKOnly, _
"Invalid Record found"
rng.SpecialCells(xlBlanks)(1).Select
Exit Sub
Else
Run MyCode
End If
End if
DoIt:
Application.EnableEvents = True
End Sub


Don't use End
Re-enable Events

--
Regards,
Tom Ogilvy

"Soniya" wrote in message
...
this is the code I have

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If Target.Address = "$C$10" Then

Set rng = Range("C4:C8")
On Error GoTo DoIt
Application.EnableEvents = 0
If Application.Count(rng) < 5 Then
MsgBox "Enter All Records!", vbOKOnly, "Invalid
Record found"
End
End If
Else
Run MyCode
EndSub

i want to check if any of the cells in range is blank and
which are they

TIA

Soniya



-----Original Message-----
Post the code you have - then someone can suggest a
modification.

--
Regards,
Tom Ogilvy

Soniy wrote in message
...
this is not the case,

i want to check if any of the cells in range is blank
and
which are they

Soniy
-----Original Message-----
If your data in a1:a5 for example you can do this if
there are empty cells in the range

Range("A1").End(xlDown).Offset(1, 0).Select


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Soniya" wrote in message
...
Hi all

I have the following:

ColumnA Column B
title1 data1
title2
title3 data2
title4

when i reach row five it runs a macro :
before proceeding i want to check any empty cells in
this
range and should go back to that empty cell with a
message this cell should be filled

in my above eg: it should say title2 and title4 is
emppty
and select column B row 2 (Title2)

My code now only says "There are empty cells"
without specifically saying which are they and
selecting
the corresponding cell

any help?

TIA
Soniya


.



.