Sorry, can't post. It's company property. I've set up 2 files. 1 for the customer to fill in. A second with the code to generate the CSV's with.
To get you started i can show you some of de macro programming. After the part below, all columns are merged together with a comma seperating the data, and stored as a CSV file. Columns are filled in order:
1. Group Name
2. Extension
3. Ringmode (seq, coll, coll CW, etc..)
4. Queing (y/n)
5. Voice mail (y/n)
6. VM Broadcast (y/n)
============================
Sub Export_Groups()
k = 1
While Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 1) <> ""
GrRingMode = Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 3)
Select Case GrRingMode
Case "Collective"
Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 3) = "1,0,0,0"
Case "Sequential"
Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 3) = "0,1,0,0"
Case "Rotary"
Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 3) = "0,0,1,0"
Case "Longest waiting"
Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 3) = "0,0,0,1"
End Select
GrQueueing = Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 4)
Select Case GrQueueing
Case "Yes"
Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 4) = "1"
Case "No"
Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 4) = "0"
End Select
GrVoiceMail = Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 5)
Select Case GrVoiceMail
Case "Yes"
Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 5) = "1"
Case "No"
Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 5) = "0"
End Select
GrVMBroadcast = Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 6)
Select Case GrVMBroadcast
Case "Yes"
Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 6) = "1"
Case "No"
Workbooks("Config Conversion").Sheets("Huntgroup").Cells(k, 6) = "0"
End Select
k = k + 1
Wend
End Sub
Johan W.
ACIS-SME
ACSS-SME
APSS-SME