daterng

Hello, I am trying to code in a Filter into a report whichdownloads into excel as Table rather than range. I have to create an additional column and header, by justdoing Range(“i1”).Value=”Adviser” I Then have this code for the filter, however whatever I try,it errors on “icol =...

Hello, can someone point me in the correct direction, the following does not error and runs, but does not take into account the date rng criteria, just returns all values with a "yes", is there something i have done wrong. Dim Daterng As Long Dim Daterng1 As Long Daterng =...

Hello, I have worked out the following code which is working fine, i have however been asked to add an additional criteria in, but to be honest i am not sure where to start. Dim Daterng As Long Dim Daterng1 As Long Daterng2 = Worksheets("Homepage").Range("k2") 'check date' Daterng3 =...

Hi, I currently have the following code as worksheet activate code, it works fine but I would like to add in a message if date not found; Private Sub Worksheet_Activate() Dim DateRng As Range, DateCell As Range Set DateRng = Range("2:2") For Each DateCell In DateRng If DateCell.Value = Date...

Hello, i have written the following code, which works fine for one row, i am trying to change it to go to the last row, with the criteria changing from A2 to a3. a4 etc, Range("f2") = WorksheetFunction.CountIfs(ThisWorkbook.Sheets("Adviser data").Range("A:A")...