Hej!

Är ny här och novis på makron. Jag har ett litet projekt jag håller på med, men har kört fast lite. Tänkte om ni som har lite mer erfarenhet kanske kan hjälpa mig.

Jag har ett blad där det finns en kolumn med ett gäng summor, låt säga att de är i SEK. Vad jag är ute efter är att bygga ett makro som med hjälp av en knapp omvärderar dessa till exempelvis EUR via en kurs som jag lägger in manuellt i samma blad. Optimalt vore om den nya EUR-summan ersatte den befintliga SEK summan i samma kolumn. Är detta görbart på något smidigt sätt, i så fall hur?

Det vore även ypperligt med en knapp som återställer allt till ursprungsvärden i den kolumnen.

Tips emottages tacksamt!

Tack på förhand

 Tack Christian för ditt snabba och utförliga svar!

Ska testa detta, och lär med stor sannolikhet återkomma med följdfrågor.

Hej Hej

Inte jättesvårt. Lägg till en figur, döp figuren i namnrutan till antingen shpEuro, eller shpSek, beroende på vilken del som ska köras först. Koppla därefter knappen till macrot nedan. De tidigare två kan du ta bort.

Sub SwitchCUrr()

Dim rng As Range: Set rng = ActiveSheet.Range("rngKurs")
'Namngiven kolumn där du har dina Euro/sekkurser
Dim rng2 As Range: Set rng2 = ActiveSheet.Range("rngPengar")
Dim mcell As Range
'Dedikerar variabeln Shp till figuren som triggade makrot
Dim shp As Shape: Set shp = ActiveSheet.Shapes(Application.Caller)

Select Case shp.Name
Case "shpEuro"
shp.TextFrame.Characters.Text = "to SEK"
shp.Name = "shpSek"
For Each mcell In rng2
mcell.Value = mcell.Value * rng.Value
Next mcell
Case "shpSek"
shp.TextFrame.Characters.Text = "to EURO"
shp.Name = "shpEuro"
For Each mcell In rng2
mcell.Value = mcell.Value / rng.Value
Next mcell
End Select

End Sub