Bir sayfada belirtilen metni aratıp hücre adresini almak.

[fasuto53]

Merhaba arkadaşlar, şöyle bir senaryoda çalışabilecek bir formül ya da formül kombinasyonu öneriniz olabilir mi?

Sayfa1 içerisinde herhangi bir konumda benzersiz bir metin içeriği bulunduğunu var sayalım (ürün ID'si gibi düşünebilirsiniz), bu kodu sayfada arayıp, bulunduğu hücrenin adresini belirtecek... Bende bu adrese göre kayır fonksiyonları ile sırasıyla diğer işlemleri yaptırmam mümkün olacak.

 

[Muzaffer Ali]

Merhaba.
Kod ile yeni bir kullanıcı tanımlı fonksiyon eklenerek yapılabilir.

Aşağıdaki kodu yeni bir module kopyalayın.

Public Function Ara_Bul(Aranan As String, Alan As Range) As String
    Dim Bulunan As Range
    Set Bulunan = Alan.Find(what:=Aranan, Lookat:=xlWhole)
    If Bulunan Is Nothing Then
        Ara_Bul = "#BULUNAMADI"
    Else
        Ara_Bul = Bulunan.Address
    End If
End Function

Kullanımı

Normal bir Excel fonksiyonu gibi kullanabilirsiniz.
Örnek:
=Ara_Bul("test";Sayfa1!A:A) Test kelimesini Sayfa1 A kolonunda arar
=Ara_Bul("test";Sayfa1!1:1048576) Test kelimesini Sayfa1 in tamamında arar.

 

[Levent Menteşoğlu]

Bende ekte fonksiyonlarla çözüm içeren bir dosya ekliyorum. Fonksiyon A1 hücresindeki değeri C1:K1000 aralığında arar ve bulunduğu adresi verir.

=ADRES(TOPLA.ÇARPIM((C1:K1000=A1)*SATIR(C1:K1000));TOPLA.ÇARPIM((C1:K1000=A1)*SÜTUN(C1:K1000));4)

 

[fasuto53]

Konuyu açmadan bir arama yaptım, forumda aynı sorunun VB ile yapılanını görmüştüm. Anladığım kadarıyla bu işi bir kaç fonksiyonla kodlara bulaşmadan çözmek pek mümkün değil ya da uğraşı daha çok.
Cevaplarınız için teşekkür ederim.

 

[Levent Menteşoğlu]

Konuyu açmadan bir arama yaptım, forumda aynı sorunun VB ile yapılanını görmüştüm. Anladığım kadarıyla bu işi bir kaç fonksiyonla kodlara bulaşmadan çözmek pek mümkün değil ya da uğraşı daha çok.
Cevaplarınız için teşekkür ederim.

Merhaba

Benim eklediğim dosyadaki çözüm tamamen yerleşik fonksiyonlarladır.

 

[fasuto53]

Merhaba

Benim eklediğim dosyadaki çözüm tamamen yerleşik fonksiyonlarladır.

Formül haricinde kod olduğunu sanmıştım. Böylesi çok iyi. Teşekkürler.