Dobbeltklikk- rutine - How to copy one celle in a list - Range("Area") and paste this value into another cell - B1?

blaksnm

Well-known Member
Joined
Dec 15, 2009
Messages
502
Office Version
  1. 365
Platform
  1. Windows
Hvordan få dette til å fungere?

Privat underordnede Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolsk)
'Endret 26.02.2020 22:33:36 EST

Hvis Target.Range = Range ("Area") deretter
Avbryt = Sann
Område ("B1") = Target.Value
Avslutt hvis

Avslutt sub
 

Some videos you may like

Excel Facts

VLOOKUP to Left?
Use =VLOOKUP(A2,CHOOSE({1,2},$Z$1:$Z$99,$Y$1:$Y$99),2,False) to lookup Y values to left of Z values.

Joe4

MrExcel MVP, Junior Admin
Joined
Aug 1, 2002
Messages
54,871
Office Version
  1. 365
Platform
  1. Windows
Vær så snill å tilgi meg. Jeg bruker Google Translate, da jeg ikke snakker norsk.

Hvordan er ditt navngitte område "Area" nøyaktig definert? Er det akkurat en celle, eller er det flere celler? Du kan ikke sende B1 som tilsvarer flere celleområder.
 

blaksnm

Well-known Member
Joined
Dec 15, 2009
Messages
502
Office Version
  1. 365
Platform
  1. Windows
Takk for at du svarte 😊

Jeg ønsker å ha to alternativer 1: Range («Area»)=Range(«B5:B12»)
Dobbeltklikk på ingen av cellene i «Area» gir denne verdien i celle J1

Og i samme ark

2: Range(«SubArea»)=Range(«J5:J31»)
Dobbeltklikk på en av cellene i «SubArea» gir dette verdien i celle P1

Bare område Area og SubArea kan aktiveres slik ved å dobbeltklikke
 

Joe4

MrExcel MVP, Junior Admin
Joined
Aug 1, 2002
Messages
54,871
Office Version
  1. 365
Platform
  1. Windows
Jeg vet ikke hvor godt denne VBA vil oversette til norsk, men koden skal se ut slik:

VBA Code:
Privat underarbeidsark_BeforeDoubleClick (ByVal Target As Range, Cancel as Boolean)

Hvis ikke skjæringspunkt (mål, rekkevidde ("område")) er ingenting da
Område ("J1"). Verdi = målverdi
Slutt om

Hvis ikke skjæringspunkt (mål, rekkevidde ("underområde") er ingenting da
Område ("P1"). Verdi = målverdi
Slutt om

Avslutt sub

I tilfelle det ikke fungerer, ser VBA-koden ut på engelsk her:
VBA Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Range("Area")) Is Nothing Then
        Range("J1").Value = Target.Value
    End If
    
    If Not Intersect(Target, Range("SubArea")) Is Nothing Then
        Range("P1").Value = Target.Value
    End If
    
End Sub
 

blaksnm

Well-known Member
Joined
Dec 15, 2009
Messages
502
Office Version
  1. 365
Platform
  1. Windows
Thanks a lot! :)
This was very useful!
 

Joe4

MrExcel MVP, Junior Admin
Joined
Aug 1, 2002
Messages
54,871
Office Version
  1. 365
Platform
  1. Windows
Excellent!
Glad it worked for you!
I wasn't sure how Google Translate would handle VBA functions, so wasn't sure.
 

Watch MrExcel Video

Forum statistics

Threads
1,114,207
Messages
5,546,546
Members
410,745
Latest member
citrictango
Top