I have a issue that I cannot find a solution for regarding a large table of data

Question

I have a issue that I cannot find a solution for regarding a large table of data that has been transposed into Excel.

I have a table of values in 1800 columns for specific dates that also have a Store name listed above each of them.

I need to create a formula that will first find all values (Stores) in a particular row that are above certain value (>26), then return the store names listed above them into one cell to the left of the data.

I have tried the CONCATENATE function , but given that there are 1800 columns of data, it will take me a month to write the formula :(

Has anyone done anything like this and is there a simple way to do this?

I have screen shot that I am attaching for reference.

Thanks for any assistance anyone can provide.

Explanation / Answer

Looking at your latest screenshot the store names begin in row 12 and the store names are in row 11 so this should sort things out.

You asked how you could recommend someone in the community. We ask little here, we do this because we like to help. All we do ask is that if any of our answers do help then simply mark them as answer.

Sub Check_Stores()
Dim x As Long, LastRow As Long
Dim c As Range, MyRange As Range
Dim LastCol As Long
Dim TmpString As String
LastRow = Cells(Cells.Rows.Count, "J").End(xlUp).Row
Set MyRange = Range("J12:J" & LastRow)
For Each c In MyRange
LastCol = Cells(c.Row, Columns.Count).End(xlToLeft).Column
     For x = 10 To LastCol
         If Cells(c.Row, x) > 26 Then
         TmpString = TmpString & Cells(11, x) & ", "
         End If
     Next
If TmpString <> "" Then
Cells(c.Row, "E") = Left(TmpString, Len(TmpString) - 2)
End If
TmpString = ""

Next
End Sub

Related Questions

Navigate

• Browse (All)
• Browse I
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.