Avatar billede Lars Mester
11. oktober 2021 - 08:30 Der er 4 kommentarer

Sæt formler som faste værdier

Har følgende VBA kode til, at sætte formler som faste værdier i ark:
Sub Sæt_værdier2()
Dim ref As String, kl As String, Srk As Long
'D2 vælges og formlen: =B2/C2 indsættes
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]"
'Kolonne og sidste række i C findes
    kl = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
    Srk = ActiveSheet.Range("C65536").End(xlUp).Row
'Autofill udføres
    Selection.AutoFill Destination:=Range(ActiveCell.Address & ":" & "$" & kl & "$" & Srk)
'Autofil markeres, kopieres og indsættes som værdier
    Range(ActiveCell.Address & ":" & "$" & kl & "$" & Srk).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Hvis man så også gerne vil sætter faste værdier pba formler i de efterfølgende kolonner E, F, G.... hvordan gør man det og hvor hurtigt arbejder den når der er +50.000 rækker ?

Vh. LK
Avatar billede store-morten Ekspert
11. oktober 2021 - 09:40 #1
"'D2 vælges og formlen: =B2/C2 indsættes
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]"


Er ikke korrekt, E2 vælges og formlen: =C2 indsættes?
Avatar billede Lars Mester
19. oktober 2021 - 14:06 #2
Der skulle stå E2 vælges :-)
Avatar billede store-morten Ekspert
19. oktober 2021 - 14:34 #3
Og formlen?
Avatar billede Lars Mester
22. oktober 2021 - 08:39 #4
Det er mere metoden for, at sætte værdier spørgsmålet gik på:
Sub Sæt_værdier2()
Dim ref As String, kl As String, Srk As Long
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]"
    kl = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
    Srk = ActiveSheet.Range("C65536").End(xlUp).Row
    Selection.AutoFill Destination:=Range(ActiveCell.Address & ":" & "$" & kl & "$" & Srk)
    Range(ActiveCell.Address & ":" & "$" & kl & "$" & Srk).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Hvis man så også gerne vil sætter faste værdier pba formler i de efterfølgende kolonner F, G, H.... hvordan gør man det og hvor hurtigt arbejder den når der er +50.000 rækker ?

Vh. LK
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester