HHA Seniormester
12. januar 2021 - 18:02

Sum af celler med reference til andre celler

Hejsa,

Så er jeg sgu her igen :)

Har nedenstående, som er lavet med hjælp herinde fra, tak!
Nu har jeg så et ønske om at få bygget videre på den, så den bliver noget nær perfekt!

Se min forklaring nede i koden.

Neden stående formel startede her:
https://www.computerworld.dk/eksperten/spm/1034707

Sub SUM_AF_MARKEREDE_CELLER_I_KOLONNE_F()
'
' SUM_AF_MARKEREDE_CELLER_I_KOLONNE_F Makro
'
' Genvejstast:Ctrl+t
'
Dim R1, R2 As Long
R1 = Selection.Rows(1).Row
R2 = Selection.Rows(1).Row + Selection.Rows.Count - 1
If Selection.Column = 6 Then

' Her skal den se hvilket tal der står i cellen (mellem 1 og 5) til venstre for den markerede celle.
' De referer til løngrupper 1-5 (Kolonne I række 7-11).
' Den skal så hvis den ser, fx et 2 tal i kolonne 5 i valgte række, tage timerne i den samme række kolonne F
' og gange dem med værdien i celle I8, dividere med værdien i celle I7.
' Det samme skal den for den/de celler man har markeret i kolonne F, med reference til tallene i kolonne E, 1-5 og
' ende med en sum af timer udregnet efter ovenstående i cellen lige over den øverst markerede celle.


Selection.Rows(1).Offset(-1, 0) = WorksheetFunction.Sum(Selection)




Selection.Rows(1).Offset(-1, 3) = WorksheetFunction.Sum(Selection.Offset(0, 3))
Selection.Rows(1).Offset(-1, 4) = WorksheetFunction.Sum(Selection.Offset(0, 4))
Selection.Rows(1).Offset(-1, 5) = WorksheetFunction.Sum(Selection.Offset(0, 5))
Selection.Rows(1).Offset(-1, 6) = WorksheetFunction.Sum(Selection.Offset(0, 6))
End If
Range(Cells(R1, 2), Cells(R2, 2)) = "Nej"
Range(Cells(R1, 13), Cells(R2, 13)) = "Ja"
End Sub
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

Opret Preview

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





Premium
Exchange-sårbarhed truer selskaber over hele kloden: Sådan blev den opdaget af Dubex fra Søborg
En række akutte sårbarheder i Microsoft Exchange Server har sendt en panisk bølge gennem Exchange-miljøet. Sårbarhederne blev opdaget af danske Dubex. Se her, hvordan de blev opdaget af det danske selskab. "Var hackerne lykkedes med det, ville det være forholdsvist voldsomt," siger Jacob Herbst fra Dubex.
Computerworld
Hånden på hjertet: Er der plads i din virksomhed til it-nørderne, der sjosker rundt i ikke nødvendigvis ens strømpesokker?
Klumme: Er der plads i din organisation til it-nørder, der går rundt på arbejdspladsen i to ikke nødvendigvis ens strømpesokker, fordi det er svært virkeligt at koncentrere sig, når skoene klemmer?
CIO
Har du rost din mellemleder i dag? Snart er de uddøde - og det er et tab
Computerworld mener: Mellemledere lever livet farligt: Topledelsen får konstant ideer med skiftende hold i virkeligheden, og moden går mod flade agile organisationer. Men mellemlederen er en overset hverdagens helt med et kæmpe ansvar. Her er min hyldest til den ofte latterliggjorte mellemleder.
Job & Karriere
IBM Danmark trækker tilbud om frivillige fratrædelser tilbage for stort antal ansatte: "IBM har taget røven på sine ansatte"
Som led i IBM Danmarks store fyringsrunde fik 130 ansatte grønt lys til at forlade selskabet på en frivillig fratrædelsesordning. Men nu har IBM Danmark trukket det oprindelige tilbud tilbage for størstedelen af de ansatte.
White paper
Fri medarbejdermobilitet - med digital bodyguard
Om at gå fra adgangsstyring på personniveau til adgangsstyring på desktopniveau. I takt med at flere og flere medarbejdere arbejder remote og logger på jeres systemer og netværk uden for virksomhedens sikkerhedsværn, risikerer de at efterlade døren til forretningen på klem. Dermed bliver endpoints som pc’ere, Mac’s og servere et oplagt mål for hackere, som vil ind i virksomhedens infrastruktur. I blandt sker det også, at medarbejdere udnytter deres privilegerede adgangsrettigheder til skadelige formål. Det er derfor mere aktuelt end nogensinde at rette opmærksomheden mod jeres endpoints og de rettigheder, der ligger her.