Okay, try this code then (do not forget to change the worksheet names)...
Sub ProcessPerColumns()
Dim X As Long
Dim Z As Long
Dim LastRow As Long
Dim LastOutputRow As Long
Dim Output1 As String
Dim Output2 As String
Dim Output3 As String
Dim NumberDate As Range
With Worksheets("DataSheet")
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For X = 2 To LastRow
Set NumberDate = .Range("A" & LastRow & ":B" & LastRow)
Output1 = .Cells(X, "A").Value
Output2 = .Cells(X, "B").Value
Output3 = ""
For Z = 3 To 10 'Columns C thru J
If .Cells(X, Z).Value Like "[Tt]" Then
If Len(Output3) > 0 Then Output3 = Output3 & ", "
Output3 = Output3 & (Z - 3)
End If
Next
With Worksheets("OutputSheet")
LastOutputRow = .Cells(.Rows.Count, "A").End(xlUp).Row
If LastOutputRow = 1 And .Range("A1").Value = "" Then
LastOutputRow = 0
End If
.Cells(LastOutputRow + 1, "A").Value = Output1
.Cells(LastOutputRow + 1, "B").Value = Output2
.Cells(LastOutputRow + 1, "C").Value = "'" & Output3
End With
Next
End With
End Sub
--
Rick (MVP - Excel)
ILoveMyCorgi said:
Thanks! I changed the code renaming the worksheets and the code ran!
Unfortunately, instead of having the result in one cell, I wanted to have
the
output in three separate columns; i.e., cola 1234 colb 08/25/2008 COLC
1,2,3.
I also wanted the "1,3,5" if columns Per1, Per3, and Per5 had a T in it...
I
hope you can help me with this. Thanks, everyone!
