Avatar billede 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.
Avatar billede 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
Avatar billede 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.
Avatar billede 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
Avatar billede 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å?
Avatar billede excelent Ekspert
26. juni 2006 - 17:38 #5
velbekom :-)

m ændres til s i følgende linie:

Range("a" & r1 & ":s" & r2).Select
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 for alle niveauer og behov – find det kursus, der passer til dig

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