27. juni 2006 - 07:53Der er
5 kommentarer og 2 løsninger
spm/717631
Jeg følgende kode som jeg har fået af excelent
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
Hvis man fx har datoerne række A 5-25/1 & 1-28/2 & 3-30/4 &1-10/5
så virker koden fint hvis man står på den 5/1 og makerer januar færdig, hvis man står på den 3/2 virker koden ikke, fordi den ikke kan finde en dato i marts, det samme problem er hvis man står i maj måned, og vil makere det der er i maj, for efter maj er der ikke flere datoer
Sub Marker() On Error Resume Next 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 Then r2 = r Next Range("a" & r1 & ":m" & r2).Select End Sub
Har rettet fra = m + 1 til <> m: If Month(Cells(r, 1)) = m And Month(Cells(r + 1, 1)) <> m Then r2 = r
Hvorfor chekke på om næste række er forskellig fra måneden ?
Sub Marker() Dim r, r1, r2, m r1 = ActiveCell.Row: m = Month(ActiveCell) For r = 1 To 200 If Month(Cells(r, 1)) = m Then r2 = r Next Range("a" & r1 & ":m" & r2).Select End Sub
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.
