cycle sheets and capture data

[jose001]

Thanks for the help everyone over the few days! I still have one more little query though if anyone can help me out. Lewiy has given me some code http://www.mrexcel.com/board2/viewtopic.php?p=1370688#1370688 which will cycle through my sheets and pull out some data from specific cells. Sadly I cant get it to work though. 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!!

 

[iggydarsa]

something like this maybe?

Sub TransferData()
Dim i As Long: i = 6
For Each sh In Worksheets
    If sh.Name <> "Summary" Then
        Worksheets("Summary").Range("B" & i).Value = sh.Range("A2").Value
        Worksheets("Summary").Range("C" & i).Value = sh.Range("A3").Value
        i = i + 1
    End If
Next sh
End Sub

 

[jose001]

Hi Iggy,

I've copied this code and attached it to a button but it's not working any ideas?

 

[jose001]

Hi Iggy,

I've copied this code and attached it to a button but it's not working any ideas?

 

[iggydarsa]

do you have a sheet named Summary?

 

[jose001]

I did, but I've changed it to index now but I did update the ref in your code. I basically have two main sheets 'index' and 'actions'. the index tab has a useform which takes the data, opens a new sheet and calls it whatever is in the first field of the userform and then inserts the rest of the data. I have a button on the actions sheet which I would like, when pressed, to go into every sheet bar index and actions, look in cells A2 and B2 and present the information in a table in actions. The sheets will be deleted and added on a regular basis.

Jose

 

[iggydarsa]

I sent you a private msg, please check it out.