makro som henter data fra indtastningsfelt

Vis lige koden - hvornår skal koden der henter data eksekveres - nu sker det åbenbart når du trykker enter, det kunne tyde på at du har smidt den i en _Click-event, måske skal du bruge _KeyPress, Key_Down, _Change osv...

i øjeblikket er det lavet som en makro hvor jeg har en knap i værktøjslinien til ataktivere den med. jeg tror ikke at jeg kan bruge den ved kun at trykke enter for det skal også være muligt at skrive alm. tekst der ikke skal hentes, og det er ikke et bestemt felt eller ark der skal hentes til. men herer koden

Sub Makro1()

Dim id As String
Dim kolonne As Double
Dim række As Double
Dim tmp As String
Dim række1 As Double
Dim kolonne1 As Double
Dim tmp1 As String
Dim ark As String

ActiveCell.Select
id = Selection
kolonne = ActiveCell.Column
række = ActiveCell.Row
kolonne = kolonne + 1

ark = ActiveCell.Worksheet.Name
Sheets("ark2").Select
tmp = Range(id).Value
Range(id).Select
kolonne1 = ActiveCell.Column
række1 = ActiveCell.Row
kolonne1 = kolonne1 + 1
tmp1 = Sheets("ark2").Cells(række1, kolonne1).Value

Sheets(ark).Select

Selection = tmp
Sheets(ark).Cells(række, kolonne).Value = tmp1

End Sub

Din kode kan koges ned til denne

Sub Makro1()
ActiveCell = Sheets("ark2").Range(ActiveCell.Value).Value
End Sub

Du er nødt til at hoppe ud af cellen og ind igen, for ellers kan du ikke køre en makro.

Jeg kom også frem til at jeg blev nødt til at hoppe ud af cellen og ind igen, men det var det jeg håbede at jeg kunne ændre på.

nå ikke nogen løsning på dette, så snupper jeg den selv

Fra 24 linier til 1 linie!

:o)