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.
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
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.
