• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Onderrand toevoegen per 2 rijen

Status
Niet open voor verdere reacties.
J

JDHM

Gebruiker
Lid geworden
17 nov 2017
Berichten
14
Hallo iedereen,

Ik wil graag in het toegevoegde bestand voor elke 2 rijen een onderrand toevoegen maar ik weet niet hoe je dit automatisch kunt doen.
Weet iemand hier een oplossing/ macro voor?

Dit is uiteraard niet het bestand waarin ik dit wil uitvoeren maar ik zou graag de oplossing willen kopiëren en plaatsen in mijn Excel bestand voor 280 regels.

Mijn dank is groot!

Gr, JDHM
 

Bijlagen

  • Test.xlsx
    9,2 KB · Weergaven: 52
zo?

Code: 
Sub JDHM()
For i = 3 To Range("A" & Rows.Count).End(xlUp).Row Step 2
    With Cells(i, 1).EntireRow.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
Next i
End Sub
 
of:
Code: 
Sub tsh()
    Range(Join(Evaluate("transpose(""A""&row(1:" & Int(Cells(1).CurrentRegion.Rows.Count / 2) & ")*2+1)"), ",")).EntireRow.Borders(xlEdgeBottom).LineStyle = xlContinuous
End Sub
 
Jouw macro werkt perfect!!
Echter heb ik een fout gemaakt in mijn oorspronkelijke vraagstelling..
Ik heb in mijn bestand een kolom K waarin een datum staat , bv "2017-03-16" en de bovenste en onderste lijntjes moeten aansluiten op die datums..
Weet jij hoe je dit zou kunnen aanpassen in jouw macro?
Dan is die namelijk perfect.
 
Ik heb het bijgewerkte excel bestand bijgewerkt als voorbeeld.
Dus als er bv 16-3-2017 staat dat er een boven-rand en onderrand is.

Echt fantastisch dat jullie zo snel reageren!!!
 

Bijlagen

  • Test.xlsx
    9,5 KB · Weergaven: 60
zo?

Code: 
Sub KOLOMK()

For Each cl In Range("K1:K1000")
If cl.Value <> cl.Offset(1, 0).Value Then cl.EntireRow.Borders(xlEdgeBottom).LineStyle = xlContinuous
Next
End Sub

Ik heb hem tot K1000 gezet, maar als je echt maar 280 regels gebruikt kan je dit even aanpassen.
 
Laatst bewerkt:
Die aanpassing werkt PERFECT!!!
Echt onwijs bedankt!
Fijne weekend!!
 
Of gewoon met vwo.
 

Bijlagen

  • Test_Vwo.xlsx
    9,6 KB · Weergaven: 53
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan