Avatar billede R.ray Juniormester
02. marts 2017 - 14:14 Der er 4 kommentarer og
1 løsning

Indsæt automatisk en ny linje ved et nyt varenummer

Hej, håber der er nogen der kan hjælpe.

Jeg har et udtræk som jeg trækker du i excel, det indeholder nogle varenumre. Er det muligt at man automatisk kan lave en opstilling der indsætter et linjeskift når der kommer et nyt varenummer fx.

223344 Varenavn
223344 Varenavn

112233 Varenavn

443322 Varenavn
443322 Varenavn

På forhånd tak :)
Avatar billede kabbak Professor
02. marts 2017 - 15:10 #1
Stil dig i den kolonne, hvor din ID er og kør makroen, du må ikke køre den 2 gange, så får du flere tomme liner.


Public Sub IndsætTomRække()
    Dim Rk As Long, I As Long, Col As Integer
    Rk = ActiveSheet.UsedRange.Rows.Count
    Col = ActiveCell.Column
    For I = Rk To 2 Step -1
        If Cells(I, Col) <> Cells(I - 1, Col) Then
            Rows(I).Insert Shift:=xlDown
        End If
    Next
End Sub
Avatar billede Jan Hansen Ekspert
02. marts 2017 - 15:31 #2
#1

If Cells(I, Col) <> Cells(I - 1, Col) Then

for at tage højde for ikke at sætte linier in hvis det er en tom linie
If Cells(I, Col) <> Cells(I - 1, Col) AND Cells(I,Col).Value <> "" Then

har jeg ikke ret?

mvh Jan
Avatar billede kabbak Professor
02. marts 2017 - 16:41 #3
#1
det er ikke nok, sådan

Her virker det

Public Sub IndsætTomRække()
    Dim Rk As Long, I As Long, Col As Integer
    Rk = ActiveSheet.UsedRange.Rows.Count
    Col = ActiveCell.Column
    For I = Rk To 2 Step -1
        If (Cells(I, Col) <> Cells(I - 1, Col)) And (Cells(I, Col).Value <> "" And Cells(I - 1, Col).Value <> "") Then
            Rows(I).Insert Shift:=xlDown
        End If
    Next
End Sub
Avatar billede Ayumi Sophia Praktikant
02. marts 2017 - 17:28 #4
Spam

Dette indlæg er blevet modereret af en CoAdmin

Avatar billede R.ray Juniormester
16. marts 2017 - 12:15 #5
Det Script du har givet mig Kabbak, det fungerer. Men hvad skal jeg gøre hvis jeg gerne vil have makroen til at køre i forbindelse med "opdatere alle" funktionen i excel ?
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