Notifikationer

Markér alle som læst Log ud

fagpoler Novice

26. juni 2006 - 16:10 Der er 4 kommentarer og
1 løsning

Maker resten af måned

Hvis man fx. står i A kolonnen (dato 05-02-2006) og gerne vil Makere resten af måneden i A Kolonnen og 12 celler til højre.

Hvad gør man så?
Det kan godt være at 25 februar er sidste post i februar, men A kolonnen fortsætter med marts o.s.v.

Synes godt om

excelent Ekspert

26. juni 2006 - 16:54 #1

Sub Marker()
Dim r, x, r1, r2
r1 = ActiveCell.Row
For r = 1 To 200
'x = Cells(r, 1)
If Month(Cells(r, 1)) = 2 And Month(Cells(r + 1, 1)) = 3 Then r2 = r
Next
Range("a" & r1 & ":m" & r2).Select
End Sub

Synes godt om

fagpoler Novice

26. juni 2006 - 17:13 #2

Jeg har desværre nok ikke udtrykt mig tydelig nok,
det virker fint, når det er resten af februar, der skal makeres,
men hvis det er resten af januar, eller april virker det ikke.

Synes godt om

excelent Ekspert

26. juni 2006 - 17:18 #3

Sub Marker()
Dim r, r1, r2, m
r1 = ActiveCell.Row: m = Month(ActiveCell)
For r = 1 To 200
If Month(Cells(r, 1)) = m And Month(Cells(r + 1, 1)) = m + 1 Then r2 = r
Next
Range("a" & r1 & ":m" & r2).Select
End Sub

Synes godt om

fagpoler Novice

26. juni 2006 - 17:27 #4

Det virker fint, tusind tak, hvis du lægger et svar, får du dine point.

Lige et ekstra spørgsmål, hvis man gerne vil have makert 18 kolonner i stedet for, hvor retter man så?

Synes godt om

excelent Ekspert

26. juni 2006 - 17:38 #5

velbekom :-)

m ændres til s i følgende linie:

Range("a" & r1 & ":s" & r2).Select

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
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
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

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