How can I automatically execute an Excel macro each time a value in a particular cell changes? Right now, my working code is: Private Sub Worksheet_Change(ByVal Target As Range) If …

See my solution based on UsedRange and VBA arrays to find the last cell with data in the given column -- it handles hidden rows, filters, blanks, does not modify the Find defaults and is quite …

Sub test() Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Sheet1") Dim k As Long k = sh.Range("A1", sh.Range("A1").End(xlDown)).Rows.Count End Sub What happens is this: We …

Block 2 looks like an imitation of a Try/Catch block. It should be okay, but it's not The VBA Way. Block 3 is a variation on Block 2. Block 4 is a bare-bones version of The VBA Way. I would …

54 I am writing a VBA script in Access that creates and auto-populates a few dozen emails. It's been smooth coding so far, but I'm new to Outlook. After creating the mailitem object, how do I …

I have an access file that I regularly need to copy to another directory, replacing the last version. I would like to use an Excel macro to achieve this, and would also like to rename the file in the

I need to extract the filename from a path (a string): e.g., "C:\folder\folder\folder\file.txt" = "file" (or even "file.txt" to get me started) Essentially everything before and including the last \ I've heard …

I want to select the formatted range of an Excel sheet. To define the last and first row I use the following functions: lastColumn = ActiveSheet.UsedRange.Column - 1 + …

VBA will allow you to adhoc use variables, but its difficult to maintain if you do that. Add to the beginning of your code, right after version dim URL as string dim objHTTP as object

With ActiveWorkbook.Connections("XMLTable") .Name = "XMLTable" .Description = "" End With ActiveWorkbook.Connections("XMLTable").refresh The class ActiveWorkbook.Connections …