Button-macro to read ranges of cells and return values of other cells based on results

One way...

Option Explicit

Sub GetValues()
Dim Temp(), Min As Double, Max As Double, cell As Range, x As Long, col As Long
Min = 40000: Max = 50000: x = 1
For Each cell In Range("D5:D16,F5:F16,H5:H16,K5:K16,M5:M16,O5:O16")
    If cell.Value > Min And cell < Max Then
        If cell.Column > 8 Then col = 10 Else col = 3
        ReDim Preserve Temp(x)
        Temp(x) = Cells(2, col) & "-" & Format(Cells(cell.Row, 1), "00") & "-" & Cells(3, cell.Column - 1)
        x = x + 1
    End If
Next cell
Cells(2, 17).Resize(x) = Application.WorksheetFunction.Transpose(Temp)
End Sub

Originally Posted by sintek

One way...

Rock on!! It totally works!!

Anyway, one thing I don't see here is the indicator of where it prints the output. Like, what if I wanted the output list to start in C22 or something?

No need to quote entire code...Just clutters...

Cells(2, 17) refers Q2
change it to cells(22,3) refers C22

Administrative Note:

Welcome to the forum.

We would love to help you with your query; however, it has been brought to our attention the same query has been posted on one or more other forums and you have not provided the required cross-post link(s) here.

Please see Forum Rule #3 about cross-posting and adjust accordingly.

Read this to understand why we (and other sites like us) consider this to be important.

(Note: this requirement is not optional. No help to be offered until the link is provided.)