If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Showing known cell reference in a popup
HI I'm trying to show a selected cell reference in a popup , rather than the cell content. This is the code : Dim lrow As Long With ActiveSheet lrow = Range("A" & Rows.Count).End(xlUp).Row End With Dim r1 As Range, r2 As Range Set r1 = Application.InputBox(prompt:="Enter address of first cell", Type:=8) Set r2 = Application.InputBox("Address of first cell chosen " & r1 & vbCr & vbCr & "Enter address of last cell" & vbCr & vbCr & "(Total Rows In Table : " & lrow & ")", Type:=8) Range(r1, r2).Select End Sub The problem is that this returns the content of the cell chosen in the first popup (r1) , rather than the cell reference. Can someone advise how to do this please? Grateful for any assistance. |
#2
|
|||
|
|||
Showing known cell reference in a popup
hi
see your other post Regards FSt1 "Colin Hayes" wrote: HI I'm trying to show a selected cell reference in a popup , rather than the cell content. This is the code : Dim lrow As Long With ActiveSheet lrow = Range("A" & Rows.Count).End(xlUp).Row End With Dim r1 As Range, r2 As Range Set r1 = Application.InputBox(prompt:="Enter address of first cell", Type:=8) Set r2 = Application.InputBox("Address of first cell chosen " & r1 & vbCr & vbCr & "Enter address of last cell" & vbCr & vbCr & "(Total Rows In Table : " & lrow & ")", Type:=8) Range(r1, r2).Select End Sub The problem is that this returns the content of the cell chosen in the first popup (r1) , rather than the cell reference. Can someone advise how to do this please? Grateful for any assistance. . |
#3
|
|||
|
|||
Showing known cell reference in a popup
In article , FSt1
writes hi see your other post Regards FSt1 Hi Thanks for getting back. My first post has an error in it , so I reposted in this forum. Could you post your reply here please , as I've deleted my first one and can't see your reply there. Thanks for your patience... best wishes. "Colin Hayes" wrote: HI I'm trying to show a selected cell reference in a popup , rather than the cell content. This is the code : Dim lrow As Long With ActiveSheet lrow = Range("A" & Rows.Count).End(xlUp).Row End With Dim r1 As Range, r2 As Range Set r1 = Application.InputBox(prompt:="Enter address of first cell", Type:=8) Set r2 = Application.InputBox("Address of first cell chosen " & r1 & vbCr & vbCr & "Enter address of last cell" & vbCr & vbCr & "(Total Rows In Table : " & lrow & ")", Type:=8) Range(r1, r2).Select End Sub The problem is that this returns the content of the cell chosen in the first popup (r1) , rather than the cell reference. Can someone advise how to do this please? Grateful for any assistance. . |
#4
|
|||
|
|||
Showing known cell reference in a popup
hi
in your second set, don't reference r1. instead refererce r1.address ie Set r2 = Application.InputBox("Address of first cell chosen " & r1.Address & _ vbCr & vbCr & "Enter address of last cell" & vbCr & vbCr & _ "(Total Rows In Table : " & lrow & ")", Type:=8) regards FSt1 "Colin Hayes" wrote: In article , FSt1 writes hi see your other post Regards FSt1 Hi Thanks for getting back. My first post has an error in it , so I reposted in this forum. Could you post your reply here please , as I've deleted my first one and can't see your reply there. Thanks for your patience... best wishes. "Colin Hayes" wrote: HI I'm trying to show a selected cell reference in a popup , rather than the cell content. This is the code : Dim lrow As Long With ActiveSheet lrow = Range("A" & Rows.Count).End(xlUp).Row End With Dim r1 As Range, r2 As Range Set r1 = Application.InputBox(prompt:="Enter address of first cell", Type:=8) Set r2 = Application.InputBox("Address of first cell chosen " & r1 & vbCr & vbCr & "Enter address of last cell" & vbCr & vbCr & "(Total Rows In Table : " & lrow & ")", Type:=8) Range(r1, r2).Select End Sub The problem is that this returns the content of the cell chosen in the first popup (r1) , rather than the cell reference. Can someone advise how to do this please? Grateful for any assistance. . . |
#5
|
|||
|
|||
Showing known cell reference in a popup
In article , FSt1
writes hi in your second set, don't reference r1. instead refererce r1.address ie Set r2 = Application.InputBox("Address of first cell chosen " & r1.Address & _ vbCr & vbCr & "Enter address of last cell" & vbCr & vbCr & _ "(Total Rows In Table : " & lrow & ")", Type:=8) regards FSt1 Hi FSt1 Yes , that's fixed it. Perfect - thank you. Best Wishes |
Thread Tools | |
Display Modes | |
|
|