populate a table using row and column headers

Hi
I'm trying to populate a table with data from a csv file where the first column is the row header and the second column is the column header and the third column is the data for the table

I have managed to get the information into the table but only using the row headers so the column data does not go where it is supposed to i have added the files i'm using for you to see.
The .csv file is just opened by the user select all and copy into clipboard at the moment but i would also like the macro to do this for me too eventually so any help there would be appreciated too
then click the import button on the worksheet

Averages.xlsm

GAZ1.csv

also because there are duplicate row/column entries but updated values i need it to only use the latest values or overwrite the values as it goes through the file

This macro will do it if the CSV file is pasted into a new sheet called CSV

Sub Pivot()
Sheets("TradeAverages").Activate
For N = 1 To Sheets("CSV").Cells(Rows.Count, 1).End(xlUp).Row
    TargetRow = Columns(1).Find(Sheets("CSV").Cells(N, 1), , xlValues, xlWhole).Row
    TargetColumn = Rows(1).Find(Sheets("CSV").Cells(N, 2), , xlValues, xlWhole).Column
    Cells(TargetRow, TargetColumn) = Sheets("CSV").Cells(N, 3)
Next N
End Sub

Please note that the names of the fields do need to be identical

Canon <> Cannon
MapPart <> Map Part

If you put it in a standard module (a current or new one), you'll have to specify the worksheet for each object in the code, e.g. "Sheets("TradeAverages").Columns(1)...." instead of just "Columns(1)...". Try:

Sub Pivot()
With Sheets("TradeAverages")
    .Activate
    For N = 1 To Sheets("CSV").Cells(Rows.Count, 1).End(xlUp).Row
        TargetRow = .Columns(1).Find(Sheets("CSV").Cells(N, 1), , xlValues, xlWhole).Row
        TargetColumn = .Rows(1).Find(Sheets("CSV").Cells(N, 2), , xlValues, xlWhole).Column
        .Cells(TargetRow, TargetColumn) = Sheets("CSV").Cells(N, 3)
    Next N
End With
End Sub

I believe that the error that you are seeing is that you do not have matching values in your sheet and CSV file and therefore the code is objecting when it can't find a match.

I put a couple of examples in my original reply - there may be more.

Hi
Been following this Thread developing my own code. I believe mrice is correct

that the error that you are seeing is that you do not have matching values in your sheet and CSV file

The code provided appears to work with these modifications

Option Explicit
Sub Pivot()
    Dim N As Long
    Dim TargetRow As Long
    Dim TargetColumn As Long
    With Sheets("TradeAverages")
        .Activate
        For N = 1 To Sheets("CSV").Cells(Rows.Count, 1).End(xlUp).Row
            On Error Resume Next
            TargetRow = .Columns(1).Find(Sheets("CSV").Cells(N, 1), , xlValues, xlWhole).Row
            TargetColumn = .Rows(1).Find(Sheets("CSV").Cells(N, 2), , xlValues, xlWhole).Column
            .Cells(TargetRow, TargetColumn) = Sheets("CSV").Cells(N, 3)
            On Error GoTo 0
        Next N
    End With
End Sub

Hi garywilson4

There is a way to overcome this

that the error that you are seeing is that you do not have matching values in your sheet and CSV file

If you're interested, I'll work on it. It's really an issue of which comes first, the Cart or the Horse. Is CSV the Source for TradeAverages such that they MUST match or is TradeAverages getting it's data from CSV and if they don't match, such is life, no data will be shown?