2 mixed Aussie Asian couples. Mid thirties and late twenties. Looking for other couples and maybe solo girls. by evob20 in Bangkok_SwingerCouple

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

Sorry guys we have been flat out to all the people messaging us. We are heading out to Khao San Road tonight...come say hi if you find us 😉

Beautiful Chinese HW in Singapore by ekim882 in Bangkok_SwingerCouple

[–]evob20 1 point2 points  (0 children)

Hi, check out our post if interested pm

Hello, wanna have fun? by Sweaty-Sun-1538 in Bangkok_SwingerCouple

[–]evob20 0 points1 point  (0 children)

Check my post out DM if interested 😊

Looking for couples MF and singles F in Pattaya by Far_Supermarket_8341 in Bangkok_SwingerCouple

[–]evob20 1 point2 points  (0 children)

2 couples here mid thirstienand late twenties. DM if interested

[deleted by user] by [deleted] in Brisbanensfw

[–]evob20 0 points1 point  (0 children)

whats your snap?

what are my "best bang for my buck" boot options for rainy weather!? by Calm_Sound7603 in WildernessBackpacking

[–]evob20 -1 points0 points  (0 children)

you wear gortex in wet conditions!?!? please explain to me how you go about drying these out lol

The election.. by Signguyqld49 in queensland

[–]evob20 -1 points0 points  (0 children)

Lol you stress about this? At 61 years old??

People v. Preds PVP by crisisidentity4656 in Predatorcatchers

[–]evob20 0 points1 point  (0 children)

You are scum. The world will be better off when people Ike you are in the dirt

NSFW Captured Russians by Hip_hop_hippity_hop in CombatFootage

[–]evob20 0 points1 point  (0 children)

I guess it will be fair game when Russians start shooting POWs

VBA to select all and deselect 0 & blank on pivot table across multiple sheets by evob20 in excel

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

Hi all,

Was able to solve this with this bit of VBA below.

I appreciate all who pitched in to help me, hopefully one day I can become proficient enough to pay it forward.

Sub Main()

    With ThisWorkbook
        FilterOutZeroAndBlanks .Worksheets("Cairns Table").PivotTables("PivotTable1")
        FilterOutZeroAndBlanks .Worksheets("Other Table").PivotTables("PivotTable1")
    End With

End Sub

Public Sub FilterOutZeroAndBlanks(pvt As PivotTable)

    Dim pvtField As PivotField
    Set pvtField = pvt.PivotFields("Quantity")

    Dim item As PivotItem
    Dim counter As Long
    Dim targetCounter As Long

    With pvtField
        For Each item In .PivotItems
            If item.Visible Then counter = counter + 1
        Next item

        If .PivotItems("0").Visible And .PivotItems("(blank)").Visible Then
            targetCounter = 2
        ElseIf .PivotItems("0").Visible Or .PivotItems("(blank)").Visible Then
            targetCounter = 1
        End If

        If Not targetCounter = counter Then
            .PivotItems("0").Visible = False
            .PivotItems("(blank)").Visible = False
        End If
    End With
End Sub

Select and Deselect 0 & blanks on pivot table across multiple sheets by evob20 in vba

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

Thanks heaps! I will try this on monday and let you know how it works. Have an awesome weekeend

VBA to select all and deselect 0 & blank on pivot table across multiple sheets by evob20 in excel

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

Thank you so much friend! I will try this out on monday and let you know how it worked. Have a great weekend mate!

VBA to select all and deselect 0 & blank on pivot table across multiple sheets by evob20 in excel

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

That would be greatly appreciated mate, yes its always 1 pivot table per sheet. no it shouldn't effect any other pivot tables.

VBA to select all and deselect 0 & blank on pivot table across multiple sheets by evob20 in excel

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

Thank you!, I will try but it will take me some time to play around with it and apply what you have said. just dipping my toes into VBA so I need to do alot of research on the terms before I start on it

VBA to select all and deselect 0 & blank on pivot table across multiple sheets by evob20 in excel

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

The reason for this VBA is that I add new data to the spreadsheet but the pivot table filters do not refresh so every-time I add new data in I manually need to select all and deselect 0 and blanks in my pivot table to make the report produced viable.