Snasui Excel Forum

Code: Select all

Dim i As Integer
'Other code
For r = 3 To LoopCount
    inputName3 = Worksheets("Filter").Range("B3").Offset(i, 0).Value
    Sheets("Data").Select
    ActiveSheet.Range("$A$1:$C$2000").AutoFilter Field:=1, Criteria1:=inputName3 _
    , Operator:=xlOr, Criteria2:="=AAA"

    Call Connect_DATA_Output
    Call DeleteA

    Sheets("Filter").Select
    Range("i1").Select
    i = i + 1
Next r
'Other code

Code: Select all

 
inputName3 = Range("B3")
inputName4 = Range("B4")
inputName5 = Range("B5")
inputName6 = Range("B6")
inputName7 = Range("B7")
'inputName1000 = Range("B1000")

Code: Select all

 
Dim AN As Integer
Sheets("Filter").Select
Range("A1").Select
LoopCount = Range("D1")
'#############  Filter LAG sent to Data ###################
For r = 3 To LoopCount
         Sheets("Data").Select
         ActiveSheet.Range("$A$1:$C$2000").AutoFilter Field:=1, Criteria1:=Range("b3").Offset(i, 0) _
        , Operator:=xlOr, Criteria2:="=AAA"
Call Connect_DATA_Output
Call DeleteA
         Sheets("Filter").Select
         Range("i1").Select
         i = i + 1
          Next r
End Sub

Code: Select all

Dim i As Integer
'Other code
For r = 3 To LoopCount
    Sheets("Data").Select
    ActiveSheet.Range("$A$1:$C$2000").AutoFilter Field:=1, Criteria1:=Range("b3").Offset(i, 0) _
   , Operator:=xlOr, Criteria2:="=AAA"

   Call Connect_DATA_Output
   Call DeleteA

   Sheets("Filter").Select
   Range("i1").Select
   
   i = i + 1
   
Next r
'Otercode

Code: Select all

 
 Sub Filter_DATA_to_OutPut()
Dim AN As Integer
Sheets("Filter").Select
Range("A1").Select
LoopCount = Range("D1")
inputName3 = Range("B3")
inputName4 = Range("B4")
'inputName1000 = Range("B1000")
'#############  Filter LAG sent to Data ####
For r = 3 To LoopCount
         Sheets("Data").Select
         ActiveSheet.Range("$A$1:$C$2000").AutoFilter Field:=1, Criteria1:=inputName3 _
        , Operator:=xlOr, Criteria2:="=AAA"
Call Connect_DATA_Output        
Call DeleteA
         Sheets("Filter").Select
         Range("i1").Select
 Next r
End Sub