put info next cell (column)

[itselflearn]

Hi. Here is the scenario I would like to get help:

column A: has bunch of data or info. I am looking for specific words like BEG. Once I located the BEG I would like to copy only the cell below it where it says PO1 (there may be 2 or 3 cells that contain PO1 - I would like to put them in Column B next to BEG. Each BEG should have PO1 info beside it (Column B). Please help. Thank you.

[arlu1201]

It will be good if you explain with the help of a sample file.

To Attach a File:

1. Click on Go Advanced
2. In the frame Attach Files you will see the button Manage Attachments
3. Click the button.
4. A new window will open titled Manage Attachments - Excel Forum.
5. Click the Browse... button to locate your file for uploading.
6. This will open a new window File Upload.
7. Once you have located the file to upload click the Open button. This window will close.
8. You are now back in the Manage Attachments - Excel Forum window.
9. Click the Upload button and wait until the file has uploaded.
10. Close the window and then click Submit.

[itselflearn]

Hi. Please see attached file. Thank you.

[arlu1201]

Try this code

Option Explicit

Sub update_POI()
Dim lrow As Long, i As Long, startrange As Long, val As Long, lcol As Long

Application.ScreenUpdating = False

With Worksheets("Sheet1")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 1 To lrow
        If .Range("A" & i).Value Like "BEG*" Then
            startrange = i
        ElseIf .Range("A" & i).Value Like "PO1*" Then
            val = Mid(.Range("A" & i).Value, 7, 1)
            lcol = .Range("IV" & startrange).End(xlToLeft).Column
            .Cells(startrange, lcol + 1).Value = val
        End If
    Next i
End With

MsgBox "Done"

Application.ScreenUpdating = True

End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose Tools | Macro | Macros
Select a macro in the list, and click the Run button

[itselflearn]

WOW!!!! you are amazing. It works perfectly. Thank you very very much I appreciated all your time and effort on helping me. Thank you again.

[arlu1201]

Am glad it works.

Based on your last post in this thread, its apparent that you are satisfied with the solution(s) you've received and have solved your question, but you haven't marked your thread as "SOLVED". I will do it for you this time.

In future, to mark your thread as Solved, you can do the following -
Select Thread Tools-> Mark thread as Solved.

Incase your issue is not solved, you can undo it as follows -
Select Thread Tools-> Mark thread as Unsolved.

Also, since you are relatively new to the forum, i would like to inform you that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post which helped you. This adds to the reputation of the person who has taken the time to help you.

[itselflearn]

Thank you Arlu1201. I have another relevant scenario. instead of placing the numbers by column, is it possible to do it by row:

When I run the macro the numbers get placed from column B, C, D...
I would like to place it from column B, then goes down into next row or cell below and so on..

Thank you again. I appreciated all your help.