øge tal med fast procent

Du i første tomme celle under kolonnen skrive f.eks. 1,25 (+25%), vælge kopier, marker tallene over i kolonnen, vælge indsæt speciel (fra rediger menuen), og vælge multiplicer

Hej Hans01

Du kan evt. også bruge denne VBA kode stump.
Koden skal placeres under det aktuelle worksheet´s Change hændelse i VBA editoren (Alt + F11)

I eksemplet herunder har jeg mine værdier i cellerne A1-A9.
Når jeg så taster en værdi i celle B1 (som er større end eller = 1), så ganges/og udskiftes værdierne i cellerne A1-A9.

OBS:
Linie 4:  Udskift selv cellerne A1-A9, så de passer til dit ark.
Linie 5:  Udskift selv regnearten til den udregning der passer dig.


------

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Address = "$B$1" And Target.Value >= 1 Then

    Application.ScreenUpdating = False

    For Each c In Range("A1:A9").Cells

          c.Value = c.Value * Range("B1").Value

    Next
    Application.ScreenUpdating = True


End If

End Sub


-----


Med venlig hilsen, Nicolai

Hej Hans01

Ups ...

Linie 2:
Udskift selv "$B$1"  med den celle du ønsker skal indeholde din forøgelsesværdi

Mvh Nicolai

Hej lalocin

det var en smart løsning.

prøver lige

Hej Hans01

En okay løsning, som giver mulighed for at bruge den igen og igen.

Gi´ lyd, hvis "skidtet" ikke virker.


Med venlig hilsen, Nicolai