Makroda Aralık Belirtme

[selveroz]

Merhabalar tekrar,

Makromun 2. sayfasında C sütununda 2. satırdan veri olan son satıra kadar bir aralık belirtmek istiyorum ama beceremiyorum. ":" kabul etmiyor. Yardımlarınızı bekliyorum... Tşkler

 

[Orion1]

Merhabalar tekrar,

Makromun 2. sayfasında C sütununda 2. satırdan veri olan son satıra kadar bir aralık belirtmek istiyorum ama beceremiyorum. ":" kabul etmiyor. Yardımlarınızı bekliyorum... Tşkler

İşte kodlarınız.

Sub aralıklar()
Dim son_sat As Long, adrs As String, aralık As Range
son_sat = Cells(65536, "C").End(xlUp).Row
If son_sat < 2 Then Exit Sub
adrs = "C2:C" & son_sat
Set aralık = Range(adrs)
MsgBox "ARALIK..: " & aralık.Address
Set aralık = Nothing
End Sub