25. september 2005 - 11:18Der er
4 kommentarer og 1 løsning
Indsæt ny række, når en given talrække brydes
Hej Jeg har en kolonne (D) med en talrække: 1-3-4-8 Værdien 4 er ikke altid til stedet, dvs. at talrækken brydes. Når det sker, vil jeg gerne have en ny blank række indsat.
Eks. på min D-kolonne: Mit ønske: A B C D E A B C D E X X X 1 X X X X 1 X X X X 3 X X X X 3 X X X X 4 X X X X 4 X X X X 8 X X X X 8 X X X X 1 X X X X 1 X X X X 3 X X X X 3 X X X X 8 X X X X 8 X DK Office2003
Tryk Alt+F11 for at komme til VBE. I vinduet til venstre højreklikker du på VBAProject(Mappe1) ..eller dit mappenavn. Vælg Insert - Module. I vinduet der fremkommer til højre (modulet) sætter nu nedenstående kode ind. Tryk F5 for at køre makroen. -------------
Sub ManglerNummer() Dim slut, i As Integer
slut = Range("D65000").End(xlUp).Row
For i = slut To 1 Step -1 Cells(i, 4).Select If ActiveCell.Value = 8 Then If ActiveCell.Offset(-1, 0).Value <> 4 And ActiveCell.Offset(-1, 0).Value <> "" Then ActiveCell.EntireRow.Select Selection.Insert Shift:=xlDown End If End If Next
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.