25. marts 2004 - 12:56Der er
11 kommentarer og 1 løsning
Makere relativ rækker & relativ kolonner
Jeg har et problem! som jeg meget gerne vil have hjælp til.
Jeg har en kode, der når den køre makerer fra A1 og så lang med i kolonne A der står noget og så 12 kolonner til højre
Sub Makro1() Dim X As Integer X = 1 Do Until IsEmpty(Cells(X + 1, 1).Value) X = X + 1 Loop Range(Cells(1, 12), Cells(X, 1)).Select End Sub '************************************************* Det jeg gerne vil have er hvis man står i fx C10 (Activecell) så skal koden makere lige så mange rækker ned som er = med Activecell og fx 12 rækker til højer for Activecell. Hvis man står i B20 (Activecell)og køre koden skal koden makere lige så mange rækker ned som er = med Activecell og fx 12 rækker til højer for Activecell. altså relativ.
Sub Makro1() Dim X As Integer, Y As Integer, K As Integer R = ActiveCell.Row K = ActiveCell.Column X = R Do Until IsEmpty(Cells(X + 1, K).Value) X = X + 1 Loop Range(Cells(R, K + 11), Cells(X, K)).Select End Sub
Der tældes fint op relativ. Men hvis man starter i celle C7 hvor der står Ole hansen i cellerne C7 til C25 og i celle C26 står Hans knudsen, skal der kun makeres Fra C7-C25 og så 12 kolonner til højre
Sub Makro1() Dim X As Integer, Y As Integer, K As Integer, T As Variant R = ActiveCell.Row K = ActiveCell.Column T = ActiveCell.Value X = R Do Until (Cells(X + 1, K).Value) <> T X = X + 1 Loop Range(Cells(R, K + 11), Cells(X, K)).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.
