Ja még valami:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B12:B2000")) Is Nothing Then
Target.Value = Date
Cancel = True
End If

If Not Intersect(Target, Range("Q12:AC2000, G12:G2000, K12:K2000")) Is Nothing Then
Target.Value = "IGEN"
Cancel = True
End If
End Sub


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("K12:K2000, G12:G2000, Q12:AA2000")) Is Nothing Then
Target.Value = "NEM"
Cancel = True
End If

End Sub

A fenti makrók közül csak a dátum beírása lassul le, illetve írja ki a végén, hogy cellák újraszámolása.

=SZORZATÖSSZEG((HÓNAP(Adat!$B$12:$B$2000)=7)*1;(ÉV(Adat!$B$12:$B$2000)=2010)*1;(Adat!$G$12:$G$2000="IGEN")*1)

Pedig az ehhez hasonló képletek a dátum változást is számolják és az IGEN-eket is.