How to Run Code only for Selected Columns

[EngSantiago]

Hi all,

I currently have a vba macro that creates individual report for based on the data on each column. The macro will run until cell (1,i) is empty.

Do While Workbooks("Database.xlsm").Sheets("Assemblies_List").Cells(1, i) <> ""

However, I don't always need all of the reports. Therefore, I would like to modify the above code to run the code only for a selected group columns. I tried hiding the some columns but that doesn't work . What would be the easiest way to accomplish this? Can someone point me into the right direction?

Thanks!

 

[Fluff]

Something along the lines of

   Dim Ary As Variant
   Dim i As Long
   Ary = Array(1, 3, 4, 5, 9, 11)
   For i = 0 To UBound(Ary)
      Workbooks("Database.xlsm").Sheets("Assemblies_List").Cells(1, Ary(i))
      
   Next i

 

[EngSantiago]

Maybe I can insert a new row on top and use the row as a yes/no (Y/N) field, but again how to I change the code to create the reports only for those columns with a "Y"?

 

[Fluff]

Did you see my suggestion?

 

[EngSantiago]

Did you see my suggestion?

yes, I'll try this

 

[EngSantiago]

Well, I was really unsure how to use your code so I decided to try something else first and actually worked. Basically, I added new top row with Y/N values and then added an If statement after the Do While statement as shown below. This way I can select the reports I want bby changin the cell value to Y, and it will skip columns set to No.

[COLOR=#333333]Do While Workbooks("Database.xlsm").Sheets("Assemblies_List").Cells(1, i) <> ""
[/COLOR]If Workbooks("Database.xlsm").Sheets("Assemblies_List").Cells(1, i) = "Y" Then
[COLOR=#333333]*here I kept the rest of the code*
End If
[/COLOR]

Hope this helps someone else.

 

[Fluff]

Glad you figured it out & thanks for the feedback