adding conditional rows

D

Deepak Varde

Hello, I want to be able to have rows/cells generated with a certain text
based on the answer given by a user.
For example, My question in a cell could be "how many groups have you made?".
Now to this if the user answers "3" then I would want three cells below to
ask "what is the name of your first group", "what is the name of your second
group" and so on. Based on this further questions could be asked.
 
B

Bob Phillips

As a astarter

Sub Macro1()
Dim ans
Dim i As Long
Dim sName As String

ans = InputBox("How many groups have you made")
If ans <> "" Then
ActiveCell.Offset(1, 0).Resize(3).Insert
For i = 1 To ans
sName = InputBox("What is the name of group #" & i)
ActiveCell.Offset(i, 0).Value = sName
Next i
End If

End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
D

Deepak Varde

Hello Bob,
Can I do this without the VB? I dont know how to program macros or any form
of VB. I was looking more towards understanding the concept and then
applying. If there is no way then I would try and understand the solution
that you've provided.
 
B

Bob Phillips

Not really. You might be able to get some way with conditional
formulae/formatting, but not for the sort of flexibility that you seek.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
D

Deepak Varde

thank you bob, your help was indeed very useful. Now could you pls tell me,
what reading material should I refer to, to understand programming macros?
 
D

Deepak Varde

Dear Bob,

In the solution provided by you, how do I assign a perticular cell to
capture/store the user inputs from the questions answered in the inputbox

Regards,
Deepak
 
D

Don Guillett

If I properly understand you, Bob provided that in his first post
another idea

range("a1").value=inputbox("your question")
 
B

Bob Phillips

Deepak,

Do you understand how to use variables? I ask as I showed you that first
post up, but I think you may not have understood.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
Top