• 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.

Automatisch cellen omlijnen

Status
Niet open voor verdere reacties.
R

robmarinussen

Nieuwe gebruiker
Lid geworden
13 feb 2013
Berichten
2
Zou graag mijn macro willen uitbreiden

in mijn werkblad zou ik cellen omlijnen vanaf Bijv rij 5 t/m laatst gevulde rij

Heb op dit forum gezocht maat het lukte mij niet om de range aan te passen startend vanaf bijv rij 5

Dim sht As Worksheet
Dim LastRow As Long
Dim LastColumn As Long
Dim StartCell As Range

Set sht = ActiveSheet
Set StartCell = Range("D9")

'Refresh UsedRange
ActiveSheet.UsedRange

'Find Last Row
LastRow = sht.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

'Select Range
sht.Range("A3:N" & LastRow).Select
Set UsedRange = sht.Range("A3:N" & LastRow)

With ActiveSheet.UsedRange.Borders
.LineStyle = xlContinuous
.Color = vbBlack
.Weight = xlThin
End With
 
Plaats svp de code tussen codetags.
Code: 
Sub VenA()
  With Range("A5:N" & Application.Max(5, Cells(Rows.Count, 1).End(xlUp).Row)).Borders
    .LineStyle = xlContinuous
    .Color = vbBlack
    .Weight = xlThin
  End With
End Sub
 
Code: 
Sub SjonR()
With Range("A5:N" & Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row).Borders
    .LineStyle = xlContinuous
    .Color = vbBlack
    .Weight = xlThin
End With
End Sub
 
Met voorwaarde dat laatst gevulde rij groter/gelijk 5 is:
Code: 
Sub helpmij()
With ActiveSheet
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
If LastRow >= 5 Then
    With Range("A5:N" & LastRow).Borders
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .Weight = xlThin
    End With
End If
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan