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

[blaksnm]

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

 

[Joe4]

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]

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]

Jeg vet ikke hvor godt denne VBA vil oversette til norsk, men koden skal se ut slik:

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:

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]

Thanks a lot!
This was very useful!

 

[Joe4]

Excellent!
Glad it worked for you!
I wasn't sure how Google Translate would handle VBA functions, so wasn't sure.