Sayılarla adres oluşturma

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Örnek dosyada, A ve B sütunlarındaki sayılarla C sütununda daha farklı makro ile adres oluşturmak istiyorum.
Saygılarımla

 

[ÖmerFaruk]

Örnek

Sub AdresYeni()
    Dim Hcr As Range
    Kolon1 = Range("A1")
    Kolon2 = Range("B1")
    Set Hcr = Range("A1")
    Do While Hcr > 0
        Hcr.Offset(, 2) = Range(Cells(Hcr.Value, Kolon1), Cells(Hcr.Offset(, 1), Kolon2)).Address(False, False)
        Set Hcr = Hcr.Offset(1, 0)
    Loop
End Sub

 

[Korhan Ayhan]

Başka bir alternatif;

Sub Test()
    Columns(3).ClearContents
    For X = 1 To Cells(Rows.Count, 1).End(3).Row
        Cells(X, 3) = Cells(Cells(X, 1), Cells(1, 1)).Address(0, 0) & ":" & Cells(Cells(X, 1), Cells(1, 2)).Address(0, 0)
    Next
End Sub

 

[Tevfik_Kursun]

Çok teşekkür ederim
Saygılarımla