Excel: Gevensvalidatie lijst

[BeastLife]

Leuk uitgevonden, elk keer inzoomen en uitzoomen hebben er geen zin in.
nu weet ik er geen andere eigenschappen om te aanpassen. toch bedankt

 

[BeastLife]

Heb een vraagje,


In Excel kreeg ik een foutmelding als ik een cel met getal gekopieerd is dan komt een #N/B.
Sneller gekopieerd: een cel met kleine plus kreeg ik ook andere foutmelding van VBA.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D:ND").SpecialCells(xlCellTypeAllValidation)) Is Nothing Or Target(1) = "" Then Exit Sub
    If Target(1).Offset(, 3 - Target.Column) = "" Then Exit Sub
    With Application
        .EnableEvents = False
        Target.Value = .VLookup(Target.Value, [Status].Resize(, 9), .Match(Target.Offset(, 3 - Target.Column).Value, [ALGEMEEN], 0) + 1, False)
        .EnableEvents = True
    End With
End Sub

hoe maakt je een VBA met getal skipcheck? wil je VBA van hierboven beetje aanpassen?

 

[Timshel]

cel met kleine plus

Dat heet de vulgreep.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C:G").SpecialCells(xlCellTypeAllValidation)) Is Nothing Or Target(1) = "" Then Exit Sub
    If Target(1).Offset(, 2 - Target.Column) = "" [COLOR="#FF0000"]Or IsNumeric(Target.Value)[/COLOR] Then Exit Sub
    With Application
        .EnableEvents = False
        Target.Value = .VLookup(Target.Value, [Status].Resize(, 4), .Match(Target.Offset(, 2 - Target.Column).Value, [Plan], 0) + 1, False)
        .EnableEvents = True
    End With
End Sub

 

[BeastLife]

Aha, vulgreep..
Het werkt goed met kopiëren maar ik krijg foutmelding als ik lange vulgreep doe. er staat" Fout 13 tijdens uitvoering: Typen komen niet elkaar overeen"
Kan je dit oplossen?

 

[Timshel]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C:G").SpecialCells(xlCellTypeAllValidation)) Is Nothing Or Target(1) = "" Then Exit Sub
    If Target(1).Offset(, 2 - Target[COLOR="#FF0000"](1)[/COLOR].Column) = "" Or IsNumeric(Target[COLOR="#FF0000"](1)[/COLOR].Value) Then Exit Sub
    With Application
        .EnableEvents = False
        Target.Value = .VLookup(Target.Value, [Status].Resize(, 4), .Match(Target.Offset(, 2 - Target.Column).Value, [Plan], 0) + 1, False)
        .EnableEvents = True
    End With
End Sub

 

[BeastLife]

Dank je voor oplossing