How to create a msg before saving a excel Sheet

[Swapnanjali]

When I change this code ;I am getting some error..

Please Login or Register  to view this content.

[mahaveersomani]

can you upload a sample file?
then i can do it


regard
CA Mahaveer Somani

[zbor]

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

[jraj1106]

Hi

Try this code:

Please Login or Register  to view this content.

[Swapnanjali]

Thanks a lot for you help

Can i add a macro if any row is blank it will also not let you save..

[jraj1106]

"if any row is blank " meaning which row? Please specify..

[Swapnanjali]

If any cell within the range

[Swapnanjali]

I have attached the file..

[mahaveersomani]

but it is blank there is no data....?

what is your exact need dear say clearly

[arlu1201]

Swapnanjali,

Please edit your thread title as per post 3. You need to edit the title in post 1.

[zbor]

Your post does not comply with Rule 7 of our Forum RULES. Please do not ignore Moderators' or Administrators' requests - note that this includes requests by senior members as well, if you are unclear about their request or instruction then send a private message to them asking for help. Do not post a reply to a thread where a moderator has requested an action that has not been complied with e.g Title change or Code tags...etc

[Swapnanjali]

What i want is if someone will insert data In A4;he will have to put data throgh out the row; They can not leave any cell blank.That mans if column a has some data evey column has some data.. else they will not able to save blank.

[mahaveersomani]

do you mean if user put some data in column A4 then he have to put data up to column "AE4" otherwise file will not save, m i right dear
i mean "AE" is your last restricted column ?

[mahaveersomani]

check this file swapnanjli ji


If there is any problem then tell me

Regards
CA Mahaveer Somani

[arlu1201]

Mahaveersomani,

Your id will be banned, if you do not comply with forum rules.

[mahaveersomani]

actually i did not read his message therefore i did reply arlu ji......


Regard
CA Mahaveer Somani

[Swapnanjali]

Now plz tell me what to do

[arlu1201]

You need to edit the thread title in post 1. Then assistance will pour in.

[Swapnanjali]

Hi Arlette,
Kindly tell me one by one step. I am new to this forum ,Do nt know the rules and regulation ; I have now change the title; kindly say what to do next. I also need the solve of this thread..

[zbor]

Did you check solutions provided in this thread?

[Swapnanjali]

Yes , Zbor.

It is a great helpful...

[Swapnanjali]

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim rowcount As Long
Dim lstRow As Long
Dim i As Long
Sheet1.Activate
lstRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 4 To lstRow
If Range("A" & i).Value <> "" Then
If Range("B" & i) = "" Or Range("C" & i) = "" Or Range("d" & i) = "" Or Range("E" & i) = "" Or Range("f" & i) = "" Or Range("G" & i) = "" Or Range("h" & i) = "" Or Range("i" & i) = "" Or Range("j" & i) = "" Or Range("k" & i) = "" Or Range("l" & i) = "" Or Range("m" & i) = "" Or Range("n" & i) = "" Or Range("o" & i) = "" Or Range("p" & i) = "" Or Range("q" & i) = "" Or Range("u" & i) = "" Or Range("v" & i) = "" Or Range("w" & i) = "" Or Range("x" & i) = "" Or Range("y" & i) = "" Or Range("z" & i) = "" Or Range("AA" & i) = "" Or Range("AB" & i) = "" Or Range("AC" & i) = "" Or Range("AD" & i) = "" Or Range("AE" & i) = "" Then
MsgBox "you have to fill the Blank row", vbInformation, "MsgBox"

Sheet1.Activate
lstRow = Range("B" & Rows.Count).End(xlUp).Row
If Range("B" & i).Value <> "" Then
If Range("C" & i) = "" Or Range("d" & i) = "" Or Range("E" & i) = "" Or Range("f" & i) = "" Or Range("G" & i) = "" Or Range("h" & i) = "" Or Range("i" & i) = "" Or Range("j" & i) = "" Or Range("k" & i) = "" Or Range("l" & i) = "" Or Range("m" & i) = "" Or Range("n" & i) = "" Or Range("o" & i) = "" Or Range("p" & i) = "" Or Range("q" & i) = "" Or Range("u" & i) = "" Or Range("v" & i) = "" Or Range("w" & i) = "" Or Range("x" & i) = "" Or Range("y" & i) = "" Or Range("z" & i) = "" Or Range("AA" & i) = "" Or Range("AB" & i) = "" Or Range("AC" & i) = "" Or Range("AD" & i) = "" Or Range("AE" & i) = "" Then
MsgBox "you have to fill the Blank row", vbInformation, "MsgBox"

Cancel = (Len(Sheets("Sheet1").Range("J" & i).Value) = 0)
If Cancel Then MsgBox "Please fill in Column J!"


Cancel = True
Exit Sub

End If
End If
End If
Next i
End Sub

Hi Mahaveer,

I just made small changes in the above file.. I am getting Compling Error..

[zbor]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[Swapnanjali]

I did the same..

[zbor]

Swapnanjali, nobody will answer you until you do what is asked.
You could have your solution few days ago.