The following Sub Procedure does not allow me to save the address of the selected cell into my variable "Rng" and then re-use it to
select the cell location where i would like to copy the range selected via the second Application.Inputbox
Please Login or Register to view this content.
Last edited by alansidman; 09-18-2019 at 09:14 AM.
Code Tags Added
Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.
Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.
Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html
(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)
Alan עַם יִשְׂרָאֵל חַי
Change an Ugly Report with Power Query
Database Normalization
Complete Guide to Power Query
Man's Mind Stretched to New Dimensions Never Returns to Its Original Form
Dear Alan
Thanks for your reply, but I cannot where have u added the code for me, neither your reply.
I am pretty new in this forum and although i have read you rules i sincerely do not understand them. They are overpowering ( there are some many !).
Anyway , many thanks for your attempt at giving me a solution to my problem but i may have to pass from using this Forum in the future as I am unable to understand the coding that you require
If that is OK with you then, I will post the question in another forum?
Kindly let me know
Thanking you in advance
Regards
Martin Argimon
Rng is a Range object, and Address returns a String, so naturally you can't store one in the other. I can't really see the point of Rng when you already have OrderNo.
Rory
Not the codingBut using # button to add coding tag around your code. So it will be nicely formatted into it's own box and easier to read.
At any rate, your issue is in.
Rng is range object but Range.Address is string. So you are trying to set string into range object. Which isn't possible.Please Login or Register to view this content.
Since you already have OrderNo as range object... I'm not sure what you are trying to do here.
May be...
But .Address is same for entire MapSheet range.Please Login or Register to view this content.
If this isn't what you wanted...
It would be easier for us to help you if you can upload sample workbook demonstrating what you are trying to do with this code.
To upload a sample workbook, use "Go Advanced" Button, follow "Manage Attachments" hyperlink. It will launch new tab/window for managing uploads.
Last edited by CK76; 09-18-2019 at 10:21 AM. Reason: Added part about upload
?Progress isn't made by early risers. It's made by lazy men trying to find easier ways to do something.?
― Robert A. Heinlein
Morning.
I have been battling with the code below.
Whenever i pick the value of a cell address in my sheet "Orders" (via the Application.Inputbox method), i will also like to store that very same cell "address" for future use as detailed under "Stage 2" ( refer to the code below).
This program is basically designed to track "plot sales" ( land parcels). So the idea is to record the cell address of the plot ( which is the same as the cell address in the "Site Plan" sheet). Is sort of a geographically interface idea where each cell in the "SitePlan"sheet relates to a specific Land parcel, and hence once i select the cells (land parcels) in the "SitePlan" I want to record them back in the "Orders" sheet where I picked the Order number from initially.
Hope my explanation is OK?
Kindly assist. Thanks
Private Sub CmdbuttAssignParcel_Click()
Dim OrderNo As Range
Dim MapSheet As Range
Dim Rng As Range
'***** Copies the value from the selected cell in sheet "Orders" and pastes the contents in sheet "SitePlan" ****
'***** It also stores the cell address (where the value was first picked from), in the variable Rng for future use_
'***** under Stage 2 ( see below) ****
Sheets("Order").Activate
Set OrderNo = Application.InputBox(Prompt:="Choose Order Number to Assign to a Parcel", Type:=8)
Set Rng = OrderNo.Address
Sheets("SitePlan").Activate
Set MapSheet = Application.InputBox(Prompt:="Select Parcel/s on the Site", Type:=8)
MapSheet.Value = OrderNo.Value
'**** Stage 2 ****
'**** Selects the cell in Sheet "Orders" where the "MapSheet.Address" will be copied to ( by using "Rng" and_
'**** offest for the location) ******
Sheets("Orders").Select
Rng.Offset(0, 4).Select
ActiveCell.Value = MapSheet.Address
End Sub
Morning.
I have been battling with the code below.
Whenever i pick the value of a cell address in my sheet "Orders" (via the Application.Inputbox method), i will also like to store that very same cell "address" for future use as detailed under "Stage 2" ( refer to the code below).
This program is basically designed to track "plot sales" ( land parcels). So the idea is to record the cell address of the plot ( which is the same as the cell address in the "Site Plan" sheet). Is sort of a geographically interface idea where each cell in the "SitePlan"sheet relates to a specific Land parcel, and hence once i select the cells (land parcels) in the "SitePlan" I want to record them back in the "Orders" sheet where I picked the Order number from initially.
Hope my explanation is OK?
Kindly assist. Thanks
Private Sub CmdbuttAssignParcel_Click()
Dim OrderNo As Range
Dim MapSheet As Range
Dim Rng As Range
'***** Copies the value from the selected cell in sheet "Orders" and pastes the contents in sheet "SitePlan" ****
'***** It also stores the cell address (where the value was first picked from), in the variable Rng for future use_
'***** under Stage 2 ( see below) ****
Sheets("Order").Activate
Set OrderNo = Application.InputBox(Prompt:="Choose Order Number to Assign to a Parcel", Type:=8)
Set Rng = OrderNo.Address
Sheets("SitePlan").Activate
Set MapSheet = Application.InputBox(Prompt:="Select Parcel/s on the Site", Type:=8)
MapSheet.Value = OrderNo.Value
'**** Stage 2 ****
'**** Selects the cell in Sheet "Orders" where the "MapSheet.Address" will be copied to ( by using "Rng" and_
'**** offest for the location) ******
Sheets("Orders").Select
Rng.Offset(0, 4).Select
ActiveCell.Value = MapSheet.Address
End Sub
You could just replace:
withPlease Login or Register to view this content.
Please Login or Register to view this content.
Hi rorya
I had a Error message . See PDF attached
Many Thanks
Remove that line completely.
Sorry Rorya
I can see that you really do not like me.
You could track the answers that you gave me the first time i joined the forum ( some weeks ago) , which did not work either.
Hence I think is better for me to stay away from this forum, since you are not replay helping me
Thanks for trying
Regards
Martin Argimon
You've made 7 posts as far as I can see, and this is the first time I've replied to you, so I'm afraid I have no idea what you are talking about.
OK RORYA
I was referring to some posts a few weeks ago. But please Not to worry
I did not mean to be rude at all.
Is just that the code did not work again and i got somehow 'desperate".
I have tried your latest suggestion though ,as per your advised, ( to delete the 'error' line completely ) and now it works !!
Please accept my deepest apologies, and many thanks for your assistance
Once again sorry
Kind Regards
Martin Argimon
@martinargimon
You have received instructions on how to wrap your code in code tags. Please do so now.
No further help to be offered this OP until Code tags are added to Posts 6 and 7.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks