[ toci @ 24.02.2016. 09:48 ] @
Pozdrav svima.

U prilogu sam zakacio fajl na kome mozete videti o cemu se radi.
Naime, kada pokrenem macro, u Sheet2 se nalazi i Dugme za pokretanje macro-a, on iskopira podatke u novi Sheet.
E sada kada se odradi to, trebao bih sledeci korak da prebacim u filterima "Date" na poslednji datum koji tu imam. Naravno datumi ce se menjati svakog dana, tako da uvek treba biti izabran poslednji koji imam u tabeli.
Neka ideja povodom ovoga?

Unapred zahvalan.
[ toci @ 24.02.2016. 22:26 ] @
Ako nekoga zanima, evo resenja:

Sub ttt()
Dim i&
With ActiveSheet.PivotTables(1).PivotFields("Date")
For i = .PivotItems.Count To 1 Step -1
If .PivotItems(i).Name <> "(blank)" Then
.CurrentPage = .PivotItems(i).Name
Exit For
End If
Next i
End With
End Sub