S
StargateFanNotAtHome
Good Afternoon!
I'm hoping someone can help with a complicated script. I have two
very large workbooks to convert to an English and French version (they
currently have data in both languages, merged). I've thought and
thought about how to handle this about this and the easiest way is to
have Excel create 2 copies of each worksheet, sending those copies to
the end.
This is the the output we would need, from this: SHEET1, SHEET2,
SHEET3 ...
to this: SHEET1, SHEET2, SHEET3 SHEET1 E, SHEET1 F SHEET2 E,
SHEET2 F SHEET3 E, SHEET3 F ... (I don't think any of the tabs are
too long that the extra letter will be truncated out ... ... but
perhaps "error trapping" needed for that; I believe that's what it's
called?)
Can this be done?
Would this starting point help at all (from another script kindly
provided by this ng):
Sub WORKBOOK_Split_into_ENG_and_FRE()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In ActiveWorkbook.Worksheets
w.Copy
....
Thanks!!! D
I'm hoping someone can help with a complicated script. I have two
very large workbooks to convert to an English and French version (they
currently have data in both languages, merged). I've thought and
thought about how to handle this about this and the easiest way is to
have Excel create 2 copies of each worksheet, sending those copies to
the end.
This is the the output we would need, from this: SHEET1, SHEET2,
SHEET3 ...
to this: SHEET1, SHEET2, SHEET3 SHEET1 E, SHEET1 F SHEET2 E,
SHEET2 F SHEET3 E, SHEET3 F ... (I don't think any of the tabs are
too long that the extra letter will be truncated out ... ... but
perhaps "error trapping" needed for that; I believe that's what it's
called?)
Can this be done?
Would this starting point help at all (from another script kindly
provided by this ng):
Sub WORKBOOK_Split_into_ENG_and_FRE()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In ActiveWorkbook.Worksheets
w.Copy
....
Thanks!!! D