Notifikationer

Markér alle som læst Log ud

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

Synes godt om

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

Synes godt om

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 ?

Synes godt om

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

Synes godt om

Flemming Vadet - Smart Office DK Professor

01. november 2002 - 17:11 #4

OK - øjeblik

Synes godt om

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

Synes godt om

mfj1 Nybegynder

01. november 2002 - 17:37 #6

flemmingdahl
TAK, det virker rimeligt, men den springer SUM funktionen over i B3
mfj1

Synes godt om

mfj1 Nybegynder

01. november 2002 - 17:39 #7

Sorry det var D3.

Synes godt om

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

Synes godt om

mfj1 Nybegynder

01. november 2002 - 17:57 #9

flemmingdahl
Nu kører det, TAK.
mfj1

Synes godt om

Flemming Vadet - Smart Office DK Professor

01. november 2002 - 17:59 #10

Det var godt :-)

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

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
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
Kan Excel selv beregne alder? Af leahcim i Excel	7	31/08/202610:24	04/09/202602:08
problem med mailbesked Af Pestilensen i Excel	3	24/08/202611:16	28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	18	17/08/202615:14	05/09/202622:04

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