I have a macro that places people in a list on a grid by their capability rating and their result rating. the macro determines where they belong on the grid and thne places their name in the appropriate cell along with anyone else who belongs in that part of the grid.
After deciding what cell on the grid the person's name belongs in , I want to bold that ONE person's name AND somehow be able to click the person's name and have it go back to the person's name and record in the original record list(problem is i don't think you can link individual names within one cell).
Here is the code I am working with:
VB Code:
'If this is the first employee being added 'don't insert a comma before the name... If .Value = "" Then .Value = saEmployee(1, lRecordNum) '(1, lRecordNum) is the name of the employee Else '... otherwise append the employee to the 'list .Value = .Value & Chr(10) & saEmployee(1, lRecordNum) End If
After it is done listing the names, I have it resize the rows so it looks good. Problem here is that if someone has more than about 30 people in one cell, the row height is too large and you can't see some of the people's names. Here is the code and does anyone have any suggestions on getting around this? Is there any way to increase the max row height?
VB Code:
'now go back and autofit all the rows, and then re-size them based on a standard and add two to the ones above the standard rngGrid.Rows.AutoFit For Each rngCell In rngGrid.Columns(1).Cells If rngCell.RowHeight < 60 Then rngCell.RowHeight = 60 Else rngCell.RowHeight = rngCell.RowHeight + 2 End If


Reply With Quote