Hi everyone,
I'm trying to transfer the corresponding data from one row to another sheet, based on the chosen value in one cell in the destination range. I have attached a sample workbook explaining this. Thank you very much!
Hi everyone,
I'm trying to transfer the corresponding data from one row to another sheet, based on the chosen value in one cell in the destination range. I have attached a sample workbook explaining this. Thank you very much!
Last edited by realbestpete; 05-02-2019 at 03:18 AM.
![]()
Please Login or Register to view this content.
Thank you very much jolivanes, it didn't transfer the date to D8 in the "ToSheet", which was the first cell in the destination range but thanks to your help, with the first part of your code: rw = Sheets("FromSheet").Columns(1).Find(Sheets("ToSheet").Range("G7").Value, , , 1).Row, which was the part I was missing to find the row in "FromSheet", I managed to use the rest of the code I had!
If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.
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
Yes, sorry alansidman, I forgot that!
Last edited by realbestpete; 05-01-2019 at 11:36 PM.
I know you marked it solved but this might be slightly faster and has the date transfer in it.
![]()
Please Login or Register to view this content.
Thank you jolivanes, I appreciate your good will and extra help, and in fact, the code I ended up using is the one of your Maybe_A macro because although I have to admit that I preferred the one I had, given that it adapted itself to any named range as opposed to having to modify the column number in With sh1.Cells(i, 5) and the cell reference for the date With sh1.Range("D8"), I placed the one I had it under the Private Sub Worksheet_Change(ByVal Target As Range) with the conditional If Target.Address = "$G$7" Then, but it got an error while Maybe_A ran smoothly there. Just in case you want to have a look at it and perhaps find what it is that doesn't let it run under Private Sub Worksheet_Change(ByVal Target As Range);
![]()
Please Login or Register to view this content.
Last edited by alansidman; 05-02-2019 at 05:06 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.)
Sorry again alansidman, I have read the rules now!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks