overføre fra en celle til en anden

Jeg er i tvivl om hvad du mener. Hvilken betingelse skal være opfyldt for at overføre/indføre værdien, og hvordan skal værdien indføres?

Det er lidt svært at forklare yderligere. Prøver........
Jeg har tænkt mig en makro.
Der skal kigges i F2 (ugenummer).
Værdien står i J11

Der skal så findes samme uge nummer i cellerne mellem P2 og BO2 (som i F2).

uge:
5 (F2)

værdi:
45% (J11)

Resultat:
      P2  Q2  R2  S2  T2  U2
(ugenr)1    2    3    4    5    6  ............52
(værdi fra J11)          45%
Værdien i dette tilfælde indsættes fra J11 til T3, da F2 er uge 5

Public Sub xferWeekValue()
    Dim weekIds, weekVals As Range
    Dim choice As Integer
    Set weekIds = Cells.Range("p2", "bo2") ' Det burde være navngivne områder
    Set weekVals = Cells.Range("p3", "bo3") '
    choice = Cells.Range("f2").Value
    For idx = 1 To weekIds.Count
        If weekIds.Cells(idx).Value = choice Then
            weekVals.Cells(idx).Value = Cells.Range("j11").Value
        End If
    Next idx
End Sub

eller bedre

            Cells.Range("j11").Copy weekVals.Cells(idx)

hvor der står

            weekVals.Cells(idx).Value = Cells.Range("j11").Value

Hej.
Nu får jeg ihvertfald kopieret noget ind i den korrekte celle.
Men.......
Den formel der står i J11 (som skal kopieres) hedder:
=SUBTOTAL(9;J15:J1966)/SUBTOTAL(9;I15:I1966)

Resultatet af din makro giver
=SUBTOTAL(9;T7:T1958)/SUBTOTAL(9;S7:S1958)

hmmmm

Ja, når man kopierer en formel, bliver de relative cellereferencer oversat til destinationen.
Hvis en formel skal bruge de samme celler efter kopiering må man bruge absolutte referencer. Prøv evt. denne formel i J11:

=SUBTOTAL(9;$J$15:$J$1966)/SUBTOTAL(9;$I$15:$I$1966)

Hvis det er formlens aktuelle værdi der skal kopieres kan mit første indlæg med 'xferWeekValue()' bruges.

Kanskje denne lille macro kan hjelpe?

Sub Makro1()

    Range(Cells(3, 15), Cells(3, 15)).Offset _
    (0, Range("F2").Value).Value = Range("J11").Value
   
End Sub