soyad/ad ad soyad

[mutsuzsun]

iyi günler.
benim şöyle bir sorunum var. bir sütunda hem soyad/ad hem de ad soyad bir arasa bulunmakta. diğer sütunda ise sadece ad soyad olarak bulunmakta.
ben soyad/ad ları değiştirmeden karşı sütunda nasıl arama yapabilirim.
bir de bazı isimler ad ad soyad olan bölümlerde var bunları da ad soyad olarak aradığımda bulabilir mi?

 

[ÖmerBey]

Merhaba,
Excel dosyanızda Ctrl+F tuşlarına basıp açılan pencerede bulmak istediğiniz metni yazıp arama yapabilirsiniz.
Eğer aramaktan kast ettiğiniz formülle veri getirmek gibi bir şeyse resim yerine excel dosyası eklerseniz daha doğru yardım alabilrsiniz.

 

[mutsuzsun]

örnek dosya ve düşey ara linktedir.
yardımlarınızı bekliyorum.

excel örnek-1.xlsx - 9 KB

 

[ÖmerBey]

Merhaba,
Dosyanız linktedir.
Kullanulan formül:

=DÜŞEYARA(YERİNEKOY(EĞERHATA(BİRLEŞTİR(DEĞİŞTİR(A2;1;BUL("/";A2);"");" ";DEĞİŞTİR(A2;BUL("/";A2);UZUNLUK(A2);""));A2);" ";"*");$I$1:$J$5;2;0)

 

[lepregon]

iyi günler.
benim şöyle bir sorunum var. bir sütunda hem soyad/ad hem de ad soyad bir arasa bulunmakta. diğer sütunda ise sadece ad soyad olarak bulunmakta.
ben soyad/ad ları değiştirmeden karşı sütunda nasıl arama yapabilirim.
bir de bazı isimler ad ad soyad olan bölümlerde var bunları da ad soyad olarak aradığımda bulabilir mi?

Bu kodu kullanabilirsiniz. iyi günler.

Sub bul()
On Error GoTo 10
aranan = InputBox("İçeriği girtiniz", "Arama Yap", " ")
cells.Find(aranan).Select
Exit Sub
10 MsgBox "Aranan veri bulunamadı."
End Sub

 

[mutsuzsun]

Bu kodu kullanabilirsiniz. iyi günler.

Sub bul()
On Error GoTo 10
aranan = InputBox("İçeriği girtiniz", "Arama Yap", " ")
cells.Find(aranan).Select
Exit Sub
10 MsgBox "Aranan veri bulunamadı."
End Sub

destekleriniz için teşekkürler fakat sanırım anlatamadım sorunumu. (A) sütunundaki isimleri (I) sütunundaki veri ile karşılaştırıp varsa (J) deki o ismin karşısında bulunan departman dokunu (B) sütununda o ismin karşısına yazması. fakat isimler isim soyisim yada soyisim isim olarak var. bunları düzeltmek uzun bir zaman alacaktır.

 

[mutsuzsun]

Merhaba,
Dosyanız linktedir.
Kullanulan formül:

=DÜŞEYARA(YERİNEKOY(EĞERHATA(BİRLEŞTİR(DEĞİŞTİR(A2;1;BUL("/";A2);"");" ";DEĞİŞTİR(A2;BUL("/";A2);UZUNLUK(A2);""));A2);" ";"*");$I$1:$J$5;2;0)

Ömer Bey,

çok teşekkür ederim. beni büyük bir dertten kurtardınız. mesajınız peş peşe olunca gözümden kaçmış.
Allah razı olsun sizden .

 

[ÖmerBey]

Rica ederim, Allah hepimizden razı olsun.
Ancak bir noktayı hatırlatmakta fayda var: Birbirine benzeyen isimlerde hatalı veri gelebilir, dikkatli olmanızda fayda var.
İyi çalışmalar...