Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Coding help needed
I can't get the portion of below code **"test and provide for blank cells"
** to work properly. Can someone assist? TIA, Sub demo() Dim rSource As Range ' the area to be "viewed" Dim rCell As Range ' for looping through the view Dim msg As String ' body of the message Dim title As String ' title of the message Set rSource = Range("D5:H15") For Each rCell In rSource ' initialise message variables title = "row: %R" msg = "Address: %A " & Chr(10) & "Value: %V" ' populate message variables title = Replace(title, "%R", rCell.Row) msg = Replace(msg, "%A", rCell.Address) msg = Replace(msg, "%V", rCell.Value) ' test and provide for blank cells If rCell.Value = "" Then msg = Replace(msg, rCell.Value, "The Cell is Blank") End If ' show message & test for user cancel If MsgBox(msg, vbOKCancel, title) = _ vbCancel Then Exit For End If Next End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Coding help needed
"JMay" wrote in message news:5SuLb.70602$hf1.69573@lakeread06... I can't get the portion of below code **"test and provide for blank cells" ** to work properly. Can someone assist? TIA, ' test and provide for blank cells If rCell.Value = "" Then msg = Replace(msg, rCell.Value, "The Cell is Blank") End If You are trying to replace nothing with something. Nothing is nothing, so it won't be found, therefore you cannot replace it. Just use this code ' test and provide for blank cells If rCell.Value = "" Then msg = msg & "The Cell is Blank" End If -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Coding help needed
Thanks Bob for the explanation - it has added to my
<<sorely-neededunderstanding of programming (which is fairly new to me). JMay "Bob Phillips" wrote in message ... "JMay" wrote in message news:5SuLb.70602$hf1.69573@lakeread06... I can't get the portion of below code **"test and provide for blank cells" ** to work properly. Can someone assist? TIA, ' test and provide for blank cells If rCell.Value = "" Then msg = Replace(msg, rCell.Value, "The Cell is Blank") End If You are trying to replace nothing with something. Nothing is nothing, so it won't be found, therefore you cannot replace it. Just use this code ' test and provide for blank cells If rCell.Value = "" Then msg = msg & "The Cell is Blank" End If -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
sum by coding | New Users to Excel | |||
How to fix the coding? | Excel Worksheet Functions | |||
How to fix the coding? | Excel Worksheet Functions | |||
VBA coding needed badly | New Users to Excel | |||
Help needed coding a macro to adjust the source of information each time it is run | Excel Programming |