Formülü Sütun Adresi Olarak Makroda Kullanmak

[baydeniro]

Merhaba Arkadaşlar,
Sub Makro1()
Range(Cells(4, 5), Cells(6, 10)).Select
End Sub

kodundaki 4 yerine şu formülü nasıl koda adapte edebilirim ?
"=MATCH(RC[1],RC[1]:RC[20],0))"

 

[baydeniro]

Merhaba Arkadaşlar,
Sub Makro1()
Range(Cells(4, 5), Cells(6, 10)).Select
End Sub

kodundaki 4 yerine şu formülü nasıl koda adapte edebilirim ?
"=MATCH(RC[1],RC[1]:RC[20],0))"

 

[Korhan Ayhan]

Birşeyler ararken neden FIND (CTRL+F) komutunu kullanmıyorsunuz. Daha kolay kullanımı var.

Örnek;

Option Explicit

Sub Test()
    Dim Bul As Range

    Set Bul = Range("A:A").Find(What:="Aranan_Veri", LookAt:=xlWhole)
    If Not Bul Is Nothing Then
        Range(Cells(Bul.Row, 5), Cells(6, 10)).Select
    End If
End Sub

 

[baydeniro]

Birşeyler ararken neden FIND (CTRL+F) komutunu kullanmıyorsunuz. Daha kolay kullanımı var.

Örnek;

Option Explicit

Sub Test()
    Dim Bul As Range

    Set Bul = Range("A:A").Find(What:="Aranan_Veri", LookAt:=xlWhole)
    If Not Bul Is Nothing Then
        Range(Cells(Bul.Row, 5), Cells(6, 10)).Select
    End If
End Sub

Üstad ilginiz için teşekkür ederim. Kodu yanlış yorumlamış olabilirim.
Yapmak istediğim şu : Aranan Verinin bulunduğu Sütun numarasını bulmak.

 

[Korhan Ayhan]

Siz mesajınızda "4 yerine" diye belirtmişsiniz.

O bölüm satırı ifade etmektedir.

 

[baydeniro]

Siz mesajınızda "4 yerine" diye belirtmişsiniz.

O bölüm satırı ifade etmektedir.

Korhan Ayhan üstadım anlayışınız ve sabrınız için çok teşekkür ediyorum. Gecenin o vaktinde karıştırmışım. Şimdi oldu. Sağ olun var olun, sağlıcakla kalın