Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hello everyone. I wish to be able to enter in a column header and a row
label, and be taken to the cell where they intersect. Headers are in row 1, and row labels are in column A. I have used VBA a little, but I need to know which module to use. Can you help me on this? Thanks! |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
something like
Sub asktogo() mc = InputBox("Enter column") mr = InputBox("enter row") Range(mc & mr).Select End Sub -- Don Guillett SalesAid Software wrote in message ups.com... Hello everyone. I wish to be able to enter in a column header and a row label, and be taken to the cell where they intersect. Headers are in row 1, and row labels are in column A. I have used VBA a little, but I need to know which module to use. Can you help me on this? Thanks! |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Thanks for the reply. Which module do I put this in? Also does this code allow me to enter the header and then the row label to find the intersection? |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() After playing with it I found that I have to enter in the column letter and the row number. I wish to enter in the text or number that is housed in one of the column headers, and then enter in text or a number that is in column As rows. Yours works great, but it requires that I know the column and row address. |
#5
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Sub asktogo1()
mc = InputBox("Enter column header") mr = InputBox("enter row") Cells(mr, Rows(1).Find(mc).Column).Select End Sub -- Don Guillett SalesAid Software wrote in message ups.com... After playing with it I found that I have to enter in the column letter and the row number. I wish to enter in the text or number that is housed in one of the column headers, and then enter in text or a number that is in column As rows. Yours works great, but it requires that I know the column and row address. |
#6
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Thank you Don! I had to change it a little to get it to do what I want, but it seems to work great now. Sub asktogo1() mc = InputBox("Enter column header") mr = InputBox("enter row") Cells(Columns(1).Find(mr).Row, Rows(1).Find(mc).Column).Select End Sub |
#7
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() glad to help -- Don Guillett SalesAid Software wrote in message ups.com... Thank you Don! I had to change it a little to get it to do what I want, but it seems to work great now. Sub asktogo1() mc = InputBox("Enter column header") mr = InputBox("enter row") Cells(Columns(1).Find(mr).Row, Rows(1).Find(mc).Column).Select End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
VBA: Column Select then Data Select then return to cell A1 | Excel Discussion (Misc queries) | |||
Use of Intersect: Place Value in one cell AND remove from another | Excel Programming | |||
Row column intersect | Excel Programming | |||
How do I find where a column value and row value intersect? | Excel Worksheet Functions | |||
how to get the intersect cell data out using vba or function | Excel Worksheet Functions |