15. september 2011 - 13:18Der er
6 kommentarer og 1 løsning
kun en celle må være udfyldt i et område, resten skal være blanke
Hej
Jeg vil gerne have at der i et område kun kan være en celle udfyldt og resten skal være tomme, men hvis man udfylder en anden celle i området skal den første celle slettes... har lavet en kode her, men den virker ikke fordi den jo bliver trikket hver gang der ændres noget i området...
Nogle der har forslag?
Private Sub Worksheet_Change(ByVal Target As Range)
R = Target.Row C = Target.Column T = Target.Address
If C > 0 And C < 10 Then For i = 1 To 10 Debug.Print Cells(R, i).Address If Cells(R, i).Address = T Then GoTo Skip Else Cells(R, i) = "" End If Skip: Next End If End Sub
Nope det skal være dynamisk i den forstand, at det skal gælde for hver række i eksempelvis række 1 til 30. antallet af rækker kan ændre sig, men hvis indtastningen sker i række D23 skal det kun være A23,B23,C23,E23 der skal "nulstilles"
Dim flag As Boolean Private Sub Worksheet_Change(ByVal Target As Range)
R = Target.Row C = Target.Column T = Target.Address
If C > 0 And C < 10 And flag = False Then flag = True For i = 1 To 10 Debug.Print Cells(R, i).Address If Cells(R, i).Address = T Then GoTo Skip Else If Cells(R, i) <> "" Then Cells(R, i).ClearContents GoTo Skip End If End If Skip: Next flag = False End If End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
