Warn for an Empty Record

  • Thread starter Thread starter Soniya
  • Start date Start date
S

Soniya

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
 
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
 
this is not the case,

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

Soniy
 
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
 
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
 
Back
Top