21. februar 2005 - 14:42Der er
7 kommentarer og 1 løsning
Fang retning i celler!?
Jeg har en formel, hvor den skal vælge en anden række osv hvis der er nogen der indtaster noget i den...
sojle = ActiveCell.Column raekke = ActiveCell.Row
If Target.Address = Range("$K$13:$K$179").Address Then Cells(raekke, sojle).Formula = Cells(raekke, sojle).Offset(0, 15).Formula End If
Eks trykker jeg "H" i en celle i området K13:179, så skal den hente formelen i forskydningen 15 til højre... men den fanger ikke rigtigt noget.... hvorfor????
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("$K$13:$K$179")) Is Nothing Then Cells(Target.Row, Target.Column).Formula = Cells(Target.Row, Target.Column).Offset(0, 15).Formula End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("$K$13:$K$179")) Is Nothing Then Application.EnableEvents = False If Target <> "" Then Cells(Target.Row, Target.Column).Formula = Cells(Target.Row, Target.Column).Offset(0, 15).Formula Else Target = "" End If Application.EnableEvents = True
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.
Ny bruger
Nybegynder
Opret
Preview
