Code to loop through ws only works on active sheet

Hi!

Hoping this is an easy one. Trying to run the below code on all sheets minus the one called "DASHBOARD". However, it currently only runs on the active sheet (which is the DASHBOARD sheet usually). Can this sort of thing not be used to loop through sheets or am I missing something? I'm literally just pulling the sheet name into all the rows with data into column J of sheets not named "DASHBOARD", and then just minor editing so if there's a better way, I am all ears!

Sub jobID()


Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "DASHBOARD" Then


Range("I1").Select
Selection.Copy
Range("J1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Job ID"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=MID(CELL(""filename"",R[-1]C[-9]),FIND(""]"",CELL(""filename"",R[-1]C[-9]))+1,255)"
Range("J2").Select
Selection.Copy
Range("I2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("J:J").EntireColumn.AutoFit
Columns("J:J").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Goto Reference:="R1C1"


End If
Next ws


End Sub

TIA!
:)

Really not sure what you're doing, but

1. Range("I1") refers to the ActiveSheet, whereas ws.Range("I1") refers to the sheet ws



2. Don't need to select something to act on or with it

Code:

---

  ws. Range("I1").Copy ws.Range("J1")

ActiveSheet.Paste ' <<<< this would most likely NOT be the ws worksheet

---

and something like

Code:

---

ws.Range("J2").FormulaR1C1 = "=MID(CELL(""filename"",R[-1]C[-9]),FIND(""]"",CELL(""filename"",R[-1]C[-9]))+1,255)"


---

Quote:

---

Originally Posted by Paul_Hossler

Really not sure what you're doing, but

---

Trying to loop through each spreadsheet and just bringing in the sheet name in column J of each sheet.

This might be a little closer to what you want


Not sure if I'm reading this correctly:

Quote:

---

just bringing in the sheet name in column J of each sheet.

---

Code:

---

Option Explicit


Sub BuildDashboard()
    Dim wsDashboard As Worksheet, ws As Worksheet
   
    Set wsDashboard = Worksheets("Dashboard")
   
    With wsDashboard
        .Range("J1").Value = "Job ID"
   
        For Each ws In Worksheets
            If Not ws Is wsDashboard Then
                .Cells(.Rows.Count, 10).End(xlUp).Offset(1, 0).Value = ws.Name
            End If
        Next
   
        .Columns(10).AutoFit
    End With




End Sub

---

You'd betteer read this first: Excel VBA Programming For Dummies by John Walkenbach | 9781119077398 | Paperback | Barnes & Noble

That's closer to what I want. This brings in all the sheet names to the DASHBOARD sheet, but I don't want anything there. It doesn't do anything with any other sheets which is where I want the Job ID (sheet name) brought into Column J.

I'm going to play around with the code you provided a little bit. I can usually figure this out by recording and editing, but the information you provided me above tells me that doesn't work for looping through sheets so I appreciate your insight on that!

ws.Cells(Rows.Count, 10).End(xlUp).Offset(1, 0).Value = ws.Name

Quote:

---

which is where I want the Job ID (sheet name) brought into Column J.

---

You didn't say that you wanted "Job1234" which is the name of worksheet Job1234 brought into column J2 on worksheet Job1234

Code:

---

    ws.Range("J2") .Value = ws.Name


---

Thank you both, Paul and p45cal! I've been able to piece together the information from both of you, and it's almost working as I need it to! Currently, on the other sheets, I'm getting "JobID" in J1, and the sheet name in J2, but I need the job ID in every row of data in column J. (Sorry if I wasn't clear on what I wanted there!) Do I need to add something like a Selection, Selection.End(x1Up)? I've tried a few different things to no avail.

This is what I've come up with so far based on what you've told me. Sorry if I'm not piecing this together right - looping isn't something I'm familiar with. I can usually piece these things together with past posts by others or recording and editing, but not in this case apparently.

Your help thus far has been greatly appreciated!

Code:

---

Option Explicit




Sub BuildDashboard()
    Dim wsDashboard As Worksheet, ws As Worksheet
   
    Set wsDashboard = Worksheets("Dashboard")
   
    With wsDashboard
        .Range("J1").Value = "Job ID"
   
        For Each ws In Worksheets
            If Not ws Is wsDashboard Then
            ws.Range("J1").Value = "JobID"
            ws.Range("J2").Value = ws.Name
                ws.Cells(Rows.Count, 10).End(xlUp).Offset(1, 0).Value = ws.Name
            End If
        Next
   
        .Columns(10).AutoFit
    End With

End Sub

---

Quote:

---

I'm getting "JobID" in J1, and the sheet name in J2, but I need the job ID in every row of data in column J.

---

Sound contradictory to me:think:

How about attaching a sample workbook showing what you want the result to look like

Quote:

---

Originally Posted by Paul_Hossler

Sound contradictory to me:think:

How about attaching a sample workbook showing what you want the result to look like

---

Yeah, it kind of is. But in the end, these sheets get combined so I can pivot which is why I need it in every row. It'll look odd on each individual sheet, but it serves a purpose. :)

I've gotten a little further with this today (not much obviously) but I think it's more straightforward what I need now. That value in J2 that's copied needs to be copied down the entire column so long as there is data in the row. I've been try to do something like selecting I2, going to the bottom of the dataset, doing an offset for one column to the right, then filling from the bottom to the top. I've had luck doing that with other macros, but this one being a loop is giving me major problems. But any help in finalizing this one is much appreciated!

I know I've probably overcomplicated this one to death and there is probably a way to simplify, but I just record, edit and go, and if it runs pretty fast, it's good enough for me!

Code:

---

Option Explicit




Sub JobID()
    Dim wsDashboard As Worksheet, ws As Worksheet
   
    Set wsDashboard = Worksheets("Dashboard")
   
    With wsDashboard
        .Range("J1").Value = "JobID"
   
        For Each ws In Worksheets
            If Not ws Is wsDashboard Then
            ws.Range("I1").Copy
            ws.Range("J1").PasteSpecial xlPasteFormats
            ws.Range("J1").Value = "JobID"
            ws.Range("J2").Value = ws.Name
            ws.Range("J2").Copy
                 
            End If
        Next
   
        .Columns(10).AutoFit
    End With
End Sub

---

Quote:

---

I know I've probably overcomplicated this one to death and there is probably a way to simplify, but I just record, edit and go, and if it runs pretty fast, it's good enough for me!

---

If that is your attitude I am not inclined to suggest any improvement.