VB Code to insert column headers

[jose001]

Morning everyone,

I've been struggling with a little job I started yesterday and its slowly driving me mad! I have a pretty simple form which feeds some info into excel. Does anyone have any idea what code I would need to get it to insert specific headers into the sheet?

 

[Lewiy]

Can you perhaps give an example of the form and code you have alreaddy, where the headers are coming from and where you want them to go?

 

[jose001]

Hi Lewiy,

After a lot of messing around I've finally sorted this, allbeit in a very drawnout way. Nevertheless, I am now left with one final hurdle, with your help my form now generates sheets and gives them the title obtained from one of the input fields. I would now like to add a summary sheet which will go into every sheet and oull out the information from two of the cells and put it on the summary. I could do it easily if I knew the name of every sheet but they are generated buy everyone in the team. Any ideas?

 

[Lewiy]

You can use this method to cycle through all of the sheets in the workbook (except one named "Summary")

Dim wb As Workbook
Dim sh As Worksheet
Set wb = ThisWorkbook
For Each sh In wb.Workbooks
    If sh.Name <> "Summary" Then
        'do stuff here
        '"sh" will refer to the current worksheet in the loop
        'e.g:
        'sh.Range("A1").Value
        'will return the value of cell A1 in each of the sheets in
        'the workbook one at a time
    End If
Next sh

 

[jose001]

Thanks for this code lewiy! Sadly I can't manipulate it to get it to work. I'm trying to get the code to go through all of the sheets and pull out the info from cell A2 and pop it in cell B6 of my summary sheet and then cell A3 and pop that into C6. The thing is, because there are many sheets I will need this process to repeat filling each row from B6 down with the information from the other sheets. Help!!