Extract data with 2 criteria

[marreco]

Hi.
I have a worksheet called "agenda" and another called "Result"

I need to return the worksheet "Output" the "Clients" (which is in worksheet "agenda"), according to cell "C1" and cells "A2", "C2", "E2", "G2", "I2 "plnilha the" Result "

I did a manual example for you, can understand.

[Excel Fox]

marreco, try this to start for

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range
    If Target.Address(0, 0) = "C1" Then
        With Worksheets("AGENDA")
            For Each rng In .UsedRange.Rows(1).Find(What:=Me.Range("C1").Value, LookAt:=xlWhole).MergeArea.Cells(1).Offset(2, 2).Offset(, -2).Resize(.UsedRange.Rows.Count - 1).Cells
                'Modification here'
            Next rng
        End With
    End If
    
End Sub

[marreco]

Hi.

I do not know much about vba.
I can not imagine how to continue.
but has a detail, your code should pull the spreadsheet data "ANGENDA" to the sheet "Result"

Thank you!!

[marreco]

Hi.

Any idea?

thank you!!

[marreco]

Hi.

Cross-Post
Extract data with 2 criteria

[Admin]

Hi

Put this code in the Result sheet module (Right click on tab Result > View code and paste)

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range
    Dim c   As Range, x, y
    
    If Target.Address(0, 0) = "C1" Then
        y = Range("a2:j2").Value2
        With Worksheets("AGENDA")
            Set c = .UsedRange.Rows(1).Find(What:=Me.Range("C1").Value, LookAt:=xlWhole).MergeArea.Cells(1)
            If Not c Is Nothing Then
                For Each rng In c.MergeArea.Cells(1).Offset(2).Offset(, 2).Resize(.UsedRange.Rows.Count - 2).Cells
                    x = Application.Match(rng.Value, y, 0)
                    If Not IsError(x) Then
                        Application.EnableEvents = False
                        Me.Cells(4, x) = rng.Offset(, -2).Value
                        Application.EnableEvents = True
                    End If
                Next rng
            End If
        End With
    End If
    
End Sub

[marreco]

Hi.
I do not know why but when you change the data in "C1" worksheet "Results" in nothing happens.

[Charles]

Hi,

I modified the code supplied by "Admin"
In this example I used a command button to populate the data to the "Result" sheet.
All you need to do is select the data in C1 and click Run.

[marreco]

Hi.

Yes!!, perfect!!

Thank you!!

[Charles]

Thanks,
Please check the spelling in row 2 of the "Result" sheet.
I changed it to that of the spelling in the "Activity" sheet.
Some of the words have a "-", but the Result sheet did not.
You need to make sur the spelling is the same in both sheets.