Fastfrysning af celler

kun ved at kopier cellen og så vælg indsæt specielt i samme celle og vælg værdier

Hej kabbak.
Jeg er ikke helt med på hvad du mener. Kan du forklare det nærmere. Jeg troede at det måske kunne klares med en makro, eller en kode af en eller anden slags.
Ib

Via kode kan du godt, men da det er en formel, du har i cellen, kan den ikke automatisk trikke en automatisk makro, så du skal fysisk, selv køre makroen.

Hvad nu hvis jeg har en celle med et tal som bruges i formlen, og jeg ændre dette tal, kan man så få denne ændring til at køre en makro?
Ib

Skal være i arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then ' celle der indgår i formel
        [b1] = [b1].Value ' formelcellen, her B1, bliver til en værdi, i stedet for formel
    End If
End Sub

Hej kabbak.
Hvad gør jeg forkert? Jeg kan ikke få det til at virke.
Det drejer sig om et låneskema, hvor jeg gerne vil regne et rentebeløb ud i J8 og ned. Min formel ser sådan her ud.
=HVIS(D8<>0; HVIS(D8-H8=0;H8*$J$4*F8/365;HVIS(F8<"";H8*$J$4*F8/365;""));"")Formlen er kopieret nedad.
D8 er afdrag, H8 er lånt beløb tilbage, F8 er antal lånte dage og J4 er renten. Jeg har ændret formlen så den nu ser sådan her ud.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$j$4" Then ' celle der indgår i formel
        [j8] = [j8].Value ' formelcellen, her j8, bliver til en værdi, i stedet for formel
    End If
End Sub
Jeg har sat den ind i wbaprojekt (arkets navn) - ark1(ark1) – Worksheet. Er det rigtigt?
Jeg vil gerne kunne ændre renten (J4) i et måned, uden at det udregnede rentebeløb, for de foregående måneder, ændre sig
Ib

Hej kabbak.
Er det en helt umulig opgave jeg er gået i gang med? Hvis ja så læg et svar, så lukker jeg.
Jeg er ikke så god til det med koder.
Ib

Hej kabbak.
Jeg har stadig ikke fundet ud af mit problem. Kan du hjælpe mig, eller er der andre der kan. Hvis ikke så læg lige et svar kabbak, så jeg kan få lukket.
Ib

Jeg havde faktisk ventet på om nogen af de andre nørder, havde et svar, jeg er ikke helt sikker på at det kan gøres, jeg skal se arket først, inden jeg er sikker.

Du kan sende den til kabbak snabela tiscali dot dk

Hej kabbak.
Skema er sendt.
Ib

Lav en knap og lad den kalde denne makro, den laver de formler, der er udregnet, om til værdier.
Så tryk på den inden du ændrer renten, eller bare for hver måned, du indtaster.

Sub FRYS()
    Dim I As Integer
    For I = 8 To 46 Step 2
        If Cells(I, "J") = "" Then Exit For
        Cells(I, "J") = Cells(I, "J").Value  ' formelcellen, her B1, bliver til en værdi, i stedet for formel
    Next
End Sub

Hej kabbak. Det virker perfekt. Tak for hjælpen. Vil du fortælle lidt om hvad koden gør. Læg et svar.
Ib

Sub FRYS()
    Dim I As Integer
    For I = 8 To 46 Step 2' step 2 fordi du bruger hveranden celle
        If Cells(I, "J") = "" Then Exit For' hvis der ikke er en værdi, må den have nået sidst udregnet, så stop ved at Exit koden
        Cells(I, "J") = Cells(I, "J").Value  ' formelcellen, her B1, bliver til en værdi, i stedet for formel
    Next 'tjekker næste celle
End Sub