Overføre celleværdi til andet ark ved at dobbeltklikke?

Skal der overføres til den tilsvarende celle i Ark 2, eller er det en fast celle uanset hvor du dobbeltklikker ?

her er en der sætter værdien i samme celle på Ark2.

Koden skal være i ("Regnskab") arkets modul, hvis den værdien skal i en anden celle, må du give besked.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Sheets("Ark2").Range(Target.Address) = Target.Value
End Sub

I arket "Regnskab" dobbeltklikker man i forskellige celler men den celle som værdien skal overføres til i arket "Kontokort" er altid den samme - nemlig celle A4. Denne celle indeholder i forvejen en liste, hvori man også kan vælge kontonummer. Ved ikke om man så samtidig kan overføre data til denne celle?

[Kabbak]: Jeg kender ikke til det du skriver mht. til kode - hvor skal jeg indsætte denne kode? Er det i en makro?

Højreklik på "regnskab" fanen, vælg vis programkode, der skal du sætte koden ind.

NB. den virker på alle celler du dobbeltklikker på i dit ark, mådke skal den kun virke i et bestemt område, så sig til.



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Sheets("Ark2").Range("A4") = Target.Value
End Sub

Okay på den måde...

Så skal det gerne fungere sådan her:
Uanset hvor man dobbelklikker i en række i det ark1, skal det altid være værdien fra kolonne A i den pågældende række der bliver overført til "Ark2".
Når værdien så overføres, skal man skifte til det pågældende ark, og her skal denne makro aktiveres:
Sub Kontokort()
'
' Kontokort Makro
' Genvejstast:Ctrl+k
'
    Range("A7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A6:E500").Sort Key1:=Range("A7"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ActiveWindow.SmallScroll Down:=-3
    Range("A4").Select
End Sub

Kan man det?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("A:A")) Is Nothing Then
  Sheets("Ark2").Range("A4") = Target.Value
    Call Kontokort
  End If
End Sub


Sub Kontokort()
'
' Kontokort Makro
' Genvejstast:Ctrl+k
Sheets("Ark2").Activate
Range("A7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A6:E500").Sort Key1:=Range("A7"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ActiveWindow.SmallScroll Down:=-3
    Range("A4").Select
End Sub


så virker dobbeltklik kun i kolonne A

Den første skal være i Arkmodulet for arket"regnskab", den anden skal være i et normalt modul, der er der den normalt ligger når du optager en makro.

Tester lige....

Det er perfekt... kan jeg give "kommentarer" point?

et svar. ;-)))

Tak for hjælpen

selv tak.