vba code to concatenate text at each end of page report from right to left page

**JEAN1972** · 09-02-2017, 09:42 AM

I have a sheet of several pages from report where I concatenate page and page no from column H and I to column A .

Actually doing this manually

Looking for a vba solution

**jindon** · 09-02-2017, 09:51 AM

This should do

Sub test()
    Dim r As Range, ff As String
    Set r = Columns("h").Find("page number:", , , 1)
    If Not r Is Nothing Then
        ff = r.Address
        Do
            r(, -6).Value = r.Value & r(, 2).Value
            Set r = Columns("h").FindNext(r)
        Loop Until ff = r.Address
    End If
End Sub

**Mumps1** · 09-02-2017, 10:02 AM

Try:

Sub JoinCells()
    Application.ScreenUpdating = False
    Dim sAddr As String
    Dim foundVal As Range
    Set foundVal = Range("H:H").Find("Page Number:", LookIn:=xlValues, lookat:=xlWhole)
    If Not foundVal Is Nothing Then
        sAddr = foundVal.Address
        Do
            Range("A" & foundVal.Row) = foundVal & foundVal.Offset(0, 1)
            Set foundVal = Range("H:H").FindNext(foundVal)
        Loop While foundVal.Address <> sAddr
        sAddr = ""
    End If
    Application.ScreenUpdating = True
End Sub

**JEAN1972** · 09-02-2017, 10:45 AM

jindon & Mumps1 thank you both for solution provided

Worked as requested

**Mumps1** · 09-02-2017, 10:47 AM

Glad it worked out.

vba code to concatenate text at each end of page report from right to left page

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

vba code to concatenate text at each end of page report from right to left page

Re: vba code to concatenate text at each end of page report from right to left page

Re: vba code to concatenate text at each end of page report from right to left page

Re: vba code to concatenate text at each end of page report from right to left page

Re: vba code to concatenate text at each end of page report from right to left page

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Help with an existing VBA code to transfer data to 1st page then to overflow page 2.

code to display next page of multipage form based on answer to questions on existing page

[SOLVED] Vba code to start page numbers from current page (bottom of the pate right side)

Excel 2007 : One page of wkbk grabbing text from another page

Printing one page grayscale and one page color with code

Login to Web Page and the Search Page for Text

[SOLVED] How do I save one page out of a 80 page report in excel?

Bookmarks

Bookmarks

Posting Permissions