helped me with the following macro, but I was unable to remember his/her screenname. I'm trying to fix this macro to enlarge the range, but return the same data. Would someone be able to assist me?
Code:
Dim rngClients As Range
Dim mycell As Range
Dim startrow As Integer
Dim outputrow As Integer
startrow = 2 'Assumes data starts row 2
outputrow = 15 'output will start in row 15
'create Client range from start row + 5 extra rows
Set rngClients = Range(Cells(startrow, 5), Cells(startrow + 5, 10))
'Loop through all client cells and pick up the one's with amounts
For Each mycell In rngClients
If mycell <> "" Then
myfund = Cells(1, mycell.Column) 'Get the column header to identify client
myTD = Cells(mycell.Row, 1) 'for all clients in same row
mydeal = Cells(mycell.Row, 2) 'for all clients in same row
myyield = Cells(mycell.Row, 3) 'for all clients in same row
mySD = Cells(mycell.Row, 14) 'for all clients in same row
myMD = Cells(mycell.Row, 15) 'for all clients in same row
myamount = Cells(mycell.Row, mycell.Column) 'Get amount for Client
'output data starting row
'output data starting row
Cells(outputrow, 1) = myfund
Cells(outputrow, 2) = myamount
Cells(outputrow, 3) = mydeal
Cells(outputrow, 4) = myTD
Cells(outputrow, 5) = mySD
Cells(outputrow, 6) = myMD
Cells(outputrow, 7) = myyield
outputrow = outputrow + 1
End If
