Dobbeltklik og overfør data fra flere kolonner

Prøv med

Sheets("Beregning Dessin").Range("???") = Target.Offset(??,0).Value

Erstat ??? med adressen på den anden celle du til kopiere til og
?? med offset til den kolonne der skal hentes fra.

Hej Thor,

Jeg skal både have data fra kolonne BS og en anden given kolonne med over ved dobbeltklik. Den ene som skrevet C2, den anden i D2.

Ok hvad er så "en anden given kolonne"?



Erstat ?? med offset til "en anden given kolonne".

Hej Thor,

Det prøvede jeg før. Kan ikke helt få det til at virke. Jeg går ud fra at jeg skal bruge kolonnenr. og ikke bogstaverne. I det her tilfælde kunne det være kollonne 2 (B:B).

Jeg får resultatet fra en helt anden kolonne over.

Edit. Nå, jeg fandt ud af at det første tal i parantesen er hvor mange rækker ned og det andet er hvor mange kolonner hen. Så jeg prøvede mig frem og kom frem til dette:

If Not Intersect(Target, Range("BS:BS")) Is Nothing Then
        If Target.Cells.Count = 1 Then
            Cancel = True
            Sheets("Beregning Dessin").Range("C2") = Target.Value
            Sheets("Beregning Dessin").Range("D2") = Target.Offset(0, 4).Value
        End If
    End If

Sorry - skød fra hoften.