Tak for det fine svar, og undskyld at jeg reagerer så sent på dit svar. Jeg har kopieret koden ind, og det virker helt efter hensigten.
Jeg vil gerne kopier koden, og gøre den gældende for andre celler, som jeg kan ændre i, hvor den så flytter indholdet over i nogle andre celler, men jeg kan ikke bare kopiere koden, så får jeg en fejl.
Tak for det fine svar, og undskyld at jeg reagerer så sent på dit svar. Jeg har kopieret koden ind, og det virker helt efter hensigten.
Jeg vil gerne kopier koden, og gøre den gældende for andre celler, som jeg kan ændre i, hvor den så flytter indholdet over i nogle andre celler, men jeg kan ikke bare kopiere koden, så får jeg en fejl.
For eksemplets skyld har jeg lavet den samme handling på en anden celle ... så kan du prøve at sammenligne de to koder for at se, hvor der skal ændres, hvis koden skal virke på andre celler.
Hvis du taster ind i celle G2, vil værdien blive logget i kolonne I.
Koden markeret med sort herunder er den der virker på kolonne G og I ... og den er blot skrevet i forlængelse af den første vi lavede.
---------------------
Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Integer Dim c As Integer
'hvis den aktive celle er B2 og den ikke er forskellig fra tom If Target.Address = "$B$2" And Target.Value <> "" Then
'tildel variablen r, rækkenummeret på sidste række indeholdende data r = ActiveSheet.Range("D65536").End(xlUp).Row
'hvis celle D1 er tom ~ første gang der logges en værdi If ActiveSheet.Range("D1").Value = "" Then
'sæt celle D1 = værdien fra celle B2 ActiveSheet.Range("D1").Value = Target.Value
'tøm celle B" Target.Value = ""
Else
'sæt næste ledige celle i kolonne D = værdien fra celle B2 ActiveSheet.Range("D" & r + 1).Value = Target.Value
'tøm celle B2 Target.Value = ""
End If
End If
'hvis den aktive celle er G2 og den ikke er forskellig fra tom If Target.Address = "$G$2" And Target.Value <> "" Then
'tildel variablen c, rækkenummeret på sidste række indeholdende data c = ActiveSheet.Range("I65536").End(xlUp).Row
'hvis celle I1 er tom ~ første gang der logges en værdi If ActiveSheet.Range("I1").Value = "" Then
'sæt celle I1 = værdien fra celle G2 ActiveSheet.Range("I1").Value = Target.Value
'tøm celle G" Target.Value = ""
Else
'sæt næste ledige celle i kolonne I = værdien fra celle G2 ActiveSheet.Range("I" & c + 1).Value = Target.Value
Jerg har fx en Celle, der ændres hvergang jeg ændrer i B2 eksempelvis, kan data fra denne celle ligeledes flyttes til fx F1 og nedefter ( dette er ikke en celle jeg taster i men, blot én der er resultatet af inputet i celle B2 ?
Det jeg ønsker er at jeg i celle H6 indtaster tidspunktet, hvor jeg kører en status i arket. Værdien af celle H6 skal flyttes til Celle L12. Når jeg senere på dagen gør status igen skal værdien i B2 flyttes til L13, ligesom den første kode du lavede.
Jeg ønsker samme princip for indholder i celle H8 og H10 som er celler jeg taster i hver gang jeg gør status. Værdien af celle H8 flyttes til M12 og værdien af celle H10 flyttes til N12.
hver gang jeg indtaster data i H6 får jeg et output i cellerne H 18 og H20, disse må gerne flyttes til cellerne O12 og P12, det samme princip må gerne gælde her, med at hvergang tallet ændres flyttes det til de respektive celler, og hvergang under de forrige tal således anden gang der gøres status flyttes disse til O13 og P13.
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.
