MS Excel

Marku, obrázky skutočne nie sú pre riešenie týchto vecí tou najlepšou prílohou

Ale o.k. niečo som skúsil..
To na obrázku je zrejme slicer (průřez), že? Tak som si záznamníkom makra nahral zakliknutie položky u sliceru v mojom testovacom súbore. Záznamník zaznamenal:Sub Macro1()
'
' Macro1 Macro
'

'
With ActiveWorkbook.SlicerCaches("Slicer_LEVEL1")
.SlicerItems("CHALLENGE").Selected = True
.SlicerItems("IT").Selected = False
.SlicerItems("NW").Selected = False
.SlicerItems("Other").Selected = False
.SlicerItems("(blank)").Selected = False
End With
End Sub

Slicer_LEVEL1 je názov toho prierezu, čiže v tvojom prípade to bude zrejme Slicer_Datum.
No, a budeš musieť cez nejaký cyklus, napadá ma SELECT CASE u jednotlivých SlicerItems zadať FALSE, iba u aktuálneho dátumu TRUE. To celé dať do nejakej udalosti, zrejme Workbook_Open, chce to vyskúšať, ale nič zložité to asi nebude..
Pusti záznamník a nahrané makro si jednoducho uprav, to snáď zvládneš.citovat

Môžeš vyskúšať, ale netuším, či sa to nejako zrýchli, inak neviem:

Sub GroundHogDay()
Dim today As Date
Dim todayString As String
Dim Item As SlicerItem, Slc As SlicerCache

today = Now
todayString = Format$(today, "yyyy-mm-dd")
Set Slc = ThisWorkbook.SlicerCaches("Prurez_ProcessingDate")

With Slc
.ClearManualFilter
.SlicerItems(todayString).Selected = False
For Each Item In .SlicerItems
Item.Selected = Not Item.Selected
Next Item
End With

Set Slc = Nothing
ThisWorkbook.RefreshAll
End Sub

edit: ešte ma napadlo, počas behu toho makra na začiatku zastaviť prepočítavanie, stránkovanie a prípadne povolenie udalosti, t.j. Calculation, ScreenUpdating, EnableEvents a na konci to vrátiť na pôvodné hodnoty. To, by, myslím, pomôcť v zrýchlení už mohlo znateľne..citovat

príspevok som zeditoval a doplnil, tak skús prípadne ešte to, inak už ma v tejto chvíli nenapadá nič..citovat

jen my není pořád jasné proč prochází všechny datumy a neoznačí přímo poslední
Priznám sa, že asi presne nerozumiem, na čo sa pýtaš.
Pokiaľ by si chcel, aby sa do KT preniesli rovno iba data za aktuálny deň, tak je možné upraviť priamo dotaz, ktorý do excelu (stále riešiš pravdepodobne výmenu dát s SQL serverom, však?) dotiahne iba dáta za tento konkrétny dátum.

Pokiaľ ale chceš v exceli dáta za nejaký rozsah dátumov (eventuálne všetky) a ide ti len o to, aby bol aktuálny dátum vybraný v sliceri, no tak, pokiaľ to má byť makrom (vadí ti, že by si to mal zaklikávať ručne), tak nepoznám spôsob, ktorý by to dokázal bez nejakého cyklu. Problém je totiž v tom, že pravdepodobne nie je možné (neprišiel som na spôsob, akým by to možné bolo) nastaviť vlastnosť selected u všetkých položiek naraz na false. Minimálne u jednej musí byť true. Úplne rovnako ti to vytvorí záznamník makra. Pokiaľ to robíš ručne, tak skutočne stačia iba 2 kliky:
1. zrušenie filtra
2. kliknutie na konkrétnu položku
Záznamník ale zapíše príslušnú hodnotu vlastnosti selected u každej položky - preto potom v kóde ten cyklus, ako som uviedol, vo VBA to pravdepodobne inak, než nastaviť to u každej položky jednotlivo, asi nepôjde. Excel samotný na to asi používa niečo rýchlejšie, o VBA je známe, že to nie je vždy najrýchleší spôsob.
Priznám sa ale, že pokiaľ riešiš to, že kód beží kvôli kýženému výsledku pár sekúnd, tak mi to príde ako úsilie neprimerané k tomu, čo chceš nakoniec získať, t.j. úsporu pár sekúnd. Za seba by som to rád uzavrel, nemám dôvod riešiť vec, ktorá mi príde ako absolútne zbytočná.citovat