Seçili Hücrelerin Bilgileri (Selection)

[Emir Hüseyin Çoban]

. . .

Merhaba.

Seçilen hücre aralığından,
ilk ve son hücrenin satır numarası, adresi ve değerlerini alabilirmiyiz.
Örnekte sarı dolgulu alanın seçildiği varsayılmıştır.

. . .

 

[Ömer]

Merhaba,

Bir örnek. Anlaşılır olması için değişkenlere tanımladım. Hücreye yazdırma işlemini yapmadım, buna göre uyarlarsınız.

Sub Degerler()
 
    Dim ilk_sat As Long, son_sat As Long, a As Byte
    Dim ilk_adres As String, son_adres As String
 
    With Selection
        ilk_sat = .Row
        son_sat = .Rows.Count + ilk_sat - 1
        a = 0: If .Count > 1 Then a = 1
        ilk_adres = Split(.Address(0, 0), ":")(0)
        son_adres = Split(.Address(0, 0), ":")(a)
    End With
 
    'son satır veriyi almak için  Range(son_adres) kullanabilirsiniz.
 
End Sub

 

[Emir Hüseyin Çoban]

. . .

Çok teşekkürler Ömer Bey. Uzun zamandır aklıma takılan bir konuydu. Sayenizde çözümü öğrendim.

Örnek dosyaya uyarlanmış hali:

[B][COLOR="Red"]Sub Adres()[/COLOR][/B]
   Dim ilk_sat As Long, son_sat As Long, a As Byte
   Dim ilk_adres As String, son_adres As String

   With Selection
       ilk_sat = .Row
       son_sat = .Rows.Count + ilk_sat - 1
       a = 0: If .Count > 1 Then a = 1
       ilk_adres = Split(.Address(0, 0), ":")(0)
       son_adres = Split(.Address(0, 0), ":")(a)
   End With
Range("G4") = ilk_adres
Range("G8") = son_adres
End Sub

[COLOR="Red"][B]Sub Satır()[/B][/COLOR]
   Dim ilk_sat As Long, son_sat As Long, a As Byte
   Dim ilk_adres As String, son_adres As String

   With Selection
       ilk_sat = .Row
       son_sat = .Rows.Count + ilk_sat - 1
   End With
Range("G2") = ilk_sat
Range("G6") = son_sat
End Sub

[B][COLOR="Red"]
Sub Veri()[/COLOR][/B]
   Dim ilk_sat As Long, son_sat As Long, a As Byte
   Dim ilk_adres As String, son_adres As String

   With Selection
       ilk_sat = .Row
       son_sat = .Rows.Count + ilk_sat - 1
       sütun = .Column
   End With
Range("G3") = Cells(ilk_sat, sütun)
Range("G7") = Cells(son_sat, sütun)
End Sub

. . .

 

[Ömer]

Rica ederim, iyi çalışmalar.