| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Input Box selects a cell location to use in code
I have the following simple code:
ActiveCell.FormulaR1C1 = "=TRIM(RC[5])&RC[11]" eg above concatenates the cells 5 & 11 columns along. What I want is for the user, by way of an input box, to be able to choose the columns, say 2 & 6. Can anyone help with this please? |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Input Box selects a cell location to use in code
This is one way:
firstCol = Application.InputBox("Enter First Column Number", "First Column", Type:=1) scndCol = Application.InputBox("Enter Second Column Number", "Second Column", Type:=1) ActiveCell.FormulaR1C1 = "=TRIM(RC[firstCol])&RC[scndCol]" "Archie" wrote: I have the following simple code: ActiveCell.FormulaR1C1 = "=TRIM(RC[5])&RC[11]" eg above concatenates the cells 5 & 11 columns along. What I want is for the user, by way of an input box, to be able to choose the columns, say 2 & 6. Can anyone help with this please? |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Input Box selects a cell location to use in code
Thanks, but I get application-defined of Object-defined error, so do I need
to add something else? "JLGWhiz" wrote: This is one way: firstCol = Application.InputBox("Enter First Column Number", "First Column", Type:=1) scndCol = Application.InputBox("Enter Second Column Number", "Second Column", Type:=1) ActiveCell.FormulaR1C1 = "=TRIM(RC[firstCol])&RC[scndCol]" "Archie" wrote: I have the following simple code: ActiveCell.FormulaR1C1 = "=TRIM(RC[5])&RC[11]" eg above concatenates the cells 5 & 11 columns along. What I want is for the user, by way of an input box, to be able to choose the columns, say 2 & 6. Can anyone help with this please? |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Input Box selects a cell location to use in code
Option Explicit
Sub testme() Dim FirstCol As Long Dim ScndCol As Long FirstCol = Application.InputBox("Enter First Column Number", _ "First Column", Type:=1) ScndCol = Application.InputBox("Enter Second Column Number", _ "Second Column ", Type:=1) ActiveCell.FormulaR1C1 = "=TRIM(RC[" & FirstCol & "])&RC[" & ScndCol & "]" End Sub Archie wrote: Thanks, but I get application-defined of Object-defined error, so do I need to add something else? "JLGWhiz" wrote: This is one way: firstCol = Application.InputBox("Enter First Column Number", "First Column", Type:=1) scndCol = Application.InputBox("Enter Second Column Number", "Second Column", Type:=1) ActiveCell.FormulaR1C1 = "=TRIM(RC[firstCol])&RC[scndCol]" "Archie" wrote: I have the following simple code: ActiveCell.FormulaR1C1 = "=TRIM(RC[5])&RC[11]" eg above concatenates the cells 5 & 11 columns along. What I want is for the user, by way of an input box, to be able to choose the columns, say 2 & 6. Can anyone help with this please? -- Dave Peterson |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Input Box selects a cell location to use in code
Sorry about that, Archie. I don't work with Worksheet formulas that much.
Here is the corrected code. Sub inptbx() Dim firstCol As Long, scndCol As Long firstCol = Application.InputBox("Enter First Column Number", "First Column", Type:=1) scndCol = Application.InputBox("Enter Second Column Number", "SecondColumn ", Type:=1) ActiveCell.FormulaR1C1 = "=TRIM(RC[" & firstCol & "]) & TRIM(RC[" & scndCol & "])" End Sub "Archie" wrote: Thanks, but I get application-defined of Object-defined error, so do I need to add something else? "JLGWhiz" wrote: This is one way: firstCol = Application.InputBox("Enter First Column Number", "First Column", Type:=1) scndCol = Application.InputBox("Enter Second Column Number", "Second Column", Type:=1) ActiveCell.FormulaR1C1 = "=TRIM(RC[firstCol])&RC[scndCol]" "Archie" wrote: I have the following simple code: ActiveCell.FormulaR1C1 = "=TRIM(RC[5])&RC[11]" eg above concatenates the cells 5 & 11 columns along. What I want is for the user, by way of an input box, to be able to choose the columns, say 2 & 6. Can anyone help with this please? |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Input Box selects a cell location to use in code
Thanks Guys, your help is fantastic.
"JLGWhiz" wrote: Sorry about that, Archie. I don't work with Worksheet formulas that much. Here is the corrected code. Sub inptbx() Dim firstCol As Long, scndCol As Long firstCol = Application.InputBox("Enter First Column Number", "First Column", Type:=1) scndCol = Application.InputBox("Enter Second Column Number", "SecondColumn ", Type:=1) ActiveCell.FormulaR1C1 = "=TRIM(RC[" & firstCol & "]) & TRIM(RC[" & scndCol & "])" End Sub "Archie" wrote: Thanks, but I get application-defined of Object-defined error, so do I need to add something else? "JLGWhiz" wrote: This is one way: firstCol = Application.InputBox("Enter First Column Number", "First Column", Type:=1) scndCol = Application.InputBox("Enter Second Column Number", "Second Column", Type:=1) ActiveCell.FormulaR1C1 = "=TRIM(RC[firstCol])&RC[scndCol]" "Archie" wrote: I have the following simple code: ActiveCell.FormulaR1C1 = "=TRIM(RC[5])&RC[11]" eg above concatenates the cells 5 & 11 columns along. What I want is for the user, by way of an input box, to be able to choose the columns, say 2 & 6. Can anyone help with this please? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Need an input box when user selects a value in a drop down box | Excel Worksheet Functions | |||
| Code for a button to change cell location | Excel Discussion (Misc queries) | |||
| Pause code, wait for input, no input received, carry on with the code | Excel Programming | |||
| Is this possible...Filter list after user selects location | Excel Programming | |||
Linear Mode
