Please Help With find function VBA

Hy all masterminds,


I need a help to create a macro.
first open the excel sheet from sheet 1 cell B5 copy the no(changeable) then find in Sheet 2(where it is) then copy from Sheet 1 B7 to B10 & then paste it to sheet 2 opp. of the no. (transpose)

I am still bad at using find functions in snippet, please help , thanks for you and your time !!


please find the attached file , its too simple and small one!

Rof.xlsx

In your sample workbook, on sheet2, you have duplicate values in column C. How is Excel supposed to know which row to transpose the data into? Or is your sample data not an accurate representation of your real data?

Thank you paul to bring that to me into notice!!

if the value is repaeating in c column the same data which we are transposing should come just opposite to both the values

Hi try this

Sub aa()
Dim f, f1 As Range
Dim arr As Variant
Dim x As Long
Set f1 = Worksheets("sheet1").Range("b7:b10")
f = Worksheets("sheet1").Range("b5").Value
arr = Worksheets("sheet2").Range("c4:c23")
For x = LBound(arr) To UBound(arr)
    If arr(x, 1) = f Then
        Worksheets("sheet2").Cells(x + 3, 5).Resize(, 4) = Application.Transpose(f1)
    End If
    Next
End Sub

Repp added dear tom !! thank u so much @!!

Thx.
Remember that this code works on this sample (You have to adjust this to original file - have fun )