Søg
Avatar billede mfj1 Nybegynder
01. november 2002 - 16:44 Der er 9 kommentarer og
1 løsning

”Sammenlægning” to gange.

I kolonne D skal jeg sammenlægge to gange som følger:
D3 resultatet skal stå her.
D4
D5
D6
D7
D8
D9
D10
Resultatet skal altid stå i D3 og værdien er altid ens i cellerne D4:D10,
jeg er med på, at i D3 kan der stå =SUM(D4:D10)

D11 resultatet skal stå her
D12
D13
D14
D15
Resultatet skal altid stå i D11 og værdien er altid ens i ALLE
Cellerne D12:D15 (D4=D12), i D11 kan der stå
=SUM(D12:D15)

D16
D17
D18
D19
D20
D21
Resultatet skal altid stå i D16 og værdien er altid ens i ALLE
Cellerne D17:D21 (D7=D19), i D16 kan der stå
=SUM(D17:D21)
osv.

Hvert resultat kan gentage sig mange gang (100) i et Ark til
slut skal D3, D11 og D16 osv. lægges sammen
I f.eks. celle D517.

Er der nogen der har et forslag til hvordan jeg  kan automatisere
Arbejdet.
Mfj1
Avatar billede mfj1 Nybegynder
01. november 2002 - 16:54 #1
Cellerne D4:D10, D12:D15 og D17:D21 har farven hvid
Cellerne D3, D11 og D16 har farven gul
Kan det bruges til noget?
mfj1
Avatar billede Flemming Vadet - Smart Office DK Professor
01. november 2002 - 16:59 #2
Er ALLE cellerne hvori du skal indsætte SUM funktionerne tomme og ALLE cellerne med tal indeholder faktisk et tal ?
Avatar billede mfj1 Nybegynder
01. november 2002 - 17:10 #3
Ja, alle cellerne hvor der skal indsættes en SUM funktion er tomme og alle cellerne med tal indeholder faktisk tal f.eks. 10.
mfj1
Avatar billede Flemming Vadet - Smart Office DK Professor
01. november 2002 - 17:11 #4
OK - øjeblik
Avatar billede Flemming Vadet - Smart Office DK Professor
01. november 2002 - 17:23 #5
Så skulle den være der:

Public Sub InsertSUM()
    Dim wks As Worksheet
    Dim lCount As Long
    Dim lLastRow As Long
    Dim lRow As Long
    Dim sSums As String
    Set wks = ActiveSheet
   
    lLastRow = wks.Range("D65536").End(xlUp).Row
    lRow = lLastRow
    sSums = "="
   
    For lCount = lLastRow To 4 Step -1
        If wks.Cells(lCount, 4).Value = "" Then
            sSums = sSums & "D" & CStr(lCount) & "+"
            wks.Cells(lCount, 4).FormulaR1C1 = "=SUM(R[1]C:R[" & CStr(lRow - lCount) & "]C)"
            lRow = lCount - 1
        End If
    Next
   
    wks.Cells(lLastRow + 2, 4).Formula = Left(sSums, Len(sSums) - 1)
   
    Set wks = Nothing
End Sub
Avatar billede mfj1 Nybegynder
01. november 2002 - 17:37 #6
flemmingdahl
TAK, det virker rimeligt, men den springer SUM funktionen over i B3
mfj1
Avatar billede mfj1 Nybegynder
01. november 2002 - 17:39 #7
Sorry det var D3.
Avatar billede Flemming Vadet - Smart Office DK Professor
01. november 2002 - 17:48 #8
Ret For lCount = lLastRow To 4 Step -1
til For lCount = lLastRow To 3 Step -1
Avatar billede mfj1 Nybegynder
01. november 2002 - 17:57 #9
flemmingdahl
Nu kører det, TAK.
mfj1
Avatar billede Flemming Vadet - Smart Office DK Professor
01. november 2002 - 17:59 #10
Det var godt :-)
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
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Flytte fra et projekt til andet Af hkprofil i Excel 1 11/11/202612:17 11/11/202613:08
Slet tal, bevar de underliggende formler Af bbkdk i Excel 7 11/11/202609:23 I går 16:57
Måned og år på graf Af mort1 i Excel 4 31/10/202613:01 01/11/202614:13
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 08:39 Produktnøgle Af hkv i Office & Kontorpakker
13/1116:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »