Search multiple worksheets and fetch column values conditionally

[sofas]

Welcome. Can you help me get a code that enables me to search in all the sheets of the workbook in row 9 for the value of cell A2 sheet 1 and fetch the data in the target column, provided that there is the word (ok) in column d and copy it in sheet 1 column U starting from cell u10

 

[mumps]

Try:

Sub CopyCell()
    Application.ScreenUpdating = False
    Dim ws As Worksheet, desWS As Worksheet, fnd As Range, Val As String, x As Long: x = 10
    Set desWS = Sheets("Sheet1")
    Val = desWS.Range("A2").Value
    For Each ws In Sheets
        If ws.Name <> "Sheet1" Then
            Set fnd = ws.Rows(9).Find(Val, LookIn:=xlValues, lookat:=xlWhole)
            If Not fnd Is Nothing Then
                If ws.Range("D9") = "ok" Then
                    desWS.Range("U" & x) = fnd
                    x = x + 1
                End If
            End If
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

 

[sofas]

Try:

Sub CopyCell()
    Application.ScreenUpdating = False
    Dim ws As Worksheet, desWS As Worksheet, fnd As Range, Val As String, x As Long: x = 10
    Set desWS = Sheets("Sheet1")
    Val = desWS.Range("A2").Value
    For Each ws In Sheets
        If ws.Name <> "Sheet1" Then
            Set fnd = ws.Rows(9).Find(Val, LookIn:=xlValues, lookat:=xlWhole)
            If Not fnd Is Nothing Then
                If ws.Range("D9") = "ok" Then
                    desWS.Range("U" & x) = fnd
                    x = x + 1
                End If
            End If
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

Thank you. I hope you can fix the error in this topic so that I can complete what I need, please

Copy data from several sheets to the master

Welcome. I'm trying to copy data from several specific sheets to the main one. But I'm having a problem copying data over each other. Can you please correct the error? Is there a possibility to add another condition so that all sheets in row 9, starting from column U, are searched for the value...

www.mrexcel.com

 

[mumps]

The macro already searches for the value in row 9 of each sheet and copies the values into column U starting in row 10 of Sheet1. If that is not happening, could you upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary).