Search results for query: *

Hi MJB Found this code in one of my modules, you will need to cahnge the web addres & probably some other stuff but it may give you some ideas With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.tek-tips.com/viewthread.cfm?qid=1175935&page=1", Destination _...

Hi guys Found the module I need, sorry about that, just needed a rest away from the comp Simmy [mad]

Hi Azzi I had a problem much the same and the easiest way round I found was to run through the sheet and delete any rows which don't match your criteria and then just copy the sheet and paste to a new book Hope this helps! Simmy [2thumbsup]

Hi Hope someone can help, think I may be being a little dim because I'm sure I have already done this once, but here goes I have the following code which loops through my MP3 folder on my computer, I am trying to get the attributes for each of the files in the folder but can't remember how to...

You could use Before_Close and then find the path of the workbook Dave

Hi Chuckbjr Please find below an email sender macro All you will need to do is loop through the cells in your excel sheet and set the "To", "CC", "subject" and "body" to the cell information on your sheet. If I can be of any further help...

Hi Rob I have messed around with this and found that if I use Dim dname As Date as the first line of the Subroutine it works for me Hope this helps Simmy [surprise]

Hi Parag Press Alt F11 to get into VBA On the left hand side of the screen you will see a list of all open workbooks. Find the workbook you want to work with & underneath the name of the workbook is a folder called Microsoft Excel Objects if this has a plus sign to the left of it click this...

Sub Unprotector Sheets("SheetName").Unprotect("PasswordHere") ... ' Other lines of code here ... Sheets("SheetName").Protect("PasswordHere") End Sub Simmy

Hi Magnus53 This will find the last cell in column A that is not blank Sub FindLastCell With ActiveSheet.Range(&quot;A65536&quot;) If Value <> &quot;&quot; Then A = .Row Else A = .End(xlUp).Row End If End With MsbBox(A) End Sub Hope This helps. Regards Simmy

Sorry I have been away for a few days The Routine below should do all you require providing Your version number is in Cell A1 of Sheet 1 Sub Macro1() Sheets(&quot;Sheet1&quot;).Activate Range(&quot;A1&quot;).Select VersionNo = ActiveCell.Formula For Each Sh In Worksheets...

Thanks tyhand for taking the time to help I will try your suggestions Regards Simmy

Hi Using VBA, you could use the following code, changing the text &quot;Hello&quot; to whatever you wish Sub Macro1() For Each Sh In Worksheets Sh.PageSetup.CenterFooter = &quot;Hello&quot; Next Sh End Sub Regards Simmy

Hi I was wondering if anyone could help with an Outlook macro to automatically save emails as text files, (which I have used a rule on to move to a specific folder). Thanks for any help or a point in the right direction. Simmy

Thanks guys Will try auto close routine Thanks again for your help & time Simmy123

Can anyone help I have put code in my personal workbook that runs a macro when the workbook is opened(On_Open event)and one to clean up when it closes(Before_Close event). The open event works perfect every time but I have found that if I close Excel with the X button in the top right hand...

Hi Natesh Basic stuff, but these sheets are not &quot;well hidden&quot; by VBA code are they. Regards Simmy

Thanks for the help Will try Regards Simmy

Can anyone help, I need to write code that will loop through all the files in a folder and import them into an Excel sheet. The problem is I cannot write the code to loop through all the files in the folder. Any help is appreciated.

I don't really know why but it works allright. Thanks a lot! Simmy