Pase Special while recording a Macro

**Roger Govier** · 05-17-2011, 10:02 AM

Hi

The following is one way to do what you want.


Option Explicit

Sub results_macro()
'
' results_macro Macro
'
    Dim dest As Long
    dest = WorksheetFunction.Match(Range("B2"), Range("B13:B15"), 0)
    Range("B7").Copy
      
    Range("C12").Offset(dest, 0).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

**ktnal** · 05-17-2011, 12:05 PM

Thanks for the help. That code helps for part of the issue, but I want the macro button to select each option from the drop down menue and then input the results in the combined results chart. I want to see the results for each option in the results chart while only selecting the macro button once.

thanks in advance for your help.

**Roger Govier** · 05-17-2011, 12:43 PM

Hi

Then use the following code

Sub results_macro()
    Dim dest As Long, count As Long, i As Long
    count = WorksheetFunction.CountA(Range("I:I"))
    For i = 2 To count
    Range("B2") = Cells(i, "I")
        
    dest = WorksheetFunction.Match(Range("B2"), Range("B13:B15"), 0)
    Range("B7").Copy
      
    Range("C12").Offset(dest, 0).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Next i
    
End Sub