CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

lineriber Praktikant

14. december 2015 - 13:51 Der er 2 kommentarer og
1 løsning

VBA loop

Hej Eksperter

Jeg har brug for hjælp til at skrive et loop.

Jeg har 120 filer hvor skal tilføje 67 forskellige formler I 33 forskellige kolonner.

Jeg har i forvejen et loop jeg kan bruge til at gennemløbe de 120 filer, men jeg har brug for hjælp til at skrive loopet der skal indsætte de 67 forskellige former I de 33 kolonner.

Jeg har koden der skriver de 67 formler ind I kolonne E på de rigtige rækker:

Sub Formler()
Range("E10").FormulaR1C1 = "=R[2]C+R[368]C+R[408]C"
Range("E12").FormulaR1C1 = "=R[1]C+R[18]C+R[23]C+R[28]C+R[33]C+R[281]C+R[324]C+R[346]C"
Range("E13").FormulaR1C1 = "=SUM(R[1]C+R[8]C+R[11]C+R[14]C)"
Range("E14").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range("E21").FormulaR1C1 = "=SUM(R[1]C:R[2]C)"
Range("E24").FormulaR1C1 = "=SUM(R[1]C:R[2]C)"
Range("E27").FormulaR1C1 = "=SUM(R[1]C:R[2]C)"
Range("E30").FormulaR1C1 = "=SUM(R[1]C:R[4]C)"
Range("E35").FormulaR1C1 = "=SUM(R[1]C:R[4]C)"
Range("E40").FormulaR1C1 = "=SUM(R[1]C:R[4]C)"
Range("E45").FormulaR1C1 = "=R[1]C+R[58]C+R[91]C+R[140]C+R[165]C+R[174]C+R[207]C"
Range("E46").FormulaR1C1 = "=R[1]C+R[9]C+R[17]C+R[25]C+R[33]C+R[41]C+R[49]C"
Range("E47").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E55").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E63").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E71").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E79").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E87").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E95").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E103").FormulaR1C1 = "=R[1]C+R[9]C+R[17]C+R[25]C"
Range("E104").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E112").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E120").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E128").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E136").FormulaR1C1 = "=R[1]C+R[9]C+R[17]C+R[25]C+R[33]C+R[41]C"
Range("E137").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E145").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E153").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E161").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E169").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E177").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E185").FormulaR1C1 = "=R[1]C+R[9]C+R[17]C"
Range("E186").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E194").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E202").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E210").FormulaR1C1 = "=R[1]C"
Range("E211").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E219").FormulaR1C1 = "=R[1]C+R[9]C+R[17]C+R[25]C"
Range("E220").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E228").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E236").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E244").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E252").FormulaR1C1 = "=R[1]C+R[9]C+R[17]C+R[25]C+R[33]C"
Range("E253").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E261").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E269").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E277").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E285").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("E293").FormulaR1C1 = "=SUM(R[1]C+R[8]C+R[15]C+R[22]C+R[29]C+R[36]C)"
Range("E294").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range("E301").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range("E308").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range("E315").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range("E322").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range("E329").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range("E336").FormulaR1C1 = "=SUM(R[1]C+R[8]C+R[15]C)"
Range("E337").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range("E344").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range("E351").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range("E358").FormulaR1C1 = "=SUM(R[1]C+R[6]C+R[10]C)"
Range("E359").FormulaR1C1 = "=SUM(R[1]C:R[4]C)"
Range("E364").FormulaR1C1 = "=SUM(R[1]C:R[3]C)"
Range("E368").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
Range("E378").FormulaR1C1 = "=SUM(R[1]C:R[38]C)"
Range("E418").FormulaR1C1 = "=SUM(R[1]C:R[5]C)"
Range("E426").FormulaR1C1 = "=SUM(R[1]C:R[38]C)"

End Sub

Ovenstående formler skal indsættes I de følgende kolonner:
C
E:P
S:AD
AG:AJ
AM
AO
AQ
AS

Nogen der kan hjælpe med at skrive mit loop - meget gerne så det er nemt at ændre kolonnerne som formlerne skal indsættes i?

Mvh
Line

Synes godt om

kabbak Professor

14. december 2015 - 18:23 #1

Sub Formler()
Dim Kol As Variant, I As Integer, C As String
Kol = Split("C E F G H I J K L M N O P S T U V W X Y Z AA AB AC AD AG AH AI AJ AM AO AQ AS", " ")
For I = 0 To UBound(Kol)
C = Kol(I)
Range(C & "10").FormulaR1C1 = "=R[2]C+R[368]C+R[408]C"
Range(C & "12").FormulaR1C1 = "=R[1]C+R[18]C+R[23]C+R[28]C+R[33]C+R[281]C+R[324]C+R[346]C"
Range(C & "13").FormulaR1C1 = "=SUM(R[1]C+R[8]C+R[11]C+R[14]C)"
Range(C & "14").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range(C & "21").FormulaR1C1 = "=SUM(R[1]C:R[2]C)"
Range(C & "24").FormulaR1C1 = "=SUM(R[1]C:R[2]C)"
Range(C & "27").FormulaR1C1 = "=SUM(R[1]C:R[2]C)"
Range(C & "30").FormulaR1C1 = "=SUM(R[1]C:R[4]C)"
Range(C & "35").FormulaR1C1 = "=SUM(R[1]C:R[4]C)"
Range(C & "40").FormulaR1C1 = "=SUM(R[1]C:R[4]C)"
Range(C & "45").FormulaR1C1 = "=R[1]C+R[58]C+R[91]C+R[140]C+R[165]C+R[174]C+R[207]C"
Range(C & "46").FormulaR1C1 = "=R[1]C+R[9]C+R[17]C+R[25]C+R[33]C+R[41]C+R[49]C"
Range(C & "47").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "55").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "63").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "71").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "79").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "87").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "95").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "103").FormulaR1C1 = "=R[1]C+R[9]C+R[17]C+R[25]C"
Range(C & "104").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "112").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "120").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "128").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "136").FormulaR1C1 = "=R[1]C+R[9]C+R[17]C+R[25]C+R[33]C+R[41]C"
Range(C & "137").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "145").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "153").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "161").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "169").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "177").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "185").FormulaR1C1 = "=R[1]C+R[9]C+R[17]C"
Range(C & "186").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "194").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "202").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "210").FormulaR1C1 = "=R[1]C"
Range(C & "211").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "219").FormulaR1C1 = "=R[1]C+R[9]C+R[17]C+R[25]C"
Range(C & "220").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "228").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "236").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "244").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "252").FormulaR1C1 = "=R[1]C+R[9]C+R[17]C+R[25]C+R[33]C"
Range(C & "253").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "261").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "269").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "277").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "285").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range(C & "293").FormulaR1C1 = "=SUM(R[1]C+R[8]C+R[15]C+R[22]C+R[29]C+R[36]C)"
Range(C & "294").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range(C & "301").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range(C & "308").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range(C & "315").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range(C & "322").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range(C & "329").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range(C & "336").FormulaR1C1 = "=SUM(R[1]C+R[8]C+R[15]C)"
Range(C & "337").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range(C & "344").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range(C & "351").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range(C & "358").FormulaR1C1 = "=SUM(R[1]C+R[6]C+R[10]C)"
Range(C & "359").FormulaR1C1 = "=SUM(R[1]C:R[4]C)"
Range(C & "364").FormulaR1C1 = "=SUM(R[1]C:R[3]C)"
Range(C & "368").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
Range(C & "378").FormulaR1C1 = "=SUM(R[1]C:R[38]C)"
Range(C & "418").FormulaR1C1 = "=SUM(R[1]C:R[5]C)"
Range(C & "426").FormulaR1C1 = "=SUM(R[1]C:R[38]C)"
Next
End Sub

Synes godt om

kabbak Professor

23. december 2015 - 14:11 #2

hvordan går det

Synes godt om

lineriber Praktikant

04. januar 2016 - 09:17 #3

Det virker præcis som ønsket - tusinde tak for hjælpen.

...og beklager den lange svartid, havde problemer med at få eksperten.dk til at fungere før jul, og så glemte jeg dig igen.

Mvh
Line

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lopslag Af Mariacecilia i Excel	5	I går 19:00	I går 22:42
Vagtliste med rul mellem skifter Af Klaus W i Excel	0	I går 13:33	-
Formelhjælp Af boro23 i Excel	3	I går 10:54	I går 12:56
Hvis(og()) på baggrund af STØRSTE() og FORSKYDNING() Af AnnaS i Excel	5	18/04/202413:47	I går 14:47
Bil benzin regnskab ? Af fimo i Excel	14	17/04/202414:04	I går 12:22

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS