02. januar 2006 - 10:45Der er
3 kommentarer og 1 løsning
Kan I finde fejlen
Jeg har følgende til at indsætte linjer i Kolonne G ud fra tallet der skrives i kollone H. Til det bruger jeg følgende: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("H1:H110")) Is Nothing Then Application.SendKeys ("{F2}") End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G1:G110")) Is Nothing Then If Target > 0 Then Target.Offset(0, 1).Formula = "" For i = 1 To Target - 1 Target.Offset(0, 1).Formula = Target.Offset(0, 1).Formula & Chr(10) Next End If End If End Sub
Det virker fint, men når jeg går ind og sletter en række for jeg fejl ved denne If Target > 0 Then
Brug af AI afslører de svagheder, virksomheder allerede har opbygget gennem års cloud-transformation, nye SaaS-løsninger og fragmenterede sikkerhedssystemer.
En lille fejl! Dette skulle ikke med: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("H1:H110")) Is Nothing Then Application.SendKeys ("{F2}") End If End Sub
Det er fordi at du sletter, så er der flere celler i target, man får altid fejl når den indeholder flere celler.
du kan undertrykke fejlen ved at sætte denne ind :
On Error Resume Next
sådan:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G1:G110")) Is Nothing Then On Error Resume Next If Target > 0 Then Target.Offset(0, 1).Formula = "" For i = 1 To Target - 1 Target.Offset(0, 1).Formula = Target.Offset(0, 1).Formula & Chr(10) Next End If 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.
