Progress Bar To a button on a userfrom

[peels2141]

Hi,

I have a delete form that finds the product ID in the first column and then deletes the entire row.. I wanted to add a progress bar to the button so when clicked the user can see when the item has been fully deleted.

This is my code

Dim rng1 As Range

MsgBox "Are you sure you want to delete this item?", vbCritical + vbYesNo

If vbYes Then



Set rng1 = Sheets("PRODUCT").Cells.Find(Me.txtDelete.Value, , xlValues, xlWhole)


txtDelete = ""
txtLayoutNo = ""
txtCategory = ""
txtProductDescription = ""
txtUnitPriceIE = ""
txtUnitPriceNI = ""

rng1.EntireRow.Delete

Else

If vbNo Then

Unload Me
FrmHomepage.Show



End If

End If

End Sub

Thanks

[zbor]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

[zbor]

Welcome to the Forum, unfortunately:

This is a duplicate post and as such does not comply with Rule 5 of our forum rules. This thread will now be closed, you may continue in your other thread.

http://www.excelforum.com/excel-prog...-userfrom.html

Thread Closed.