Værdierne skulle end i uge 3 – 4 det gør den ikke

Der er ingen vba bag din knap...

Derudover så er henvisningen måske bare til forkert kolonne?

Synes jeg kan genkende spørgsmålet?

Mon det er sådan:

Hej kim1a

Holde da op, der er ikke meget kode der  : -)

Håber det hjalp nu  : -)

https://www.dropbox.com/scl/fi/zwptld6ja3o9vymb1qj22/L-n-Status_med-kode.xlsm?dl=0&rlkey=2pxa5o0df0szge5ccm734hmhi

Morten 😊
Det er helt rigtigt  kom bare ikke vider 😊 den ville ikke

Fik sat en knap på  (det var lettere )

Hilsen Martin

#3  -  Morten

Holde da op, nu køre det ski : -)

hvad havde jeg gjort forkert i denne kode  her?

Private Sub CommandButton1_Click()

Uge = Range("C1").Value

    For Each b In Sheets("Status Ark").Range("b6:c32")
        If InStr(1, UCase(b.Value), Uge) > 0 Then
            Rk = b.Row
        End If
    Next b

      Sheets("Status Ark").Range("E" & Rk).Value = Sheets("Indtastnings ark").Range("A3").Value
      Sheets("Status Ark").Range("F" & Rk).Value = Sheets("Indtastnings ark").Range("A4").Value
      Sheets("Status Ark").Range("H" & Rk).Value = Sheets("Indtastnings ark ").Range("A9").Value
      Sheets("Status Ark").Range("I" & Rk).Value = Sheets("Indtastnings ark ").Range("A11").Value
     
End Sub

Ja den sat ind forkert :-)

Måske Sønder on her  :

    If InStr(1, UCase(b.Value), Uge) > 0 Then
            Rk = b.Row
        End If