VBA
37 TopicsPrinting based on Cell value - VBA???
Hello All - first time post. Not a rookie to Excel, but no expert either. I am stuck trying to automate a print function. I have a table which is 4 columns as follows: Full Name | Rating | Comments | Performed By In the "Preformed by" field, i have my staff, and there are repeats of staff. So this column (column D) has repeats of "John Smith" (3x), Sam Jones (4x), Mike Adams (1x). Each of the other columns, while there may be repeating information, should be treated as independent data (so a name of Sue Smith, which may repeat once or twice is not related to the important column of "Performed By"). I want to print each range of values for a particular staff person on an individual page (or pages if necessary) to hand out to that person individually. So is staff person John Smith has 5 reviews, that the customer name, the rating and comments all print on a single page, in a table format in the same manner as though I manually selected that range of values and printed using the "Print Selected" function. I have attached a sample spreadsheet to demonstrate. I need each staff person's reviews, customer name and rating to print on a single page based on the staff persons name. ONE CLICK or FUNCTION I have 30 staff, each with more than a few ratings to print for them, so I am looking for a way to automate this in some way, and I figure VBA is probably the best option..? I am open to providing more input as needed. Feel free to ask. Thanks so Much Justin Michigan4.7KViews1like4CommentsNeeds Help with Some Editing of A Code
Help me edit this code to achieve this end result. As much as possible, please keep the format the same for "select case" and "Loop" Sub QuestionFive() Dim r, c As Integer Do While r < 20 r = 1 Do While c < 20 c = 1 Select Case Cells(20, 20) Case (r + c) Mod 2 Cells(r, c).Interior.Color = RGB(255, 255, 0) Cells(r, c).Interior.Color = RGB(255, 255, 255) End Select r = r + 1 Loop c = c + 1 Loop E nd SubSolved1.8KViews1like5Comments