23. januar 2014 - 10:41Der er
8 kommentarer og 1 løsning
Gemme indtastet data i spørgeskema i Ark1 i Ark 2
Kære eksperter
Min udfordring ligger i at jeg har oprettet et spørgeskema i Ark 1, hvor andre skal indtaste deres observationer, hvorefter dataen skal kopieres til Ark 2 og slettes i den oprindelige indtastning.
Jeg kan finde ud af at optage en simpel makro der kopier data og herefter slette indtastningen, men det virker som en meget klodset metode. Derudover har jeg problemer med at få makroen til at kopiere data fortløbende i Ark 2.
I princippet er problemet så simpelt som:
Indtast Navn i A1 (Ark1) Kopier A1 (Ark1) til A1 (Ark2) Slet A1 (Ark 1)
Nyt indtastet Navn i A1 (Ark1) Kopier A1 (Ark1) til A2 (Ark2) Slet A1 (Ark1)
ActiveWorkbook.Sheets(1).Activate End Sub Private Function findLedigRække() Dim ræk As Integer With ActiveSheet ræk = .Range("A65536").End(xlUp).Row If ræk > 1 Then findLedigRække = ræk + 1 Else findLedigRække = ræk End If End With End Function
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.
