I have used Tony55’s function name; I hope it will work.

You must have installed the Analysis Toolpak in Tools | Add-Ins… (Strumenti | Componenti aggiuntivi…), otherwise the GIORNO.LAVORATIVO function won’t work.

Try this: select E1, press F2, then press Enter without changing anything.

If that doesn’t work, try to find out what the exact name of the WORKDAY function in Italian is (GIORNO.LAVORATIVO according to Tony55); perhaps I made a typing error.

As I explained before, the Analysis Toolpak functions are not translated automatically, so I cannot attach the version that works for me. The Dutch version of the WORKDAY function would not work in Italian.

If you have a question about importing text files, please start a new thread and try to provide details of what you want.

If you have a question about importing text files, please start a new thread and try to provide details of what you want.

Sorry, I don’t understand your question. What exactly do you want VBA to do?

But why do you want to use VBA if you have a working solution?

The third tab in the Data Validation dialog allows you to specify the icon, the title and the text of the error message, just like you can with a VBA MsgBox.

If you really want to use VBA, you can use the Worksheet_Change event of Foglio1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(“D1”)) Is Nothing Then
If Weekday(Range(“D1”)) = vbSaturday Or _
Weekday(Range(“D1”)) = vbSunday Then
MsgBox “You entered a weekend day. Please enter another day.”, vbExclamation, “Attenzione”
ElseIf Not Worksheets(“Foglio2”).Range(“Holidays”).Find(Range(“D1”)) Is Nothing Then
MsgBox “You entered a holiday. Please enter another day.”, vbExclamation, “Attenzione”
End If
End If
End Sub

See attached workbook.

Strange.

From your screenshot, it appears that you have opened the spreadsheet in your browser. What happens if you download it to your PC, and open the downloaded version?

By the way, do you get the usual warning that the document contains macros?

I created the workbook in Excel 2002. I don’t think I used anything that is specific to Excel 2002, but I don’t have Excel 2000 to test. Perhaps a Lounger using Excel 2000 would be so kind to test the workbook on his/her system.

By the way, I recommend setting macro security to Medium (Media in Italian). The macro warnings may seem a nuisance, but better be safe than sorry.

Your code does not seem to work on XL2K. The modification below works on my system:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("D1")) Is Nothing Then
    If Weekday(Range("D1")) = vbSaturday Or _
       Weekday(Range("D1")) = vbSunday Then
      MsgBox "You entered a weekend day. Please enter another day.", vbExclamation, "Attenzione"
    ElseIf Not Worksheets("Foglio2").Range("Holidays").Find(Worksheets("Foglio1").Range("D1").Value) Is Nothing Then
      MsgBox "You entered a holiday. Please enter another day.", vbExclamation, "Attenzione"
    End If
  End If
End Sub

Legare,

Thanks for testing and for providing a solution.

You gotta love these subtle differences between versions.

Legare,

Thanks for testing and for providing a solution.

You gotta love these subtle differences between versions.

Your code does not seem to work on XL2K. The modification below works on my system:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("D1")) Is Nothing Then
    If Weekday(Range("D1")) = vbSaturday Or _
       Weekday(Range("D1")) = vbSunday Then
      MsgBox "You entered a weekend day. Please enter another day.", vbExclamation, "Attenzione"
    ElseIf Not Worksheets("Foglio2").Range("Holidays").Find(Worksheets("Foglio1").Range("D1").Value) Is Nothing Then
      MsgBox "You entered a holiday. Please enter another day.", vbExclamation, "Attenzione"
    End If
  End If
End Sub

I created the workbook in Excel 2002. I don’t think I used anything that is specific to Excel 2002, but I don’t have Excel 2000 to test. Perhaps a Lounger using Excel 2000 would be so kind to test the workbook on his/her system.

By the way, I recommend setting macro security to Medium (Media in Italian). The macro warnings may seem a nuisance, but better be safe than sorry.

From your screenshot, it appears that you have opened the spreadsheet in your browser. What happens if you download it to your PC, and open the downloaded version?

By the way, do you get the usual warning that the document contains macros?

Strange.

The third tab in the Data Validation dialog allows you to specify the icon, the title and the text of the error message, just like you can with a VBA MsgBox.

If you really want to use VBA, you can use the Worksheet_Change event of Foglio1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(“D1”)) Is Nothing Then
If Weekday(Range(“D1”)) = vbSaturday Or _
Weekday(Range(“D1”)) = vbSunday Then
MsgBox “You entered a weekend day. Please enter another day.”, vbExclamation, “Attenzione”
ElseIf Not Worksheets(“Foglio2”).Range(“Holidays”).Find(Range(“D1”)) Is Nothing Then
MsgBox “You entered a holiday. Please enter another day.”, vbExclamation, “Attenzione”
End If
End If
End Sub

See attached workbook.

But why do you want to use VBA if you have a working solution?

Sorry, I don’t understand your question. What exactly do you want VBA to do?

Try this: select E1, press F2, then press Enter without changing anything.

If that doesn’t work, try to find out what the exact name of the WORKDAY function in Italian is (GIORNO.LAVORATIVO according to Tony55); perhaps I made a typing error.

As I explained before, the Analysis Toolpak functions are not translated automatically, so I cannot attach the version that works for me. The Dutch version of the WORKDAY function would not work in Italian.

I have used Tony55’s function name; I hope it will work.

You must have installed the Analysis Toolpak in Tools | Add-Ins… (Strumenti | Componenti aggiuntivi…), otherwise the GIORNO.LAVORATIVO function won’t work.