Moderatori: Anthony47, Flash30005
=E(O(CONTA.SE(Festività!$B$1:$B$20;B$1)>0;GIORNO.SETTIMANA(B$2;2)>5);$A3<>"")
=E(CONTA.SE(Festività!$B$1:$B$20;F$1)=0;GIORNO.SETTIMANA(F$2;2)<6)
=CONTA.SE(Festività!$B$1:$B$20;B$1)>0
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myMatch, hDay As Boolean
'
If Weekday(Cells(1, Target.Column), vbMonday) > 5 Or Application.WorksheetFunction.CountIf(Sheets("Festività").Range("B1:B20"), Cells(1, Target.Column)) > 0 Then hDay = True
myMatch = Application.Match(Cells(Target.Row, "A"), Sheets("Festività").Range("D1:D50"), False)
If Not IsError(myMatch) And Not hDay Then
Target.Value = Sheets("Festività").Range("D1:D50").Cells(myMatch, 2).Value
Target.NumberFormat = "h:mm;@"
Else
Beep
End If
Cancel = True
End Sub
Torna a Applicazioni Office Windows
Come evidenziare aree separate di un foglio Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 18 |
Macro protezione foglio con password non funge Autore: xilofono |
Forum: Applicazioni Office Windows Risposte: 13 |
Esiste un riferimento relativo al foglio precedente? Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 4 |
Problema stampa due pagine Excel su foglio A4 Autore: dipdip |
Forum: Applicazioni Office Windows Risposte: 11 |
Visitano il forum: Nessuno e 14 ospiti