Brug af museklik i Excel

Altså, hvis der står 10025 i celle  A1, så skal der også stå 10025 i Celle  C1 når jeg har klikket på celle A1

Jeg tror ikke der i Excel er mulighed for at "fange" et klik på en celle. Du skulle måske overveje at lave en Knap med en makro i stedet.

Hmm, ærgeligt.............
Jeg kan løse problemet, hvis jeg kan få markøren til automatisk, at gå til næste feldt når jeg har indtastet et bogstav, f.eks. a

Kan dette så lade sig gøre???

med et museklik er det ikke mulig men ved dobbeltklik kan det gøres.
Indsæt denne kode i arkets eget kodemodul. (højreklik på arkfanen, vælg vis koder).

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
  Target.Offset(0, 2).Value = Target.Value
End If
End Sub

Hovsa, skal det kun være A1 og ikke hele kolonnen ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1")) Is Nothing Then
  Target.Offset(0, 2).Value = Target.Value
End If
End Sub

Hmm, du må undskylde men jeg forstår ikke et mug af ovennævnte..........
Jeg har en mængde dat i et celleområde, som er a1 til i11 (dette celle område er på ark2)
Når jeg så dobbeltklikker på én af cellerne skal værdien overføres til bestemte celler i ark1

og hvilke celler skal det så overføres til på ark1 ?

bak

Hvor pokker finder navnene på de der hændelser i Excel (såsom BeforeDoubleClick). Jeg har søgt og søgt, men har ikke kunnet finde noget.

//jap

Værdierne skal overføres fra (Ark2 A1;I11) til (Ark1 V3;V92)

Prøv i VBA-editor i hjælpen at søge på event.
Eller findes de i rullegardinet. fx. gå ind i ThisWorkBook-moduler.
I det 1. rullegardin (general) klikker du på WorkBook og derefter er alle hændelser i ThisworkBook til rådighed i rullegardin ved siden af.

I hjælpen kunne du prøve at søge på WorkSheet og finde dens hændelser. der er beforedoubleklik og nævnt

>bak
jeg har lige sendt dig en mail.........

bvk -> er det så meningen at værdierne skal overføres efterhånden som du (dobbelt)klikker på dem og til den næste tomme celle i området ark1(v2:v92)  ?

bak

Hjælpefunktionen giver ingenting (måske fordi jeg bruger 97?). Hvilket rullegardin snakker du om?

Ja, enten i næste tomme celle eller 1 i V3 og 17 i V19 osv.
Det gør ikke noget hvis de forskellige tal får deres faste pladser i ark1 kolonne V3-V92

Hvis det kan lade si gøre, må tallet i cellen man har dobbeltklikket på, også gerne skifte farve til rød tekst.

Det kan jo også laves med et klik, hvis ikke A1 er markeret i forvejen!

Private Sub Worksheet_SelectionChange(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Target.Offset(0, 2).Value = Target.Value
    End If
End Sub

Ja, det var jo et svar!

hmm skal det mon ikke være Target.Value = Target.Offset(0, 2).Value

Da jeg nu har haft fordelen af at se arket har jeg lavet 2 makroer
Denne i et alm modul

Public counter
Sub Nulstil_Spil()
    Ark2.Range("A1:I11").Interior.ColorIndex = xlNone
    Ark1.Range("v3:v93").ClearContents
    counter = 0
End Sub

og denne i ark2' eget modul

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:i11")) Is Nothing Then
  counter = counter + 1
  Cancel = True
  With Target
    With .Interior
    .ColorIndex = 3
    .Pattern = xlSolid
    End With
  Ark1.Range("V2").Offset(counter, 0).Value = .Value
  End With
End If
End Sub

bemærk at counter er public så den kan nulstilles fra første kode.
Og igen tak til Flemming for
    If Not Intersect(Target, Range("A1:I11")) Is Nothing  :-)

hehe bak - tak ikke mig, men ham der lærte mig det ;-)

See, NU spiller det bare.............
Jeg takker mange gange.

Superjab-> har du modtaget en mail fra mig ?

bak->ja, jeg ser på det senere. Tak.