VBA Search Loop If Empty Copy Paste Next Help!!

[ipon70]

I am in VBA H**L right now.
Here is what I need the Search Loop to do.

In Column A cell "A2" is a changing value depending on the person selected. This is basically a RecordId column.
Starring In Column H cell "H2:JZ2" are changing values. These values could be nothing (empty), or contain data.

Here is what I need it to do.
I need it to hunt across the 2nd row again starting at "H2" for the first cell with data, if it finds it, copy that value, and then move down the amount of rows indicated in "A2". Paste it into whatever cell is at that location.
Then move onto the next cell and hunt for the next value, and repeat.

EXAMPLE: "A2" cell has a value of 954 in it indicating the row of that persons information, again basically a RecordId column. It starts looking at "H2" and finds information at cell "J2" copies that information, moves down to cell "J954" and pastes it there. Then starts over at "K2" and looks for data, then "L2" and looks for data, so on and so forth until it reaches "JZ2" and then stops.

This will be triggered manually by a person pushing an button to "save or update" the record.

Thank you so so much in advance, and if you have questions please ask.

I hope that all makes sense.

 

[Fluff]

How about

Sub ipon()
   Dim Rng As Range
   
   For Each Rng In Range("H2:JZ2").SpecialCells(xlFormulas, 7).Areas
      Rng.Offset(Range("A2").Value - 1) = Rng.Value
   Next Rng
End Sub

 

[ipon70]

Let me try this when I get to work...thank you so much

 

[ipon70]

How about

Sub ipon()
   Dim Rng As Range
 
   For Each Rng In Range("H2:JZ2").SpecialCells(xlFormulas, 7).Areas
      Rng.Offset(Range("A2").Value - 1) = Rng.Value
   Next Rng
End Sub

Ok sir this is an AWESOME start. I had to change the -1 to a -2 to hit the right line but now that works.
The one issue is its doing a blanket copy and overwriting previously filled in cells.
I entered a "No" that was moved into column X and Row 954. Ran the code, "No" is there. I then empty that cell on the original form they fill out, run the code again, and it deletes the "no" from column "X" and Row 954. I need it to leave cells that are blank on the form alone and not copy them again, or skip blanks. Is that possible?

Thanks for the help, you have I think...saved me....lol

 

[Fluff]

Ok, how about

Sub ipon()
   Dim Cl As Range
   
   For Each Cl In Range("H2:JZ2").SpecialCells(xlFormulas, 7)
      If Cl <> "" Then Cl.Offset(Range("A2").Value - 2) = Cl.Value
   Next Cl
End Sub

 

[ipon70]

Ok, how about

Sub ipon()
   Dim Cl As Range
  
   For Each Cl In Range("H2:JZ2").SpecialCells(xlFormulas, 7)
      If Cl <> "" Then Cl.Offset(Range("A2").Value - 2) = Cl.Value
   Next Cl
End Sub

Let me try this version when I get to work. Thank you so so so much.

 

[ipon70]

IT WORKED YOU ARE A GOD!!!!

Thank you so much.

 

[Fluff]

You're welcome & thanks for the feedback.

 

[ipon70]

Let me try this version when I get to work. Thank you so so so much.

Can this be used to match a code to a code.
Search and match a "Employee Number" instead of a row number and paste values that way. Same area for values, look up changes to "A3" and the "Employee ID" column starts at "B4".
Wondering if we get a 1 off if that will mess up the row counting.....

 

[Fluff]

That is a totally different question, so needs a new thread.