.autofilter

G'day guys. Have the below code: Set TB = ActiveWorkbookWorkbooks.Open "C:\Users\Luke\Desktop\LIVE\Best Shed Scheduler Flashing.xlsm" Set OB = ActiveWorkbook erow = OB.Sheets("Corner Flashing Machine Data").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row TB.Activate...

Requesting help with setting up a macro to autofilter multiple criteria, copying visible data only, and selecting and pasting sections of the data at a time into another worksheet in the file. Here is a previous post that works for single criteria...

Hi, I am using this VBA code to filter records. Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False With ActiveSheet.Range("D5:F1000") .AutoFilter .AutoFilter Field:=1, Criteria1:="*" & Range("D4") & "*", visibledropdown:=False...

Hi This part of my code applies a greater than or equal to filter successfully; If ActiveSheet.Range("G3").Value <> "" Then .AutoFilter Field:=7, Criteria1:=">=" & ActiveSheet.Range("G3").Value End If But I want it to be equal to, but when I change it, it doesn't...

Need help with autofilter code to show me everything that is not my variable: Dim cellVal As String Dim cSheet As Worksheet Set cSheet = ActiveWorkbook.ActiveSheet cellVal = cSheet.Range("A5").Value With ActiveSheet.UsedRange .AutoFilter Field:=1...

This code works fine to remove rows from a dataset that contain the values stored in the Array. In lieu of the Array, can I use a list of data in column A on Sheet2? With the Array, I will have to change it as soon as another variable is required to be deleted the next time the dataset is...

Hello all I think this maybe a big ask but here goes. The code below looks at the values in the sheet called "Data" and using filters shows the filtered detail on the sheet called "Dashboard" It is possible please to enter values in the Dashboard sheet that will write back to the Data sheet...

Hi I'm trying to filter using the below: Sub Del_Rows() Dim Countries As String Set wk = ThisWorkbook Set ABC = wk.Sheets("123") Set Countries = Sheet1.Range????? Application.ScreenUpdating = False With ABC.UsedRange .AutoFilter Field:=3, Criteria1:=Countries .AutoFilter...

I have data stored on main sheet [Sheet1]. There are 4 other sheets on the spreadsheet. [Sheet 2] [Sheet 3] [Sheet 4] [Sheet 5] I would like to copy the header (row 1) and data to copy to Sheet 2 from Sheet 1 if Sheet 1 column AA = 1; to Sheet 3 if Sheet 1 AB = 1, to Sheet 3 if Sheet 1 AC = 1...

The issue I am having with autofilter is that it isn't hiding the first row of a range when the first cell in the filtered column of that range is empty. Code snippet: If Range("G1") > 0 'Then 'competitors' times have been entered lastrow = Range("G" & Rows.Count).End(xlUp).Row 'identify the...

Hello! I'm looking to delete all rows not containing the following in column E. I have the following code, but it's not working. Any ideas? With ActiveSheet.UsedRange .AutoFilter field:=5, Criteria1:=Array("<>PN", "<>RN", "<>DR", "<>TA"), Operator:=xlFilterValues .Offset(1...

Hi, Wondering if anyone can help with this.... I'm trying to make my code set up two filters on my sheet - the first is a date on column 39 (based on pre defined date dat minus 28days) and the second is to filter for containing not blank cells. With Sheets("OPS PLANNER")...

Hi I currently have; Sub Button1_Click() With ActiveSheet.Range("A8:J61") .AutoFilter Field:=2, Criteria1:=ActiveSheet.Range("A5").Value .AutoFilter Field:=4, Criteria1:=ActiveSheet.Range("B5").Value .AutoFilter Field:=9, Criteria1:=ActiveSheet.Range("C5").Value End...

Hello, i use the following code, which might be long winded but works, I just need to change the criteria , so if range G17 is blank it just returns the results based on C11 and C20. currently it will return "no Matches found" Is there any code to do this? Sheets("cases available...

Hi, I am trying to run 2 codes one after the other but wont run. I am able to run it separately which i have no issues. Below is the code i used to run both. Sub Run_Both Call ADDCLM Call Temp End Sub ____________________________________________________________________________________...

Hello All... '**************** Build Zone 1 ******************** Sheets("Alignment").Select With Range("B4:AG1300") .AutoFilter Field:=12, Criteria1:="1-1" Range("B4:AG1300").Copy Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Zone 1" Range("A3").Select Selection.PasteSpecial...

Hello, Currently I'm copying group data range by JOB ID from Sheet1 to Sheet2. So table for example please see below: Grouping JOB IDs then sending them to Sheet2. This works fine as a group at a time when requested. Once the data has been sent to Sheet2 it needs to sort by LENGTH + JOB IDs...

Hi I need to paste only the values but when I add it to my code it always gives me an error. With Rng .AutoFilter , field:=1, Criteria1:=STBT_Group_1.Value .Offset(1).SpecialCells(xlCellTypeVisible).Range(Cells(i, "A"), Cells(LASTROW, "D")).Copy _...

RE: is there a shorter, more elegant way of doing this... ...this code works great but seems way too long and cumbersome. Would anyone know how to perform this autofilter variable search operation and copy the results to the REPORT sheet to display a userform with the results as shown in this...

Hey guys, Need to say if all this auto filter is met then - field:=27 (TH SENT) Possible? Even though I'm ensuring it's blank. Sub THSchedule() Application.ScreenUpdating = False Dim GutterWS As Worksheet ''DESTINATION SHEET'' On Error Resume Next Set TB = ActiveWorkbook Set OB =...