Darryl Collins
Darryl.Collins at coles.com.au
Wed Jun 25 19:44:42 CDT 2008
If any of you have Excel issues, I highly recommend one of the Excel lists here. I have been subbed to both for years. L list is for Developer type issues http://peach.ease.lsoft.com/archives/excel-l.html G list is for more mundane Excel stuff. http://peach.ease.lsoft.com/archives/excel-g.html Both lists are very friendly and full of MVP types who really know their stuff. Also lots of fun like AccessD, and of course, free to sub and unsub. hth Darryl. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Turner Sent: Thursday, 26 June 2008 1:55 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Do While in VBA SO simple thanks Rocky, none of the example's in the book or code had that simple phrase just End Sub after the loop phrase. I've sent emails to two excel groups trying to find this answer and none replied. Access d Is the greatest. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin at Beach Access Software Sent: Wednesday, June 25, 2008 10:42 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Do While in VBA If Cell has 'something' then Exit Do? Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com www.bchacc.com -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Turner Sent: Wednesday, June 25, 2008 8:31 AM To: Access Developers discussion and problem solving Subject: [AccessD] Do While in VBA Hello, Quick question I know someone can help with. I have a VBA macro in Excel I'm working on with a Do While loop in it. I want it to stop on a cell I put something in to make it stop. Right now it just bypasses what ever I put in the cell. Its puzzling why. Can't use the "" blank cell because the macro is deleting blank rows. Declared a string var but what I put in it may be somehow different than what shows up in the cell by some small amount like Stop, "Stop" tried both but it didn't work. Using Dim dontdo$ dontdo = "Stop" x = ActiveCell.Row Do While ActiveCell(x, 1).Value <> dontdo. Steve A. Turner Controller Mid-South Engineering Co. Inc P.O. Box 1399 Hot Springs, AR 71902 E-Mail: sturner at mseco.com and saturner at mseco.com Phone:(501)321-2276 Fax: (501)321-4750 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com This email and any attachments may contain privileged and confidential information and are intended for the named addressee only. If you have received this e-mail in error, please notify the sender and delete this e-mail immediately. Any confidentiality, privilege or copyright is not waived or lost because this e-mail has been sent to you in error. It is your responsibility to check this e-mail and any attachments for viruses. No warranty is made that this material is free from computer virus or any other defect or error. Any loss/damage incurred by using this material is not the sender's responsibility. The sender's entire liability will be limited to resupplying the material. This email and any attachments may contain privileged and confidential information and are intended for the named addressee only. If you have received this e-mail in error, please notify the sender and delete this e-mail immediately. Any confidentiality, privilege or copyright is not waived or lost because this e-mail has been sent to you in error. It is your responsibility to check this e-mail and any attachments for viruses. No warranty is made that this material is free from computer virus or any other defect or error. Any loss/damage incurred by using this material is not the sender's responsibility. The sender's entire liability will be limited to resupplying the material.