Skúste sa zaregistrovať a priložiť prílohu, páč neviem, čoho chcete dosiahnuť ...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim StartDate As Date
With ThisWorkbook
StartDate = CDate(.Worksheets("Hárok2").Range("I2").Value)
With .SlicerCaches("NatívnaČasováOs_Dátum").TimelineState
If .EndDate < StartDate Then MsgBox "Štart je väčší ako Koniec", vbExclamation: Exit Sub Else .SetFilterDateRange StartDate, .EndDate
End With
End With
End Subcitovat
Private Sub Worksheet_Change(ByVal Target As Range)
Dim StartDate As Date
With ThisWorkbook
StartDate = CDate(.Worksheets("Hárok2").Range("I2").Value)
With .SlicerCaches("NatívnaČasováOs_Dátum").TimelineState
If .EndDate < StartDate Then MsgBox "Štart je väčší ako Koniec", vbExclamation: Exit Sub Else .SetFilterDateRange StartDate, .EndDate
End With
End With
End Subcitovat
\n
RSS nejnovější články