Help with excel macros

Question

Good morning:
I need help with a macro that let me solve the following situation:
1. I have an excel file with the following format:
Book
Chapter
Verse
60
5
7
43
14
1
50
4
6
50
4
7
51
3
15
23
26
3
2. First I want to convert the file to this format:
60.5.7
43.14.1
50.4.6
50.4.7
51.3.15
23.26.3
3. And finally to export them to a file called Bookmarks.xls with the format:
bgroup
verses
Default
60.5.7, 43.14.1, 50.4.6, 50.4.7, 51.3.15, 23.26.3
I have some 40 files that need to be converted. All have the same format but the number of rows varies. By the way I am using Excel 10.
Your help with this matter will be greatly appreciated.

Answer 1

Perhaps you can use this as starting point:
Sub Transform()
Dim wshS As Worksheet
Dim wbkT As Workbook
Dim wshT As Worksheet
Dim r As Long
Dim m As Long
Application.ScreenUpdating = False
Set wshS = ActiveSheet
m = wshS.Range("A" & wshS.Rows.Count).End(xlUp).Row
Set wbkT = Workbooks.Add(xlWBATWorksheet)
Set wshT = wbkT.Worksheets(1)
wshT.Range("A1") = "bgroup"
wshT.Range("B1") = "verses"
wshT.Range("A2") = "Default"
For r = 2 To m
wshT.Cells(2, r) = wshS.Cells(r, 1) & "." & wshS.Cells(r, 2) & _
"." & wshS.Cells(r, 3)
Next r
Application.Dialogs(xlDialogSaveAs).Show
Application.ScreenUpdating = True
End Sub
Regards, Hans Vogelaar (http://www.eileenslounge.com)