Hi Rick,

Looks good to me so far. Quick query for you.

My data range is bigger than my example before. At present this goes
across 46 columns, how can I expand this to look @ all 46 columns
across?

Thanks in advance, Al.


On Feb 24, 7:35*pm, "Rick Rothstein \(MVP - VB\)"
wrote:
Give the following macro a try. Set the name of your worksheet in the With
statement (replace my sample Sheet1 name with your worksheet's actual name)
and change my sample file name of "c:\temp\test.txt" in the Open statement
to the path and filename where you want to output your information.

Sub CreateCSV()
* Dim X As Long
* Dim Y As Long
* Dim FF As Long
* Dim LastCell As Long
* Dim Text As String
* With Worksheets("Sheet1")
* * For X = 2 To 4
* * * LastCell = .Cells(Rows.Count, 1).End(xlUp).Row
* * * For Y = 2 To LastCell
* * * * If .Cells(Y, X).Value < "" Then
* * * * * Text = Text & """" & .Cells(1, X) & """,""" & _
* * * * * * * * * * * * * * * *.Cells(Y, 1).Value & """" & vbNewLine
* * * * End If
* * * Next
* * Next
* End With
* FF = FreeFile
* Open "c:\temp\test.txt" For Output As #FF
* Print #FF, Text
* Close #FF
End Sub

Rick

wrote in message

...



Hi,

Is it possible to do the following through VBA? *If so, would
appreciate your help with this.

I have a table within Excel that contains Roles in Row 1 and
Permissions within Column A. *I've then created a matrix of which
permissions link to which roles, this is shown through eiter a number
1 or y in the appropriate cell. *See below example of this data:

Accounts Payable System Admin IT User
AccessReportOps 1
AddApprovals 1 y
CatalogManager 1 y

So, using the above example data I'd need a text file to be created
with the following output:
"Accounts Payable","AccessReportOps"
"Accounts Payable","CatalogManager"
"System Admin","AddApprovals"
"IT User","AddApprovals"
"IT User","CatalogManager"

Appreciate your help on this.

Thanks, Al.- Hide quoted text -

- Show quoted text -