VBA: Paste in Column and Row containing specific value.

[LWell]

Hello,

I have a workbook with two sheets. One sheet (Sheet1) looks like this:

Jan.

Feb.

Mar.

Apr.

May

Jun.

Jul.

Aug.

Sep.

Oct.

Nov.

Dec.

1

2

3

4

5

6

etc

<tbody>
</tbody>

The other (Sheet2) looks like this

1		January	$500.84
27		January	$233.10
3		March	$87.25
7		April	$442.70
etc.		etc.	etc.

<tbody>
</tbody>

I want to post the values in Sheet2 column D into their respective place in Sheet1. I am using the following code to copy the data:

Set Rng = Range("C1:C20000")
    
        For Each rCell In Rng.Cells
    
        If rCell.Value = "January" Then
            rCell.Select
            ActiveCell.Offset(, 1).Copy 
        Exit For
        End If
        Next rCell

I have one of those for each month.

I am looking for a pasting code that will be something like "paste in column that contains value that is offset ,-1" and "paste in row that contains value that is offset ,-3"

I hope that makes sense. Thank you guys for any help.

Best,

 

[BobUmlas]

Sub moveValues()
For i = 1 To Range("A10000").End(xlUp).Row
mo = Left(Sheet2.Cells(i, 3).Value, 3) & "."
cl = Application.Match(mo, Sheet1.Rows(1), 0)
rw = Sheet2.Cells(i, 1).Value + 1
Sheet1.Cells(rw, cl).Value = Sheet2.Cells(i, 4).Value
Next
End Sub

 

[LWell]

Works like a charm; thank you! Hypothetically, how would this work if Sheet2 column A was not a number but instead a name? Would you simply Application.Match for the row as well?