activecell.address

How do you exit a Do Loop at a certain cell?

Hi, I try to change the color of the active cell before print the worksheet. I've got the following code: Private Sub Workbook_BeforePrint(Cancel As Boolean) Sheets("Invoice").Select c = ActiveCell.Address Range(c).Interior.ColorIndex = 2 Sheets("Uurlijst").Select d = ActiveCell.Address...

I have the following code. Essentially, looking to find any duplicates in column B. The problem, is it continues to duplicate the function. Basically, what I want it to do is once it finds a duplicate in sheet names "Control Sheet" then display message and stop. No need to continue looping. Is...

Hello, I need assistance adjusting a macro. I need to sort one value alphabetically, then another value chronologically. For example, I need Jon Smith 10/9/2018 Jane Smith 10/31/2018 Jon Smith 9/30/2018 to become Jane Smith 10/31/2018 Jon Smith 9/30/2018 Jon Smith 10/9/2018 I cant figure...

Hi all, I am getting a sort reference error and i cannot figure out why; there wasn't an issue yesterday! "The sort reference is not valid. Make sure that it's within the data you want to sort, and the first Sort By box isn't the same or blank". "Run-time error '1004': Application-defined or...

Dear Gents, Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B2:B5")) Is Nothing Then Cancel = True ActCol = Activecell.Column 'other macro According to above codes, If the user change the value of B2 to B5 and press "tab" on...

Hi all Is it possible to modify the code below so that the ActiveCell.Address can be any cell in a range (e.g. A2:M14) and the Range("W5").Value is equal to the active cell in that range? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Address = "$A$2" Then...

If ActiveCell.Address = Range("A31").Address And ActiveCell.Value = "" Then UserForm1.ComboBox1.RowSource = "Lists!A1:A23" UserForm1.Show End If If ActiveCell.Address = Range("A32").Address And ActiveCell.Value = "" Then UserForm1.ComboBox1.RowSource =...

Hi, I am new to VBA and having issues trying to cut and paste highlighted rows. I have started with the below code but it only cuts the active cells rather than the entire rows , I have tried various different bits of code but can’t get anything to work. I need the code to loop through sheet...

I am changing around a sheet where previously the cells I needed to index around where fixed at the top because each week we would insert and push down the prior weeks data. Now the new data will be added at the bottom and I'd like to use a date reference in M1 to search a date range in Column...

Hi All No doubt the solution is quick, but here goes.... I want to select 2 non-contiguous cells within a macro. If I specify…. Range("D5,M16").Select …that works. If I use the same logic and use the following code (for different cells) then it does not work. ACA1 = ActiveCell.Address...

any help please. After finding a blank cell using code below i would like to make that blank cell the active cell. I know that you cannot assign a constant to a an active cell address therefore the below line of code fails Public Sub findcell() ActiveCell.Address =...