Avatar billede jesper-mp Nybegynder
05. februar 2014 - 11:57 Der er 3 kommentarer og
1 løsning

Hjælp til makro

Jeg fik hjælp til dette skriv fra en herinde men vil meget gerne have det udvidet med en detalje.

Lige nu foretages der en indexering (1.1 - 1.2 etc) hvis jeg indsætter ny linje. Herudover ændres hovedoverskrifen (1 - 2 - 3 etc.) hvis kol. B bliver markeret med fed. Det jeg rigtig godt kunne tænke mig var at den linje med hovedoverskriften samtidig med at der indsættes nummering i kol. A foretages en markering med farve (eks. grå) ved denne overskrift. Denne farve skal markere rækken fra kol. A til kol. F.

Er der nogle der kan hjælpe?

Kode

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b4:b100")) Is Nothing Then
Dim LastRow As Long
Range("A4:A100").NumberFormat = "@"
y = 0
Z = 0
Range("A4:A100").ClearContents
LastRow = Range("b65536").End(xlUp).Row
For x = 2 To LastRow
If Cells(x, 2).Font.Bold = True Then
Z = 0
y = 1 + y
Cells(x, 1) = y
Else
Z = Z + 1
Cells(x, 1) = (y & "." & Z)
End If
Next
End If
End Sub
Avatar billede supertekst Ekspert
05. februar 2014 - 13:01 #1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
    If Not Intersect(Target, Range("b4:b100")) Is Nothing Then
        Range("A4:A100").NumberFormat = "@"
        y = 0
        Z = 0
       
        Range("A4:A100").ClearContents
        LastRow = Range("b65536").End(xlUp).Row
   
        For x = 2 To LastRow
            If Cells(x, 2).Font.Bold = True Then
                Z = 0
                y = 1 + y
                Cells(x, 1) = y
                markerOverskrift x
            Else
                Z = Z + 1
                Cells(x, 1) = (y & "." & Z)
            End If
        Next
    End If
End Sub
Private Sub markerOverskrift(ræk)
    Range("A" & ræk & ":F" & ræk).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.149998474074526
        .PatternTintAndShade = 0
    End With
End Sub
Avatar billede jesper-mp Nybegynder
05. februar 2014 - 13:42 #2
Jamen det virker jo - tak for det.

Når jeg opdaterer ryger min pointer nederst i mit sheet - eller sidste punkt. Det er sket her nu. kan det ændres?
Avatar billede supertekst Ekspert
05. februar 2014 - 13:59 #3
Selv tak

Det du nævner oplever jeg nu ikke.
Men du er velkommen til at sende filen - så kan jeg se på det.

@-adresse under min profil
Avatar billede jesper-mp Nybegynder
05. februar 2014 - 14:11 #4
Jeg sender dig lige en mail - 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
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