Romano_odK
Active Member
- Joined
- Jun 4, 2020
- Messages
- 379
- Office Version
- 365
- Platform
- Windows
Good afternoon,
This code (again from Peter) works fine for my sheet. Its uses the 3rd column [Verkoopprijs] and checks the column next to it if the numbers are different. Now in the Table I have another set of columns next to each other that needs to be compared and filtered the same way, column [Kostprijs], column K (11th) and the one next to it. I can't seem to figure out how to change the code correctly. Who can help me?
Thank you for your time.
This code (again from Peter) works fine for my sheet. Its uses the 3rd column [Verkoopprijs] and checks the column next to it if the numbers are different. Now in the Table I have another set of columns next to each other that needs to be compared and filtered the same way, column [Kostprijs], column K (11th) and the one next to it. I can't seem to figure out how to change the code correctly. Who can help me?
Thank you for your time.
VBA Code:
With Range("Table_Query_from_A100[Verkoopprijs]")
.Value = Evaluate(Replace("if(#=" & .Offset(, 1).Address & ",True,#)", "#", .Address))
End With
With Range("Table_Query_from_A100[#All]")
.AutoFilter Field:=3, Criteria1:="TRUE"
' If .Columns(1).SpecialCells(xlVisible).Count > 1 Then .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
' .AutoFilter Field:=3
End With