VBA button to paste values in cells based on the contents of another cell

[povictory]

Hello,

I don't know if this is even possible, but thought I'd ask!

I have a budget file with some formulas pulling from another sheet for each month. I have a drop down menu cell (B2 in example) that corresponds to the monthly columns in the sheet (D5:O5). What I would like to do is have a button linked to VBA code that would copy/paste values of the yellow highlighted cells in row 6:8 that correspond to the column in the drop down menu cell B2. For example, since Apr20 is in the drop down cell in this example, when I click the button, I would like it to copy and paste the values in cells G6:G8, replacing the formulas that were there before.

Is this even possible? Any advice or ideas would be appreciated.

Thanks!

 

[mrshl9898]

Is this doing what you wanted?

Sub PasteValues()

Dim colnum As Long
Dim monthname As String

monthname = Range("B2")

colnum = 4
Do Until Cells(5, colnum) = monthname
colnum = colnum + 1
Loop

Range(Cells(6, colnum), Cells(8, colnum)).Copy
Range(Cells(6, colnum), Cells(8, colnum)).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("B2").Select

End Sub