[Løst] Excel 2007 VBA sumifs summeringsområde variabel

[Bigelk]

Hei.

 

Jeg har 7 ark som skal summeres sammen på et ark. etterhvert så blir det mange fler. 365 fordelt på 52 ark.

jeg trenger derfor og lage en makro som gjør det mye lettere og putte inn formlene jeg skal bruke.

 

Dette blir koden på formelen jeg bruker.

Jeg har prøvd og legge inn arkene med en variabel i stedet for selve navnet på arket, men får det ikke til og fungere.

f.eks

dim a as variant

a = "31.10.2011"

Men det fungerer ikke. noen som har noen forslag på hvordan koden skal se ut?

Range("d4").Select
   ActiveCell.FormulaR1C1 = _
       "=SUMIFS('31.10.2011'!RC:R[40]C,'31.10.2011'!RC[-3]:R[40]C[-3],RC[-3])

Hilsen

 

Torbjørn

Endret 10. januar 2012 av Bigelk

[Harald Staff]

Jeg har en mistanke om at du er ute og sykler nå. En eller flere formler med SUMIFS som strekker seg over 52 ledd er rimelig kraftkrevende. Må det regnes om overalt for hver lille celleendring? Hva er det systemet ditt egentlig skal gjøre, og hvorfor?

 

Beste hilsen Harald

[Bigelk]

Hei.

 

Det blir laget en statistikk hver dag over hva som blir produsert, det arket lagres og for hver uke summeres de arkene sammen for å se produksjonen igjennom hele uken.

så de 52 arkene tilsvarer da uker. så 1 ark har syv ark som skal summeres.

så de 52 arkene er uavhengige av hverandre. hvertfall så langt.

 

Tenkte etterhvert å få en mnds oversikt og års oversikt.

 

Håper det var en god nok forklaring, tar selfølgelig imot gode tips på hvordan det kan løses

 

 

Hilsen

 

Torbjørn

[Bigelk]

Hei.

 

Jeg prøver litt forskjellig nå, men har funnet at jeg ikke helt veit hva jeg driver med.

 

prøver ut den koden her nå. men får opp en feil

Dim sheetname As String
sheetname = "'" & Ark1 & "'"

   Range("a3").Select
   ActiveCell.FormulaR1C1 = "=SUM(" & sheetname & "!R1C1:R2C1)"

feilkode

Run-time error 438

object dosen't suport this property or method

(sheetname = "'" & Ark1 & "'")

 

Noen som skjønner hva jeg skal gjøre her?

 

Hilsen

 

Torbjørn

[Bigelk]

Endelig!

 

Hei.

 

da var den løst.

Dim sheetname As String 
sheetname = "Ark1" 

   Range("a3").Select 
   ActiveCell.FormulaR1C1 = "=SUM(" & sheetname & "!R1C1:R2C1)"

den ferdige koden ser da sånn ut

Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String
Dim f As String
Dim g As String
a = "31.10.2011"
b = "01.11.2011"
c = "02.11.2011"
d = "03.11.2011"
e = "04.11.2011"
f = "05.11.2011"
g = "06.11.2011"


Range("d4").Select
Dim i As Integer
For i = 1 To 70
   ActiveCell.FormulaR1C1 = _
       "=SUMIFS(" & a & "!R4C4:R44C4," & a & "!R4C1:R44C1,RC[-3])+SUMIFS(" & b & "!R4C4:R44C4," & b & "!R4C1:R44C1,RC[-3])+SUMIFS(" & c & "!R4C4:R44C4," & c & "!R4C1:R44C1,RC[-3])+SUMIFS(" & d & "!R4C4:R44C4," & d & "!R4C1:R44C1,RC[-3])+SUMIFS(" & e & "!R4C4:R44C4," & e & "!R4C1:R44C1,RC[-3])+SUMIFS(" & f & "!R4C4:R44C4," & f & "!R4C1:R44C1,RC[-3])+SUMIFS(" & g & "!R4C4:R44C4," & g & "!R4C1:R44C1,RC[-3])"
       ActiveCell.Offset(1, 0).Select
   Next i

 

Hilsen

 

Torbjørn