Kopiere celle til anden celle alt efter værdi

modtagercellen er fx ARK2!"C"&ISOUGE.NR(NU())+10
hvor +10 er offset til hvor uge 1 starter i ark2 (er 0 hvis uge 1 er i række 1)
og "C" er kolonnen med modtagerfelter

Du kan bruge VBA-kode til at løse dette problem. Følg disse trin for at oprette makroen:

    Åbn dit Excel-ark og tryk på "Alt + F11" for at åbne Visual Basic Editor.
    Klik på "Indsæt" og vælg "Modul" for at oprette et nyt VBA-modul.
    I modulet skal du skrive følgende kode:

Sub IndsætVærdi()
    Dim UgeNr As Integer
    Dim Ark2 As Worksheet
    Dim Værdi As Variant
   
    ' Definer det aktuelle ugenummer
    UgeNr = WorksheetFunction.IsoWeekNum(Date)
   
    ' Definer det ark, hvor værdien skal indsættes
    Set Ark2 = Sheets("Ark2")
   
    ' Definer værdien, der skal indsættes
    Værdi = Sheets("Ark1").Range("A1").Value
   
    ' Find den celle, hvor værdien skal indsættes i Ark2
    Set Celle = Ark2.Range("A2:B53").Find(UgeNr, LookIn:=xlValues, LookAt:=xlWhole)
   
    ' Indsæt værdien i den korrekte celle
    If Not Celle Is Nothing Then
        Celle.Offset(0, 1).Value = Værdi
    End If
End Sub


    Erstat "Ark1" med navnet på dit første ark og "Ark2" med navnet på dit andet ark.
    Gem makroen ved at klikke på "Filer" og derefter "Gem".
    Klik på "Filer" og derefter "Indstillinger".
    Klik på fanen "Tilpas båndet" og markér afkrydsningsfeltet ved siden af "Udvikler" i kolonnen "Hovedfaner".
    Klik på "OK" for at gemme indstillingerne.
    Gå tilbage til dit Excel-ark og klik på fanen "Udvikler".
    Klik på knappen "Indsæt værdi" for at køre makroen og indsætte værdien i den korrekte celle i Ark2 baseret på det aktuelle ugenummer.

Denne makro finder det aktuelle ugenummer og søger derefter i den angivne rækkevidde i Ark2 for at finde den celle, hvor værdien skal indsættes. Hvis ugenummeret findes i rækkevidden, indsætter makroen værdien i den næste kolonne. Hvis ugenummeret ikke findes, vil makroen ikke indsætte værdien.