Goedendag,
Even een kort vraagje:
Doormiddel van VBA wil ik een rand aangeven om de cellen die gevuld zijn.
Het aantal cellen dat gevuld is verandert en dus heb ik een code geschreven die controleert tot welke cel gevuld is.
Nu zoek ik alleen nog een code die alleen de kolomen a tot e een rand geeft en
niet een gehele rij of maar 1 kolom.
Met deze code geeft hij de gehele kolom een rand ( dus tot rij 65536) en dat is dus niet wat ik zoek tot de rij die gevuld is.
Iemand een snelle simpele oplossing?
Even een kort vraagje:
Doormiddel van VBA wil ik een rand aangeven om de cellen die gevuld zijn.
Het aantal cellen dat gevuld is verandert en dus heb ik een code geschreven die controleert tot welke cel gevuld is.
Nu zoek ik alleen nog een code die alleen de kolomen a tot e een rand geeft en
niet een gehele rij of maar 1 kolom.
Code:
Sub randen()
Dim rand As String
rand = 1
Do Until IsEmpty(Sheet5.Cells(rand, 1))
With Sheet5.Range("A:E")
.BorderAround , Weight:=xlMedium
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
.Interior.ColorIndex = xlNone
End With
rand = rand + 1
Loop
End Sub
Met deze code geeft hij de gehele kolom een rand ( dus tot rij 65536) en dat is dus niet wat ik zoek tot de rij die gevuld is.
Iemand een snelle simpele oplossing?