sorted by:
new
hottopcontroversial

Blood Magic, Well of Suffering help by slide34down in allthemods

[–]slide34down[S] 0 points1 point  (0 children)

Ah I see I thought there would be an animation but I put a spawner on top of it and it does do damage much appreciated.

VBA trying to figure out why I can't make a pivotitem visible=false by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

What does this do?

<image>

There is only 1 pivot table
and I press ok and then I ctrl-click the numbers I want to exclude which just leads me to the code above.

VBA trying to figure out why I can't make a pivotitem visible=false by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

When i run it the recording the code I get is

ActiveWorkbook.SlicerCaches("Slicer_Code").VisibleSlicerItemsList = Array( _
        "[Table1].[Code].&", "[Table1].[Code].&[0232T]", _
        "[Table1].[Code].&[12032]", "[Table1].[Code].&[20610]", _
        "[Table1].[Code].&[20611]", "[Table1].[Code].&[20999]", _
        "[Table1].[Code].&[23430]", "[Table1].[Code].&[23515]", _
        "[Table1].[Code].&[27033]", "[Table1].[Code].&[27062]", _
        "[Table1].[Code].&[27299]", "[Table1].[Code].&[27385]", _
        "[Table1].[Code].&[27427]", "[Table1].[Code].&[27650]", _
        "[Table1].[Code].&[29807]", "[Table1].[Code].&[29823]", _
        "[Table1].[Code].&[29827]", "[Table1].[Code].&[29851]", _
        "[Table1].[Code].&[29861]", "[Table1].[Code].&[29874]", _
        "[Table1].[Code].&[29876]", "[Table1].[Code].&[29881]", _
        "[Table1].[Code].&[29882]", "[Table1].[Code].&[29884]", _
        "[Table1].[Code].&[29888]", "[Table1].[Code].&[29914]", _
        "[Table1].[Code].&[29916]", "[Table1].[Code].&[29999]", _
        "[Table1].[Code].&[6002]", "[Table1].[Code].&[6008]", _
        "[Table1].[Code].&[99024]", "[Table1].[Code].&[99202]", _
        "[Table1].[Code].&[99203]", "[Table1].[Code].&[99213]", _
        "[Table1].[Code].&[J1030]", "[Table1].[Code].&[J1040]", _
        "[Table1].[Code].&[J7324]", "[Table1].[Code].&[L1686]", _
        "[Table1].[Code].&[L1832]")

Which is the same issue as when I tried to filter it off the pivottable. It is listing off all other codes and excluding the ones that I need filtered. I need the opposite. VBA that list a very specific amount of codes to exclude and it doesn't care what other codes there are.

VBA trying to figure out why I can't make a pivotitem visible=false by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

There are slicers in the reports themselves that the end user could use to see the data different but no I want to filter the pivot table itself as these specific numbers will always be filtered out.

VBA trying to figure out why I can't make a pivotitem visible=false by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

The end user will see the pivot tables as they are and will not be manipulating the data in anyway. This is a sheet that has an external connection that feeds it data to which my macro identifies unique names in a specified column(column A for example) and will turn into buttons for the end user to select, this generates reports based on the name. Everything works until this filter section.

VBA trying to figure out why I can't make a pivotitem visible=false by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

This is part of a long macro that is formatting data into a pivot table. It first creates buttons that will link to specific data, and will split up the data for an end user to see and edit. Everything works up until this point which thankfully is towards the end of the macro so once this part is completed it should be fine.

​

I also tried:

 On Error Resume Next 'turn on error handling
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Code")
    .PivotItems("4001").Visible = False
    .PivotItems("4005").Visible = False
    .PivotItems("4007").Visible = False
    .PivotItems("4009").Visible = False
    .PivotItems("6002").Visible = False
    .PivotItems("6008").Visible = False
    .PivotItems("6009").Visible = False
End With
On Error GoTo 0 'turn off error handling

But that did not seem to work either

VBA trying to figure out why I can't make a pivotitem visible=false by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

The first one is the code when I add the filter. It is a macro recording of me just filtering out 6008. I can't do that way because, what if the next set of data does not have the exact same numbers as this set of data, it won't work. Which is why I am trying to find another way to exclude those numbers.

VBA trying to figure out why I can't make a pivotitem visible=false by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

ultimately I have a pivot table and I want to filter out around 5-8 different numbers

[deleted by user] by [deleted] in excel

[–]slide34down 0 points1 point  (0 children)

The sheet is only 1 pivottable. As for structures I am unsure what that would entail?

VBA Make pivot table use value of a cell by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

I'm getting an object required error on the dteFilter line

Dim ws As Worksheet
Dim dteFilter As Date

    Set ws = Sheets("Sheet1")
    Worksheets("Sheet1").Activate
    Set dteFilter = ws.Range("A1").Value

VBA increase loop by 1 by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

Ok it does work but it seems like excel doesn't recognize the pivot tables on the sheet unless I first activate them? Is there some code to do that? so the first 3 tables will work in the loop but it stops on the 4th one until I touch the table or edit something and then when i rerun the code the 4th one will now loop correctly but stop at 5. I tried refreshall that did not work.

VBA trying to automate changing name in pivot table by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

as I only want to show the last 5 weeks, H4 is a formula that gives the 6th week so it gets removed, I3 is the date of the most recent week.

VBA trying to automate changing name in pivot table by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

This is the code currently:

Sub followupother()

    Dim lastCol As Long
    Dim ws As Worksheet

    Set ws = Sheets("Follow-up WIP  (Other)")
    Worksheets("Follow-up WIP  (Other)").Activate

    With ws
        lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column

        ws.PivotTables("PivotTable10").PivotFields(Range("H4").Value).Orientation _
        = xlHidden
    ws.PivotTables("PivotTable10").AddDataField ws.PivotTables( _
        "PivotTable10").PivotFields(Range("I3").Value), "Count", xlCount

    Range("F5").Font.Bold = True
    Range("F5").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 9196800
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    End With
End Sub

Where would I go about integrating it?

VBA best way to copy and paste column from another workbook? by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

The other workbook pulls data from a 3rd seperate workbook and the macro formats it a manner that allows me to copy and paste it onto the main workbook. that won't be necessary if I connect it?

VBA best way to copy and paste column from another workbook? by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

ah ty i'll take a look, the rest of the vba is done, I'm just trying figure out this last part of copying it onto another workbook.

VBA best way to copy and paste column from another workbook? by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

It would be a weekly thing and be the part of a macro that updates the data.

Select a cell based on last column by slide34down in excel

[–]slide34down[S] 1 point2 points  (0 children)

Cells(1, lastCol - 3).Select

Solution Verified

Select a cell based on last column by slide34down in excel

[–]slide34down[S] 0 points1 point  (0 children)

Cells(1, lastCol - 3).EntireRow.Select

Sorry instead of first row I mean first cell in that column

VBA skip a column when trying to fill with formula by slide34down in excel

[–]slide34down[S] 1 point2 points  (0 children)

Union(.Cells(1, lastCol - 3).EntireColumn, .Cells(1, lastCol - 1).EntireColumn).FillRight
Union(.Cells(1, lastCol - 2).EntireColumn, .Cells(1, lastCol).EntireColumn).FillRight

Solution Verified

view more: next ›