Avatar billede splokit Nybegynder
25. januar 2006 - 13:57 Der er 2 kommentarer og
1 løsning

en vb kode til at lave rækker

ud fra værdien i A:A skal der laves rækker op til 3 så hvis det er 2 tomme celler under første værdi skal del lave en række lige over anden værdi. osv...
    (A)(B)(C)
(01)[V] Hvis der kun er to tomme celler under første værdi skal
(02)    den lave en ny række lige over den værdi næste værdi som
(03)    kommer. Ogt hvis der er mere end 3 tomme skal den ikke
(04)[V] gøre mere
(05)
(06)
(07)
(08)[V]
(09)
(10)
Avatar billede kabbak Professor
26. januar 2006 - 00:08 #1
Sub Makro1()
    rw = Range("A65536").End(xlUp).Row
    For i = rw To 3 Step -1
        If Cells(i, 1) <> "" Then
            If Cells(i, 1).Offset(-1, 0) = "" And Cells(i, 1).Offset(-2, 0) = "" And Cells(i, 1).Offset(-3, 0) = "" Then
            Else
                Rows(i & ":" & i).Insert Shift:=xlDown
            End If
        End If
    Next

End Sub
Avatar billede splokit Nybegynder
26. januar 2006 - 11:44 #2
virker som tanken... takker
Avatar billede kabbak Professor
26. januar 2006 - 11:56 #3
selv tak
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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