Ara...Bul...Hücre Adresini Ver!

[mumugul]

Merhaba;

Makronun, girilen kelimeyi satırda (2:2) bulmasını ve kelimenin bulunduğu hücrenin satır sütün adresini vermesini istiyorum.

Saygılarımla...

 

[Ömer BARAN]

Merhaba.

Satır numarası, sorunuzda var zaten: 2.
Adres için aşağıdaki formülü kullunabilirsiniz.

=EĞERHATA(ADRES(2;KAÇINCI( aranan kelimenin yazılacağı 2'nci satır dışında bir hücre adresi ;2:2;0);4);"ARANAN KELİME YOK")

 

[mumugul]

Merhaba,
Makro derken VBA ı kastetmiştim. Örnek mesela makro SAYFA1.CELLS(1,1) den "Ankara" değerini almış olsun. Bu değeri SAYFA2 de birinci satırın sütunlarında arayıp, bulup bana sutün değerini versin.

 

[Ömer BARAN]

Aşağıdaki gibi olur.

Sub nerede()
Set sut = Sheets("Sayfa2").[1:1].Find(Sheets("Sayfa1").Cells(1, 1))
If Not sut Is Nothing Then
    MsgBox "-- Sayfa2'deki sütun numarası:  " & sut.Column & vbLf & _
    "-- Hücre adresi:  " & Cells(1, sut.Column).Address(0, 0), vbInformation, "..:: Ömer BARAN ::.."
Else
    MsgBox "Aranan değer, Sayfa2'nin 1'inci satırında YOK.", vbCritical, "..:: Ömer BARAN ::.."
End If
End Sub

 

[mumugul]

Teşekkür ederim...
Hücreleri karşılaştırarak da sonuca ulaşabilirim ama aranan ifadenin tam karşılığını arayıp bulsa.
"Ankara" yerine "Kara" girersek de aynı sonucu buluyor.

 

[Orion1]

Teşekkür ederim...
Hücreleri karşılaştırarak da sonuca ulaşabilirim ama aranan ifadenin tam karşılığını arayıp bulsa.
"Ankara" yerine "Kara" girersek de aynı sonucu buluyor.

İlgili satırı aşağıdaki ile değiştirin.

Set sut = Sheets("Sayfa2").[1:1].Find(Sheets("Sayfa1").Cells(1, 1), , xlValues, xlWhole)

 

[mumugul]

Merhaba;

Cevaplar için çok teşekkür ederim.
Teşekkür mesajını ilk gün yazmıştım ama yazıp göndermemişim demek!
Kattığınız değer çok.
Bir de bulamazsa hata veriyor doğal olarak.
Bu hatayı nasıl denetleyebiliriz?

Saygılarımla...

 

[Orion1]

Merhaba;

Cevaplar için çok teşekkür ederim.
Teşekkür mesajını ilk gün yazmıştım ama yazıp göndermemişim demek!
Kattığınız değer çok.
Bir de bulamazsa hata veriyor doğal olarak.
Bu hatayı nasıl denetleyebiliriz?

Saygılarımla...

Aşağıdaki kodları siliniz.

Else
    MsgBox "Aranan değer, Sayfa2'nin 1'inci satırında YOK.", vbCritical, "..:: Ömer BARAN ::.."

 

[mumugul]

Teşekkürler...