Find common word and transpose 4 rows eachtime in activesheet range

[sroysroy]

How to edit the code to work in SHEET1 (Range A1 To A10000). FINE appears multiple times with in the Range A1 To A10000.

Sub Macro1()


Cells.Find(What:="FINE", After:=Range("A2"), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

ActiveCell.Resize(3, 1).Select
Selection.Copy

ActiveCell.Offset(, 4).Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

[stnkynts]

Please Login or Register  to view this content.

[sroysroy]

The transpose i snot working.

[stnkynts]

The transpose i snot working.

That is correct. I missed that part.

Please Login or Register  to view this content.

[sroysroy]

sir now nothing is happening.

[stnkynts]

Submit your workbook because it worked just fine for me when tested. Make sure to include a before and after on your submitted workbook.

[sroysroy]

sir i want the vba to run in all sheets except sheeta and sheetb.

[sroysroy]

I want to run the code in all sheets except sheetA and SheetB. and want the transposed data in B18 of each sheet.

[JOHN H. DAVIS]

@ sroysroy - Just provide a sample Before and After for one sheet, so we can be sure of what you're after. We can edit it for the entire workbook later.

[sroysroy]

JOHN H. DAVIS Please find the attachment. I have two key words "FINE" and "SINE2" and output example starts from A18. VBA should not work on sheetA and SheetB. Thanks in advance. PS: Copy only 3 rows for VBA output.

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[sroysroy]

Sir, I am not getting the FINE output as in the excel workbook i,e in B18:D18.
And also not the SINE2 output in B20.

[JOHN H. DAVIS]

I thought you wanted it on the found row. Try.

Please Login or Register  to view this content.

[sroysroy]

SlNE2 code is not working ! and is about getting the merged output in a single cell i.e .Cells(20, "B"

[JOHN H. DAVIS]

Try:

Please Login or Register  to view this content.

Try formating your Column A to text.

[sroysroy]

Thank you john h. Davis

[JOHN H. DAVIS]

You're welcome. Glad to help out and thanks for the feedback.

[sroysroy]

if I want 100 rows for .Cells(z.row + 1, "A") ? can we give it a rangewith : ?

[sroysroy]

How to give a range (if i have 100 rows then) here sir instead of

Please Login or Register  to view this content.

That appears in below code

Please Login or Register  to view this content.

[sroysroy]

john h. Davis I sent you a PM.

[JOHN H. DAVIS]

Try:

Please Login or Register  to view this content.