Avatar billede sleeper Nybegynder
27. maj 2009 - 09:05 Der er 3 kommentarer og
1 løsning

Macro til indsætning af linier

Hej

Jeg skal bruge en macro

Jeg har et tal stående i kollone m

f.eks række 2 står der i kollone m 4
Så skal der sættes 4 liner ind efter række 2

f.eks række 3 står der i kollone m 6
Så skal der sættes 6 liner ind efter række 3

Osv...
Avatar billede hellstern Nybegynder
27. maj 2009 - 10:37 #1
Hej,
Denne makro skulle kunne klare dette.
Der er følgende forudsætninger:

I A kolonen må der ikke ved start forekomme blanke celler, koden vil da stoppe der.

I M cellen skal der stå heltal, altså 0, 1, 2 osv. der må ikke stå 1,5

Data området starter i cellen A2, jeg går ud fra at A1 indeholder overskrifter.

Sub mcrRowInd()
    'Variable
    Dim varAntal As Double
    Dim i As Double
   
    'Start celle ikke overskrift
    Range("A2").Select
   
    'Gennemløb af data
    Do Until ActiveCell.Value = ""
        If ActiveCell.Offset(0, 12) <> 0 Then
            varAntal = ActiveCell.Offset(0, 12).Value 'Antal Row's der skal ind
            ActiveCell.Offset(1, 0).Select
           
            For i = 1 To varAntal
                Rows(ActiveCell.Row & ":" & ActiveCell.Row).Select 'Marker Row
                Selection.Insert Shift:=xlDown 'Indsæt Row
            Next
            ActiveCell.Offset(varAntal, 0).Select 'Gå x antal Row's ned
        Else
            ActiveCell.Offset(1, 0).Select 'Gå en Row ned
        End If
    Loop

End Sub

Hilsen
Tue Hellstern
www.F1-support.dk
Avatar billede sleeper Nybegynder
27. maj 2009 - 12:36 #2
perfekt

tak for hjælpen
Avatar billede sleeper Nybegynder
27. maj 2009 - 12:36 #3
Ligger du et svar så jeg kan afslutte
Avatar billede hellstern Nybegynder
27. maj 2009 - 13:36 #4
Hej,
Super du kunne bruge det :-)

Hilsen
Tue Hellstern
www.F1-support.dk
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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