Command button prompt to input 2 columns of data

[Cazzdevil]

Hi all!

Following some great help from a forum member last night, my new Time in Motion sheet is coming along nicely with some snazzy programmed Command Buttons to fill data into another sheet.

One of my buttons is for 'other' tasks, so I'd like to programme a button to prompt first for a number of minutes (e.g. 30), and then a brief description (e.g. Meeting) and input the data side-by-side in 2 columns on sheet 2.

This is what I have for my other single-entry buttons, so what would I need to add?

Dim ans As String
ans = InputBox("Case reference:", "Data Entry")
Sheets("Sheet2").Range("F" & Sheets("Sheet2").Range("F" & Rows.Count).End(xlUp).Row + 1).Value = ans

Much appreciated xx

 

[ozbod]

Cazzdevil (aka Excel geek)

Two ways to do it. Simple quick one but is lesser user experience

Dim ans1, ans2 As String

' two input boxes to get both answers
ans1 = InputBox("Number of minutes:", "Data Entry")
ans2 = InputBox("Brief Description:", "Data Entry")

'Get the next available row number based on column A
nNextAvailableRow = Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Row + 1

'Cells is based on Cells(Row,Column) so the column reference wouold be the appropraite column number eg A = 1, B = 2
Sheets("Sheet3").Cells(nNextAvailableRow, 1) = ans1
Sheets("Sheet3").Cells(nNextAvailableRow, 2) = ans2

Better way would be to use a UserForm with two text boxes for the user to complete at one time

In that scenario you would replace ans1 and ans2 with UserForm1.Textbox1.Value and UserForm1.TextBox2.Value