hei,
pitäis saada soluihin syötettävän arvon tarkistus toimimaan siten, että useammalle kuin yhdelle sarakkeelle voisi määritellä joko samat tai eri kriteerit (solussa sallitut arvot. Alla koodi joka toimii kyllä yhdelle sarakkeelle c, mutta miten sen saisi toimimaan myös muissa....?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rngCell As Range, rngIntersect As Range
On Error Resume Next
Set rngIntersect = Intersect(Target, Range("c:c"))
If rngIntersect Is Nothing Then
Exit Sub
End If
For Each rngCell In rngIntersect.Cells
If rngCell.Value > "1" Then
MsgBox "Ei sallittu arvo"
End If
Next rngCell
End Sub
pitäis saada soluihin syötettävän arvon tarkistus toimimaan siten, että useammalle kuin yhdelle sarakkeelle voisi määritellä joko samat tai eri kriteerit (solussa sallitut arvot. Alla koodi joka toimii kyllä yhdelle sarakkeelle c, mutta miten sen saisi toimimaan myös muissa....?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rngCell As Range, rngIntersect As Range
On Error Resume Next
Set rngIntersect = Intersect(Target, Range("c:c"))
If rngIntersect Is Nothing Then
Exit Sub
End If
For Each rngCell In rngIntersect.Cells
If rngCell.Value > "1" Then
MsgBox "Ei sallittu arvo"
End If
Next rngCell
End Sub
Vastaukset 3
Vanhimmat
Eikös tuon saa toimimaan ilman koodia, kelpoisuustarkistuksella.
muuta Set rngIntersect = Intersect(Target, Range("c:c"))
Set rngIntersect = Intersect(Target, Range("C:C, D1:D10, E25:E28, F1:F6"))
joissakin soluissa sallitaan vain arvot 0 ja 1. Joissakin pitäisi myös varmistaa, että syötettäviä arvojen lkm on 5