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