Moderatori: Anthony47, Flash30005
=J2/(52-CONTA.VALORI(A$2:A$53))
Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "A2:A54"
If Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then Exit Sub
Application.EnableEvents = False
UR = Range("I" & Rows.Count).End(xlUp).Row
For RR = 2 To 14
If Range("I" & RR).Value = Target Then
Range("J" & RR).Value = Range("J" & RR).Value - 1
End If
Next RR
Application.EnableEvents = True
End Sub
Sub Pulisci()
Range("A2:A53").ClearContents
Range("J2:J14").Value = 4
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "A2:A53"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
Application.EnableEvents = False
UR = Range("I" & Rows.Count).End(xlUp).Row
For RR = 2 To 14
If Range("I" & RR).Value = Target Then
Range("J" & RR).Value = Range("J" & RR).Value - 1
End If
Next RR
Application.EnableEvents = True
End If
End Sub
Torna a Applicazioni Office Windows
Visitano il forum: Ricky0185 e 38 ospiti