Sznida
2011.07.21
|
|
0 0
15517
|
Szia,
Azt a legördülős részt nem értem, de az oszlopra így tudod korlátozni a makrót:
Private Sub Worksheet_Change(ByVal Target As Range) Dim OldVal As Variant, NewVal As Variant If Not Intersect(Target, Range("F:F,L:L")) Is Nothing Then If Target.Count > 1 Then Exit Sub Application.EnableEvents = False NewVal = Target.Value Application.Undo OldVal = Target.Value If IsNumeric(OldVal) And IsNumeric(NewVal) Then Target.Value = NewVal + OldVal End If Application.EnableEvents = True End If End Sub
Van még egy hátránya ennek a makrónak, hogy egy cella értékét nem tudsz törölni, csak ha tartományt jelölsz ki. Ez nem tudom jó-e vagy rossz, lehet Neked éppen így jó!
Üdv: Sznido |
Előzmény: Xooo (15512)
|
|