<
Set WS = Sheets(“COSHOCTON”) ‘<<< Change as needed
Set rng = WS.Range(“A4:Z100?) ‘<<

I am very new to VB coding. I have the following code, crude as it may be, to filter one sheet and copy data to another workbook sheet.
I would like it to only copy the first 4 colums (cells) in the row found. Everytime I change the copy argument from EntireRow to anything
else it gives me an error.

Thanks in advance for any help

Sub Test2()

Dim WS As Worksheet
Dim WSNew As Worksheet
Dim rng As Range
Dim Str As String
Dim wbk As Workbook

‘strFirstFile = “c: empPavement MarkingTest.xlsm”
strSecondFile = “c: emp2012 Fast Dry Test.xlsm”

Set WS = Sheets(“COSHOCTON”) ‘<<< Change as needed
Set rng = WS.Range(“A4:Z100?) ‘<< 0 Then

Err.Clear
End If
On Error GoTo 0

End Sub

The header must be included for the criteria and the filter range! How else would excel be able to match the fields with the filters.

I have just tested this method, and used it for my own purposes, runs very fast and very flexible

If Worksheets(“Sheet1?).FilterMode = True Then
MsgBox “Filter mode is on”
Else
MsgBox “Filter mode is off”
End If

FYI — I don’t have a copy of the old code I used to use, but I think under office 97/2003 Excel, there may have been a different property. As I no longer have access to the older software, I can only verify this works on Office 2007 (even in XLS sheets that are supposedly compatible with the older release). Past experience shows you must test code in each release you plan to use it, otherwise the unexpected can occur.

But in the spirit of sharing – here’s what I did with above code to use it in my sheet and a little explanation on it:

Sub toggle_dataFilters_OnOff()
‘ To use this code – create a replacement for goTo_startOfProdCol or simply put in a range that positions
‘ the active cell to start of first column in your sheet

‘ this sub activates the “data area” of a workbook where all sheets have the same continuous data area
‘ starting with a “products column”. relative references make the macro re-usable on any sheet of same setup
‘ If condition will turn filters off if filter is already on
‘ code is then called by button called “Turn filters on/off” re-used on each sheet of the workbook:

If ActiveSheet.FilterMode = True Then
‘ MsgBox “Filter mode is on”

goTo_startOfProdCol
‘ this is my own sub – positions activecell at top of my “products” column
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
‘ this extends to end of sheet – where my data area ends

Selection.AutoFilter
Else
‘ MsgBox “Filter mode is off”

Selection.AutoFilter
End If

End Sub

I was wondering if someone could help with some VBA.

I have a list of information that I would like to filter with multiple criteria in one column. So, for example column B would contain numbers and I want to filter it to display just those rows who’s values are, say, 10, 20 and 30.

I have the criteria, currently, initialised as an array within the VBA code; the values do not exist on the spreadsheet so I can’t reference a Range on the sheet. I’ve spent a bit of time tinkering around with various bits, but have had no success at the moment!

Any pointers would be gratefully received,

Thanks in advance …

Steve.

I need a filter function, the inputs for the filter are in three combo boxes. The filtered results should open in a seperate window.

Please help
Manju

Please add that to the top. Code was simple enough and didn’t occur to me to double check the copy/paste.