VBA kopiere uden formler
Jeg arbejder med et stort datasæt som måned for måned blot vokser.Jeg vil gerne lave en VBA som tager de formler der står i T2:AC2 og kopierer dem ned. Jeg har ikke brug for formlerne efterfølgende andet end i den øverste række stadig.
Jeg kan godt kopiere formlerne, indsætte dem og efterfølgende kopiere værdierne og indsætte dem fladt. Lige nu lyder det sådan:
Dim intSidsteRække As Integer
intSidsteRække = Range("A1", Range("A1").End(xlDown)).Rows.Count - 2
Range("t2:ac2").Select
Selection.Copy
Selection.AutoFill Destination:=Range(Selection,Selection.Offset(intSidsteRække))
Jeg tænker dog der må være en bedre måde, der også gør makroen hurtigere. Jeg tænker det kræver at VBA laver udregningen og indsætter værdien, fremfor at indsætte formlen - kan nogen vise mig hvordan?
Formlerne er som følger (men det er nok med et par eksempler, så kan jeg nemt rette til i de andre:
=LEFT(C2;1)
=VLOOKUP(VALUE(N2);'Opslag ny'!$A:$B;2;0)
=IFERROR(VLOOKUP(VALUE(L2);'Opslag ny'!$E:$F;2;0);"-")
=VLOOKUP(U2;OPslag!$C$2:$E$180;3;0)
=VLOOKUP(V2;OPslag!$K$2:$M$29;3;0)
=IF(K2="SERVICE";IFERROR(VLOOKUP(W2;OPslag!$O$3:$S$39;5;0);"Øvrige Service");K2)
=VLOOKUP($Y2;OPslag!$G$3:$H$13;2;0)
=VLOOKUP(W2;OPslag!$C$2:$D$105;2;0)
=VLOOKUP(X2;OPslag!$K$2:$L$24;2;0)
=IFERROR(VLOOKUP($H2;'Opslag ny'!$I$2:$J$45;2;0);$H2)