Soru Excel makro kullanımında veri olan son aralığa kadar seçmek

[samet1996123]

Herkese Merhaba,

Excel'de makro kullanarak belirli bir veri aralığına kenarlık ekleyerek tablo haline getirmek yazı tipini değiştirmek gibi işlemler uygulamak istiyorum.

Fakat sorunum çektiğim verilerde satır sayısının farklı olması.

Makroda A1 hücresi ile veri olan son satır aralığını otomatik olarak seçebilecek bir kod var mıdır ?

Şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Range(Range("A1"), ActiveSheet.UsedRange).Select

 

[samet1996123]

Çok teşekkürler. Peki başlık konumlandırmak istiyorum ama sütun sayısı belli değil nasıl bir kod kullanmalıyım.

 

[samet1996123]

Yada şöyle sorsam daha uygun olacak.

Excel'de alanda veri olan kısım varsa aşağıdaki adımları uygulayacak bir kod gerekiyor.

*Veri olan her hücreye kenarlık uygulansın.
*Veri olan her hücrenin yazı tipi calibri 11 olsun.
*Sadece ilk satır için veri olan her sütun gri renge boyansın.

Bu şekilde bir kod rica etsem yardımcı olabilir misiniz ?

 

[ÖmerBey]

Aşağıdaki kodu deneyiniz...

Sub kod()
Dim s1 As Worksheet
Dim hcr As Range

Set s1 = ActiveSheet

With Union(s1.UsedRange.SpecialCells(xlCellTypeConstants), s1.UsedRange.SpecialCells(xlCellTypeFormulas))
    .Font.Name = "Calibri"
    .Font.Size = 11
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeRight).LineStyle = xlContinuous
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeTop).LineStyle = xlContinuous
End With

For Each hcr In s1.UsedRange.Rows(1).Cells
    If hcr.Value <> "" Then hcr.Interior.Color = 14211288
Next
End Sub