Sznida Creative Commons License 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)