Loop and copy

[gill389]

I'm working on a loop and stuck, what I am trying to do is loop through a row A5:a43 and get data from B3:b43. THe data is picked form cell e3 & e4. What I want the loop to do is go down line A and when it finds the start date in e3 start to copy the adjacent rows and paste them in another row until the end date is reached which comes from e4.

Please Login or Register  to view this content.

Please let me know if you can help, I tried using the sumif formulas but it didn't work, and the sumproduct as well.. any help would be beneficial

[snb]

Please Login or Register  to view this content.

[gill389]

Snb, thanks, I re-modified the Program a bit, your could is good, but I need to copy the adjacent cell. SO here is the new code im writing:


Dim rngSource As Range
Dim rngCell As Range
Dim rngOnes As Range
Dim rngTwos As Range
Dim intOnes As Integer
Dim intTwos As Integer

Please Login or Register  to view this content.

what I'm stuck on besides the loop is how to copy the adjacent cell when it finds "rangeones in Range?

[Leith Ross]

Hello gill389,

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

NOTE: Other posters are not allowed to answer this post until you have complied with this request.

[gill389]

I've made the adjustments you requested

[Leith Ross]

Hello gill389,

Thank you for using the code tags.

[gill389]

I got a new code which goes in the right direction. It takes the start date in range E3, and then it goes into rangeb5 down until it finds X=which comes from E3 and goes to the adjacent cell and copies it and pastes it to D20.

Where I am stuck: I need the loop to continue, so once the adjacent cell is copied, I need it to go back to Row A, go down 1, and copy the next adjacent cell paste it in d21 go back to A go down 1, copy the adjacent cell, copy into D22, and so on until the range e4 is reached where the user inputs the date.

Please Login or Register  to view this content.

Please let me know if you can help