• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

sütundaki metinlerde kelime aratıp yanına başka metin yazdırma

M

Melrajas

Katılım
9 Kasım 2012
Mesajlar
20
Excel Vers. ve Dili
2016 türkçe
Merhabalar,

aranıza yeni katıldım. öncelikle çok güzel bir paylaşım forumu oluşturduğunuz belirtmek istiyorum. genel olarak aradım sorunumu fakat tam anlamıyla bulamadım yada bazı kodları anlamadığım için göremedim o yüzden affınıza sığınarak buraya sormak istedim. sorum aşağıdaki gibi; sayfa1'de A sütununda metinler var, sayfa 2'de de A ve B sütununda kelimeler var. Ben sayfa 2 A sütunundaki kelimenin geçtiği sayfa1 deki metinlerin yanına sayfa 2'de B sütunundaki kelimeyi yazdırmak için formül varsa yardımcı olmanızı rica ediyorum.

teşekkürler...

sayfa1;
A1 ALİCAN / B1 İYİ
A2 AYŞENUR / B2 ORTA
A3 FATMAGÜL / B3 PEKİYİ
A4 EMREHAN / B4 KÖTÜ
A5 GÜLNAZ / B5 PEKİYİ


sayfa2;
A1 CAN / B1 İYİ
A2 NUR / B2 ORTA
A3 GÜL / B3 PEKİYİ
A4 HAN / B4 KÖTÜ
 
merhaba,
eğer sayfa ikideki verilerinizde aynıysa düşeyara ile yapabilirsiniz.
fakat siz farklı isimler yazmışınız sanırım örnek olması amacıyla yazdınız. doğrumu anlıyorum.
Kod: 
=DÜŞEYARA(A1;SAYFA2!A:B;2;0)
 
hayır, anlattım gerçi ama örnek vereyim. mesela sayfa 2'deki can kelimesi sayfa 1'de a1 hücresindeki kelimenin içinde geçtiğinden dolayı canın yanındaki iyi kelimesini sayfa 1'de alican ın yanına yazdırmak istiyorum.

teşekkürler...
 
aağıdaki gibi deneyiniz. fakat sizin sayfa ikideki listenize göre bazen veriler eşleşebilir ve hata alabilirsiniz düşüncesindeyim.
Kod: 
=düşeyara(sağdan(A1;3);sayfa2!A:B;2;0)
 
Bu örnek için verdiğiniz formül çalışabilir belki ama bu sadece örnek. sağdan 3 yerine kelimenin geçip geçmediğini kontrol yapıp sayfa 2 sütun b deki kelimeyi yazması lazım.
 
DÜŞEYARA formülünde * kullanarak belki çözülebilir. *A1* gibi. Cepten yazdığımdan deneyemedim.
 
tam emin değilim fakat cümle içinde kelime arama ya da kelime içinde kelime aramayı düşeyara ile yapabilir miyim bilmiyorum?
 
Kod: 
=DÜŞEYARA("*"&A1&"*";Sayfa1!$A$1:$B$500;2;0)
 
kusura bakmayın bu olaylarda yeniyim tam olarak anlayamadım verdiğiniz formülü fakat benim zaten sayfa 1'de düşeyara yapmam gerekiyor aranacak tablo dizisi ise sayfa 2'deki...
 
Sayfa2 C1 hücresine aşağıdaki formülü yazıp aşağı doğru kopyalayın:

Kod: 
=DÜŞEYARA("*"&A1&"*";Sayfa1!$A$1:$A$500;1;0)

Sayfa1 B1 hücresine aşağıdaki formülü yazıp aşağı doğru kopyalayın:

Kod: 
=İNDİS(Sayfa2!$B$1:$B$500;KAÇINCI(A1;Sayfa2!$C$1:$C$500;2))
 
benim örneğimde çalışmadı maalesef. dosyayı da buraya gönderemiyorum fakat mail adresinizi verebilirseniz ileteyim
 
Dosyayı dosya yükleme sitelerinden birine yükleyip burada paylaşabilirsiniz.
 
Dosya yapınız bu formüllerin kullanımına uygun değil. Çünkü DÜŞEYARA formülü ilk bulduğu sonuca göre işlem yapar. AB36-1 olması gereken 2. ve 5. satırdaki veriler birbirinden farklı olduğu için sayfa2'deki düşeyara sadece birinci satırdakini buluyor. MV-CT AB36-1 5/1 36/70/170kV 50Hz 2,5 olanın sonucu ikinci sayfaya gelmiyor. Oraya gelmeyince de indis ve kaçıncı formülleri doğru sonuç vermiyor.
 
Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Kod: 
Sub kod()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

son1 = s1.Cells(Rows.Count, "A").End(3).Row
son2 = s2.Cells(Rows.Count, "A").End(3).Row
On Error Resume Next
For i = 2 To son1
    For j = 1 To son2
        If IsError(WorksheetFunction.Search(s2.Cells(j, "A"), s1.Cells(i, "A"))) = True Then
        GoTo 10
        Else
            s1.Cells(i, "B") = s2.Cells(j, "B")
            j = son2
        End If
10:
    Next
Next
End Sub
 
YUSUF44' Alıntı:
Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Kod: 
Sub kod()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

son1 = s1.Cells(Rows.Count, "A").End(3).Row
son2 = s2.Cells(Rows.Count, "A").End(3).Row
On Error Resume Next
For i = 2 To son1
    For j = 1 To son2
        If IsError(WorksheetFunction.Search(s2.Cells(j, "A"), s1.Cells(i, "A"))) = True Then
        GoTo 10
        Else
            s1.Cells(i, "B") = s2.Cells(j, "B")
            j = son2
        End If
10:
    Next
Next
End Sub
Genişletmek için tıkla ...


çok teşekkürler işe yaradı gibi gözüküyor denemeye devam ediyorum...
 
verdiğim örneğe göre çok güzel çalışıyor fakat örneği biraz basit belirlemişim. Ana dosyamda durum biraz daha farklı. Aşağıdaki örnekte durumu izah etmeye çalıştım. Bu sorun için çareniz olur mu? Belki aranacak metnin yanına boşluk ekleyebilirsek olabilir.

teşekkürler...

http://dosya.web.tr/RazwrO
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst