Private Sub Worksheet_Change(ByVal Target As Range)
Z = Evaluate("WORKDAY.INTL(" & Target.Address & "-1,1,1,Tabela2[Holidays])-" & Target.Address)
If Not IsError(Z) Then If Z <> 0 Then MsgBox "Add " & Z & " days"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Tabela1[Date]")) Is Nothing Then 'only date column of Tabela1
If Target.Cells.Count = 1 Then 'only one cell changed
Z = Evaluate("WORKDAY.INTL(" & Target.Address & "-1,1,1,Tabela2[Holidays])-" & Target.Address)
If Not IsError(Z) Then
If Z <> 0 Then
Target.Select
MsgBox "Add " & Z & " days to the selected cell (" & Target.Address(0, 0) & ")"
End If
End If
End If
End If
End Sub
With ActiveSheet
.ListObjects(1).ListRows.Add AlwaysInsert:=True
.ListObjects(1).Range.Columns(1).Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Offset(1).Activate
End With
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Tabela1[Date]")) Is Nothing Then 'only date column of Tabela1
If Target.Cells.Count = 1 Then 'only one cell changed
Z = Evaluate("WORKDAY.INTL(" & Target.Address & "-1,1,1,Tabela2[Holidays])-" & Target.Address)
If Not IsError(Z) Then
If Z <> 0 Then
Target.Select
MsgBox "Add " & Z & " days to the selected cell (" & Target.Address(0, 0) & ")"
Else
Target.Offset(0, 2).Select
End If
End If
End If
End If
End Sub