Hello! I was wondering if would be possible to refer to a List in the second tab of a worksheet instead of including the specific numbers in the VBA as shown below. I have a long list of numbers that I need to put in this code: "If((@=76)+(@=77)+(@=82)+(@=85)" for a different workbook, there are...
I think it should look like this, but I am getting an issue of the property value
ActiveSheet.PivotTables( ).PivotFields("W/E").AutoSort _
xlDescending, "W/E"
I want to add additional code to sort all the tables (table1-table6) in descending order of the date (the second column in the 2 column pivot table)
How can I add this in?
Sub SaveAsValues()
Dim WS As Worksheet
ActiveWorkbook.RefreshAll
Set WkShts = Sheets(Array("Overview", "Sheet1"...
I have a macro that saves the file in a specific drive location. However the drive is named differently on everyone's computer that has the network mapped (V vs X, et). So If I wanted to change this bit of macro to save in the same location as the original file which is always in the right...
I am trying to do a save as values in a copy of a report that I have. This works if I Dim as a worksheet, and it goes through all the worksheets. However, because I have pivot tables now in the first six tabs, this is no longer working. Instead I would like to do a save as values for 6...
I also want to add "<>East" to the "<>West" so either condition would take into effect. How can I change the VBA below?
With Sht2
If .AutoFilterMode Then .AutoFilterMode = False
.Range("A1").AutoFilter 5, 82
.Range("A1").AutoFilter 6, "<>West"...
I run the current macro in my report to keep all departments that are coded 76, 82 or 85. This macro takes out thousands of rows, which is perfect. Then I run another macro that adds department names based on a lookup list (not included). Now I need ta 3rd macro to go back and delete some more...
Hello friends!
I am trying to combine the line 12 on the first page of multiple workbooks in multiple folders into one worksheet, so I can total the data from line 12 of each initial summary page.
Also, I need the values only. The formula in A12 is ridiculous I don't know why they set it up...
:):)thank you---the second option works because it isn't that many (just one or two, but we must catch) but thank you for doing both types as I will most likely use each of the codes again in different situations. thnx!!!!:):)
In this sub, is it possible to make a message box to user to let them know what was "Not found" so they can add any missing items and run again?
Sub Lookup()
Dim Rng As Range
Dim c As Range
Dim result As String
Set Rng = Range("c2:c" & Cells(Rows.Count...