Excel VBA da veri girilmiş alanı tablolaştırma

[spasmex97]

Arkadaşlar kolay gelsin excel sheet üzerinde veri giriyorum verileri girdikten sonra bi butonla bu veriler daha belirgin bir şekilde gözüksün diye kenarlarını tablo gibi yapmak istiyorum sadece kenarlıklarını çekse yeter vba kodu nedir

 

[ÖmerFaruk]

Range("B2:C3").BorderAround xlContinuous, xlThick

 

[spasmex97]

Range("B2:C3").BorderAround xlContinuous, xlThick

fakat girilen verinin boyutu sürekli değişebilir b2:c3 diye yazarsam sadece 6 adet hücreyi tablolaştırmaz mı ?

 

[ÖmerFaruk]

Private Sub Worksheet_Change(ByVal Target As Range)
   Cells.Borders.LineStyle = xlNone
   SonHücre = Cells.Find(What:="*", After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Address
   Range("A1:" & SonHücre).BorderAround xlContinuous, xlThick
End Sub