Update Missing Info Before Capture - Excel VBA

[Ayaz Shaikh]

I am trying to make data capture sheet in excel and added capture button. I want
the users to complete the excel form and then hit Capture, which then captures the data in a .txt file. I have put together below VBA code with some help. The real issue is,if any field is missing it pops up the msg but as soon as I click Ok (on the msg), it captures data instead of going back to incomplete form for the user to update missing field. I am new to this stuff and need help........

Please Login or Register  to view this content.

[Bob Phillips]

Please Login or Register  to view this content.

[arthurbr]

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

I will add them for you this time

[Ayaz Shaikh]

Bob,

I filled the sheet completely but still it gives me the msg and doesn't print.

Help...

[arthurbr]

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

[Ayaz Shaikh]

This doesn't print and still gives msg even when all fields are complete.

[Bob Phillips]

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

You said you would add them, and you did

[arthurbr]

That was about the thread title not being changed. I didn't know you cared about that Bob?

[Ayaz Shaikh]

Bob,

Please help me fix the excel issue.

Even after completing the form it still gives me msg 'Please update missing information' when I click on Capture Score button, doesn't capture & reset the excel form.

Rgds
Ayaz Shaikh

[Ayaz Shaikh]

Somone please help

[Bob Phillips]

Please Login or Register  to view this content.

[Ayaz Shaikh]

This doesn't work.

After completing all field it still gives msg.


Code :
Sub Capture_Score()
'
' Capture_Score Macro
'

With Sheet1

If .Cells(3, 2).Value = "" & .Cells(4, 2).Value = "" & .Cells(5, 2).Value = "" & _
.Cells(6, 2).Value = "" & .Cells(9, 2).Value = "" & .Cells(10, 2).Value = "" & _
.Cells(11, 2).Value = "" & .Cells(12, 2).Value = "" & .Cells(13, 2) & .Cells(14, 2).Value = "" Then

Cancel = False

Const myfile As String = "\\00172fpsjnb0007\p135668$\Centralised Lending\Application Assessment\" & _
"Application Quality.txt"
fnum = FreeFile()

Open myfile For Append As fnum

Print #fnum, .Cells(3, 2).Value & "|" & .Cells(4, 2).Value & "|" & _
.Cells(5, 2).Value & "|" & .Cells(6, 2).Value & "|" & _
.Cells(9, 2).Value & "|" & .Cells(10, 2).Value & "|" & _
.Cells(11, 2).Value & "|" & .Cells(12, 2).Value & "|" & _
.Cells(13, 2).Value & "|" & .Cells(14, 2).Value

Close #fnum

.Cells(4, 2).Value = ""
.Cells(6, 2).Value = ""
.Cells(9, 2).Value = ""
.Cells(10, 2).Value = ""
.Cells(11, 2).Value = ""
.Cells(12, 2).Value = ""
.Cells(13, 2).Value = ""
.Cells(14, 2).Value = ""
Else

MsgBox "Please update missing information"
End If
End With
End Sub

[Bob Phillips]

If you keep refusing to use code tags, you are likely to get banned