Auto Filter From Sh1 / Sh2

[Edgarvelez]

Hi all,

Cant quite figure this one out how to write the last line, I ma not writing it correctly.
I am filtering in sh2 based on sh1.

    Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = Sheets("DashBoard")
    Set sh2 = Sheets("Sheet1")
    Select Case sh1.Range("B3").Value
    Case "Sheet Line No."
    
   Dim Ary As Variant
With sh1.Range("A7", .Range("A" & Rows.Count).End(xlUp))
         Ary = .Worksheet.Evaluate("transpose(if({1}," & .Address & "&""""))")
      End With
   End With
      Sh2.("Sh1.Range("A2:G2").AutoFilter 1, Ary, xlFilterValues
End Sub

 

[Fluff]

You're welcome & thanks for the feedback.

 

[Edgarvelez]

Hi,

I have a problem, the code worked and filtered correctly, where I am having a problem is that I am running another code afterwards and is not working.
This is the code that I run separately afterwards

    Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet
    Set sh1 = Sheets("DashBoard")
    Set sh2 = Sheets("Sheet1")
    Set sh3 = Sheets("BOL")
  sh2.AutoFilter.Range.Range("C3", sh2.Range("C" & Rows.Count).End(3)).Copy
  sh3.Range("G23").PasteSpecial xlPasteValues
  sh2.AutoFilter.Range.Range("F3", sh2.Range("F" & Rows.Count).End(3)).Copy
  sh3.Range("F23").PasteSpecial xlPasteValues
End Sub

and it does not work, however if I filter the same but manually it works just fine, can't figure this out, can you help.

 

[Fluff]

You already have a thread running for this question, so you need to stick with that thread.

 

[Edgarvelez]

Sorry I was just trying to get this figured out.
Will stick with the other thread and hopefully I can get it solved. Thanks