Excel Problem

[SM]

I have some sheets
In every sheet i have a date betwin C50:C80
and the import betwin D5090
Is possible that the solution is in other sheet.............?
1-Name sheet
2-Date (C50:C80)
3-Import (D5090)

Thanks

Marcello

 

[Bob Phillips]

Marcello,

I am not absolutely clear as to what you need, but here is an initial stab
at it

Sub CopyData()
Dim i As Long
Dim sh As Worksheet

i = 1
workheets("Other Sheet").Activate
For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> ActiveSheet.Name Then
sh.Range("C5090").Copy ActiveSheet.Range("A" & i)
i = i + 41
ActiveSheet.Range("A" & i).Resize(41).Value = sh.Name
End If
Next i

End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

I have some sheets
In every sheet i have a date betwin C50:C80
and the import betwin D5090
Is possible that the solution is in other sheet.............?
1-Name sheet
2-Date (C50:C80)
3-Import (D5090)

Thanks

Marcello

 

[SM]

I have some sheets 1;2;3;4; ETC.................
I would like the new page list release with one botton:
A1-nome de sheet
A2-Date(C50:C80)
A3-Import (D5090)


Best regards

Marcello

 

[SM]

Hi Bob Phillips
Don't work.
Regards
Marcello

I have some sheets 1;2;3;4; ETC.................
I would like the new page list release with one botton:
A1-nome de sheet
A2-Date(C50:C80)
A3-Import (D5090)


Best regards

Marcello