根据单元格值在VBA中导航多个工作表

Question

I am a fairly new VBA user and have doing few codes learning as I go and reading forums.

Now I want to code something and I couldn't find a way to do it/a hint in the forums so I am coming to ask for your kind help.

I have a lot of spreadsheet with names as title, representing expenses of those people. My goal is to create a file in which I regroup the spreadsheets, then would like to extract the expense references in the "Home" spreadsheet. The relevant expanses will be marked "Y" in the same row.

In the "Home" spreadsheet I have names of people on the first page eg "Paul", "Marie","Pierre" etc.... in the same column.

I would like to create a code that could look at the names in the spreadsheet "Home" and copy data from the "Named" Spreadsheet back to the "Home" one.

Format would be the same for the "Named spreadsheet" so I am always looking at the same column.

I have tried the following so far

Sub Expenses()

    Set wk=ThisWorkbok.sheets("Home")

    Dim Name as String
    Dim Expense as Integer
    line_newexpense = 9
    rowline = 10
    start_l =34

    Do While Name <> "#"
        Line = wk.Cells(start_l,3)
        Name = ThisWorkbook.Sheets("Home").Cells(line_newexpense,39).Value
        Expense = ThisWorkbook.Sheets(Name).Cells(rowline,3).Value

        For j=50 to 8
            If ThisWorkbook.Sheets(Name).Cells(25,j).Value="Y" Then
                Line = ThisWorkbook.Sheets(Name).Cells(3,j).Value
            End If
            rowline = rowline+1
        Next j

        line_newexpense = line_newexpense + 1
    Loop

The problem is when I try to run it I encounter an "Error 9 Subscript out of range", so not sure how I could counter the problem,

Many thanks in advance for your hints!

Kind Regards,

Answer 1

You do not need VBA for this. You can use INDIRECT function to achieve what you want.

For example

=INDIRECT(B1&"!$A$1")

Where B1 has the name of the worksheet, Say "Paul" and A1 is the cell which has the data that you need.

You can also factor the Y part in your above formula using IF function.