Hücredeki değer içinde başka hücredeki değeri arama

[111122]

Herkese iyi akşamlar

benim sorum şu örneğin

A1 HÜCRESİNDE 987456321 yazıyor

B1 de ise 745632 Yazıyor

A1 hücresinin içinde B1 hücresinde yazan değeri nasıl bulabilirim.

A1 ve B1 sürekli değişebilir

 

[Orion1]

C1 e

=EĞER(EHATALIYSA(BUL(B1;A1));"Yok";"Var")

 

[ÖmerBey]

Evren Bey'in mesajını görmeden aynı çözümü sunmuşum.
Alternatif olması için değiştirdim.

=EĞER(UZUNLUK(YERİNEKOY(A1;B1;""))=UZUNLUK(A1);"Bulunamadı";"Var")

 

[111122]

Teşekkürler her ikinizede sorunumu çözdüm

 

[111122]

Bir sorum daha oluştu

B1 hücresindekini değer A1 ile A65000 hücreleri arasında bulunuyor mu nasıl öğrenebilirim

 

[Orion1]

Buyurun.

=EĞER(EĞERSAY(A1:A65000;B1)>0;"Var";"Yok")

 

[111122]

Buyurun.

=EĞER(EĞERSAY(A1:A65000;B1)>0;"Var";"Yok")

Hocam bulamadı ama ben birde şunu istiyorum c1'e a sütünunda bulduğu değeri yazsın

=EĞER(EHATALIYSA(BUL($A$1:$A$65000;B1));"Yok";"VAR") bununla satırlarda boşluk yoksa buluyorum ama dediğim gibi var diyorsa var olan hücre değerini c1e yazsın istiyorum

 

[Orion1]

Hocam bulamadı ama ben birde şunu istiyorum c1'e a sütünunda bulduğu değeri yazsın

=EĞER(EHATALIYSA(BUL($A$1:$A$65000;B1));"Yok";"VAR") bununla satırlarda boşluk yoksa buluyorum ama dediğim gibi var diyorsa var olan hücre değerini c1e yazsın istiyorum

eğer onunla buluyorsanız aşağıdaki formül işinizi görecektir.

=EĞER(EHATALIYSA(BUL($A$1:$A$65000;B1));"Yok";DÜŞEYARA(B1;$A$1:$A$65000;1;0))

 

[111122]

eğer onunla buluyorsanız aşağıdaki formül işinizi görecektir.

=EĞER(EHATALIYSA(BUL($A$1:$A$65000;B1));"Yok";DÜŞEYARA(B1;$A$1:$A$65000;1;0))

Maalesef hocam #YOK hatası alıyorum

 

[Orion1]

Maalesef hocam #YOK hatası alıyorum

Aşağıdaki KTF'yi bir modüle kopyalayın.Sonrada şU formülü uygulayın.

=EĞER(bule(B1;$A$1:$A$65000)=0;"Yok";bule(B1;$A$1:$A$65000))

Function bule(ByVal deg As Range, alan As Range)
Dim hcr As Range
For Each hcr In alan
    If CStr(hcr.Value) Like "*" & deg & "*" Then
        bule = hcr.Value
        var = True
        Exit For
    End If
Next
End Function

 

[111122]

Aşağıdaki KTF'yi bir modüle kopyalayın.Sonrada şU formülü uygulayın.

=EĞER(bule(B1;$A$1:$A$65000)=0;"Yok";bule(B1;$A$1:$A$65000))

Function bule(ByVal deg As Range, alan As Range)
Dim hcr As Range
For Each hcr In alan
    If CStr(hcr.Value) Like "*" & deg & "*" Then
        bule = hcr.Value
        var = True
        Exit For
    End If
Next
End Function

Hocam sizin verdiğin KTF ile a1 hücresindeki değeri buluyor. Benim demek istediğim a1 ile a6500 de hangi hücrede onu öğrenmem lazım

 

[Orion1]

Hocam sizin verdiğin KTF ile a1 hücresindeki değeri buluyor. Benim demek istediğim a1 ile a6500 de hangi hücrede onu öğrenmem lazım

Demekki a1 hücresinde imiş.
Siz hücre adresinimi istiyorsunuz?

 

[tigiy]

O değer hangi hücrede onu mu öğrenmek istiyorusnuz

 

[111122]

Demekki a1 hücresinde imiş.
Siz hücre adresinimi istiyorsunuz?

Evet hocam hücre adresini istiyorum

 

[Orion1]

Evet hocam hücre adresini istiyorum

O zaman aşağıdaki ktf yi kullanın.Formül yine ayni.

Function bule(ByVal deg As Range, alan As Range)
Dim hcr As Range
For Each hcr In alan
    If CStr(hcr.Value) Like "*" & deg & "*" Then
        bule = [B][COLOR="Red"]hcr.Address(False, False)[/COLOR][/B]
        Var = True
        Exit For
    End If
Next
End Function

 

[111122]

O zaman aşağıdaki ktf yi kullanın.Formül yine ayni.

Function bule(ByVal deg As Range, alan As Range)
Dim hcr As Range
For Each hcr In alan
    If CStr(hcr.Value) Like "*" & deg & "*" Then
        bule = [B][COLOR="Red"]hcr.Address(False, False)[/COLOR][/B]
        Var = True
        Exit For
    End If
Next
End Function

Hocam anlatamadım sanırım tam olarak ben "B1" hücresindeki değer "A1" de varsa "A1" hücresindeki verilerden ayırıp "C1" e yazsın istiyorum

Örneğin

B1="deneme"

"A1"="13546/8//--deneme574845//..."

Ben "C1" e B1deki değeri A1 den yi ayıklayıp yazmasını istiyorum tabi varsa eğer yoksa yok yazsın

 

[bzace]

Hocam anlatamadım sanırım tam olarak ben "B1" hücresindeki değer "A1" de varsa "A1" hücresindeki verilerden ayırıp "C1" e yazsın istiyorum

Örneğin

B1="deneme"

"A1"="13546/8//--deneme574845//..."

Ben "C1" e B1deki değeri A1 den yi ayıklayıp yazmasını istiyorum tabi varsa eğer yoksa yok yazsın

Merhabalar,
Gerekli soru ve cevapları yüzeysel olarak okudum.Belirtmek isterim.

• A1:A3 aralığına deneme, .... , gibi verileriniz.
• B1:B3 aralığına 13546/8//--deneme574845//... , .... gibi verileriniz,

olduğu düşünülmüştür.

=EĞERHATA(KIRP(YERİNEKOY(B1;
   ARA(;-1/ESAYIYSA(MBUL(A$1:A$3;B1));A$1:A$3);));"Yok")

Uitser Madina

 

[tigiy]

Sanırım bu işe yarayacak

 

[111122]

Merhabalar,
Gerekli soru ve cevapları yüzeysel olarak okudum.Belirtmek isterim.

• A1:A3 aralığına deneme, .... , gibi verileriniz.
• B1:B3 aralığına 13546/8//--deneme574845//... , .... gibi verileriniz,

olduğu düşünülmüştür.

=EĞERHATA(KIRP(YERİNEKOY(B1;
   ARA(;-1/ESAYIYSA(MBUL(A$1:A$3;B1));A$1:A$3);));"Yok")

Uitser Madina

Yok hocam sorunumu çözmedi

 

[Orion1]

Sorunuz tam anlaşılmıyor.
Aşağıdaki ktf'yi deneyin.

Function bule(ByVal deg As Range, alan As Range)
Dim hcr As Range, var As Boolean
For Each hcr In alan
    If CStr(hcr.Value) Like "*" & deg & "*" Then
        bule = deg
        var = True
        Exit For
    End If
Next
If var = False Then bule = "Yok"
End Function