Avatar billede pharlap Nybegynder
01. maj 2006 - 13:51 Der er 4 kommentarer og
1 løsning

Hjælp til liste

Hejsa!
Jeg har et excel ark med ca 4000 tlf-numre.
Disse står i rækkefølge i kolonne C. Feks 30303001, 30303002 osv

Kan nogen hjælpe mig med at udforme en makro, der render denne liste igennem og hvis der forekommer et sted hvor der feks mangler et nummer (30303001, 30303002) så skal den indsætte en blank linie mellem disse 2 og evt farve linien Rød.
Avatar billede pharlap Nybegynder
01. maj 2006 - 13:53 #1
Ups... hvis et nummer mangler... feks  30303001 og 30303003, så skal den sætte en blank rød linie ind mellem disse 2 numre
Avatar billede excelent Ekspert
01. maj 2006 - 14:19 #2
Sub separer()
Dim t As Long, i As Long
t = Cells(Rows.Count, 3).End(xlUp).Row
For i = t To 2 Step -1
  If Cells(i, 3).Value <> Cells(i - 1, 3).Value + 1 Then
    Rows(i).Insert
    Cells(i, 3).Interior.ColorIndex = 3
  End If
Next
End Sub
Avatar billede excelent Ekspert
01. maj 2006 - 14:42 #3
eller hvis der er større huller:

Sub separer2()
Dim t As Long, i As Long, j As Long
t = Cells(Rows.Count, 3).End(xlUp).Row
For i = t To 2 Step -1
  If Cells(i, 3).Value <> Cells(i - 1, 3).Value + 1 Then
    For j = 1 To Cells(i, 3).Value + 1 - Cells(i - 1, 3).Value - 2
    Rows(i).Insert
    Cells(i, 3).Interior.ColorIndex = 3
    Next
  End If
Next
End Sub
Avatar billede pharlap Nybegynder
01. maj 2006 - 20:32 #4
Super... Tak for hjælpen... Smider du lige et svar?
Avatar billede excelent Ekspert
01. maj 2006 - 20:44 #5
ok velbekom
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

IT-JOB