jensen363 Seniormester
14. november 2017 - 12:06 Der er 1 kommentar og
1 løsning

Mindst 7 sammenhængende kolonner med resultater

Jeg har et regneark bestående af en kalender med 365 dage i kolonner ( fra kolonne D til ND )

En række kan bestå af enten en talværdi eller en blank værdi

Jeg har behov for en formel som pr. række angiver om der mindst er 7 eller flere sammenhængende kolonner der ikke er brudt af et blankt felt.
jens48 Ekspert
14. november 2017 - 13:09 #1
Nedenstående makro checker om der er min. 7 sammenhængende celler i de enkelte rækker. Der bliver skrevet "7 i Række" i kolonne C eller kolonne NE hvis 7 sammenhængende celler findes.
Husk at slette 2 linjer i makroen, så data kun bliver skrevet ind i den ønskede kolonne (C eller NE)
Den registrerer ikke hvor mange sammenhængende celler der er, hvis der er flere end 7

Sub Raekke()
Dim LastRow, x, y As Integer
Application.Calculation = xlCalculationManual
LastRow = ActiveSheet.UsedRange.Rows.Count
Range("C3:C" & LastRow).ClearContents ' sletter gammel data i kolonne C
Range("NE3:NE" & LastRow).ClearContents ' sletter gammel data i kolonne NE
For x = 3 To LastRow
For y = 4 To 362
If WorksheetFunction.CountIf(Range(Cells(x, y), Cells(x, y + 6)), ">0") = 7 Then
Cells(x, 3) = "7 i række" ' skriver tallet ind i kolonne C
Cells(x, 369) = "7 i række" ' skriver tallet ind i kolonne NE
End If
Next
Next
Application.Calculation = xlCalculationAutomatic
End Sub
jensen363 Seniormester
14. november 2017 - 14:31 #2
Tusinde tak :-)
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
Fire gange større end næststørste leverandør: Offentlige indkøbere bør følge Ateas dominerende markedsposition tæt
Atea er fire gange større end den næststørste hardware-leverandør til det offentlige. Situationen skal følges skarpt af offentlige indkøbsorganisationer, så det ikke ender med dårlig konkurrence, lyder opråbet.
Computerworld
Få mere fra hånden med det nye Gmail: Her er de første billeder af Googles nye mail-satsning
Google vil gøre Gmail enklere og mere produktiv i de kommende uger. Se hvordan det nye Gmail tager sig ud her.
CIO
Allersidste opdatering på vej: Om en uge er det slut med stor-version af Windows 10 - skynd dig at opdatere
Om en uge er det slut for altid med den første store udgave af Windows 10, som Microsoft efter 29 måneder ikke længere vil supportere.
Job & Karriere
Klassiske brokere af it-konsulenter står over for kæmpe udfordring - forretningsmodellen er under pres
Klumme: Eksterne konsulenter er populære og en god løsning i en branche i vækst. Men selve forretningsmodellen bag it-konsulenterne er under alvorligt pres.
White paper
Hvilken slags CRM understøtter bedst din forretning?
Hvordan vælger jeg det rigtige CRM-system? Hvad skal jeg prioritere? Denne guide giver dig et solidt grundlag for at vælge det CRM-system, der understøtter netop din virksomhed og jeres processer bedst – og som støtter op om arbejdet med bl.a. salg, marketing og service gennem den samlede kunderejse. Du får også konkrete og brugbare tips til, hvordan du øger sandsynligheden for, at CRM bliver en naturlig og selvfølgelig del af dine medarbejderes dagligdag. Hvilket jo er grundlaget for, at det samlede CRM-projekt bliver til en succes.