Trække referencer med spring mellem referencerne

Jeg har ikke lige excel her,
prøv dig frem med:

=sum.hvis(rest(række();14)=0))

mvh finb

Den giver en fejl, for få argumenter.

Hvis der må bruges VBA.


Sub CopyMedSpring()
    'Antal til næste sum
    AntalKolonnerMellemSpring = 14
    AntalSum = 2
       
    ActiveCell.Copy
    For i = 1 To AntalSum
        ActiveCell.Offset(0, AntalKolonnerMellemSpring).Select
        ActiveCell.PasteSpecial (xlPasteFormulas)
    Next
    Application.CutCopyMode = False
End Sub

Det må det sådanset gerne, havde bare håbet på der var en nemmere måde at gøre det på. Umiddelbart lidt meget arbejde at lave en makro, bare for at trække et par referencer.

Makroen virker fint, og løste problemet, så smid et svar Guffe.

Her er et svar.

Enig med det er bøvlet, men kender ikke nogen anden måde lige pt.

Af ren interesse - er det muligt at få IT-GuFFe til at oploade en fil der viser et eksempel?

Hans

Har ikke lige nogen steder jeg kan upload en fil til.

Mit eksempel var sådan her ca.

2,00        1,00        2,00
3,00        6,00        1,00
4,00        2,00        3,00
               
=SUM(A1:A3)           

Så har jeg placeret mig i A5 (SUM funktionen) - og så kørt makroen. (Der er dog kun med 2 kolonne spring her)


Sub CopyMedSpring()
    'Antal til næste sum
    AntalKolonnerMellemSpring = 2
    AntalSum = 2
       
    ActiveCell.Copy
    For i = 1 To AntalSum
        ActiveCell.Offset(0, AntalKolonnerMellemSpring).Select
        ActiveCell.PasteSpecial (xlPasteFormulas)
    Next
    Application.CutCopyMode = False
End Sub

Tak IT-GuFFe.

Hvis spørgeren er interesseret i en formelløsning, så prøv eventuelt denne:

I f. eks. A5: =HVIS(REST(KOLONNER($A:A)-1;$A$10)=0;SUM(A1:A3);"")

hvor A10 indeholder tallet for antal mellemrum.

Formlen kopieres mod højre i nødvendigt omfang.

Hans

Måske:
A5: =SUM(A1:A3)
Marker A5:B5 og fyld ud til højre.

Resultat:
A5: =SUM(A1:A3)
B5:
C5: =SUM(C1:C3)
D5:
E5: =SUM(C1:C3)

Eks. på Ark2:
A1: =SUM('Ark1'!A1:A3)

Marker A1:N1 og fyld ud til højre, så lang du har brug for.

Med markering, vælg "Søg og vælg" --> "Gå til speciel" --> vælg "Tomme celler" --> OK

Højreklik på "Blå" markering, og vælg "Slet" --> "Ryk celler til venstre" --> OK

Resultat:
A1: =SUM('Ark1'!A1:A3)
B1: =SUM('Ark1'!O1:O3)
C1: =SUM('Ark1'!AC1:AC3)... osv

#9 Det virker også, men er en kende mere omstændigt end med makroen.
Var lige en tand for hurtig til at acceptere Guffe's svar, men det er trods alt hans svar jeg brugte, selvom du burde have haft nogle. Håber det kan accepteres.