Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Is there any way to solve this problem ?
Hi all!
I got a problem with my macro... this is basically macro for sorting questions and answers from 2 sheets into a new one. The result looks like this : ----------------------------------------------------------------------------------- | A | B | C | ----------------------------------------------------------------------------------- | 1 | Who was the first... | | ----------------------------------------------------------------------------------- | | Lincoln | | ------------------------------------------------------------------------------------- | | Washington | + | ------------------------------------------------------------------------------------- | | Clinton | | -------------------------------------------------------------------------------------- | 2 | The only animal... | | ---------------------------------------------------------------------------------------- | | leopard | | ---------------------------------------------------------------------------------------- ...... My question : is there any way to insert : 1) a), b), c), d)... before the answers 2) blank row indent between 2 questions to make one more sheet with the correct answers, ex. : 1 C, 2 B, 3 D and so on.. Here's my code : Sub macro1() ' ' gsnuxx ' rev 1 ' k = 1 Set q = Sheets("questions") Set a = Sheets("answers") Set qa = Sheets("qa") nq = q.Cells(Rows.Count, "A").End(xlUp).Row na = a.Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To nq n = q.Cells(i, 1).Value qa.Cells(k, 1).Value = n qa.Cells(k, 2).Value = q.Cells(i, 2).Value qa.Cells(k, 2).Font.Bold = True k = k + 1 For j = 1 To na m = a.Cells(j, 1).Value If m = n Then qa.Cells(k, 2).Value = a.Cells(j, 2).Value If a.Cells(j, 3).Value = 0 Then qa.Cells(k, 3).Value = " " Else qa.Cells(k, 3).Value = "+" End If k = k + 1 End If Next Next End Sub Ty in advance ! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
CAN ANYONE PLEASE SOLVE MY PROBLEM | Excel Programming | |||
Please solve this problem. | Excel Worksheet Functions | |||
How to solve this problem? | Excel Programming | |||
Problem when multipple users access shared xl-file at the same time, macrocode for solve this problem? | Excel Programming | |||
A problem to solve, a little help | Excel Programming |