For each-next med Offset . VBA kode efterlyses.

Forslag:

Sub testSEK()
    For Each cc In ActiveSheet.Range("Valuta")
        If cc.Text = "SEK" Then
            ræk = cc.Row
            kol = cc.Column
            ActiveSheet.Cells(ræk, kol + 7).Value = Cells(ræk, kol + 7) * 0.11
            Stop
        End If
    Next
End Sub

Med test af tom celle:

Sub testSEK()
    For Each cc In ActiveSheet.Range("Valuta")
        If cc.Text = "SEK" Then
            ræk = cc.Row
            kol = cc.Column
           
Rem Kun hvis cellen ER udfyldt
            If ActiveSheet.Cells(ræk, kol + 7) <> "" Then
                ActiveSheet.Cells(ræk, kol + 7).Value = Cells(ræk, kol + 7) * 0.11
            End If
        End If
    Next
End Sub

OK Supertekst det virker som det skal. Et svar og der er point til dig.

Fint - du får et svar...