formül :hücre içinde bir kelimeyi arama yanındaki hücreden veri alma

[drseref]

Merhabalar Arkadaşlar ,
bir konuda acil yardıma ihtiyacım var.

Sayfa 1
A1 - Ahmet
B1 - 10


Sayfa 2
A1 - Ahmet Markete Gitti
B1 Hangi formül ile "Ahmet Markete Gitti" cümlesi içinden Ahmet kelimesi düşey ara yapılarak sütuna Sayfa1 B1 deki 10 gelir

 

[drseref]

Bu soru daha önce sorulmuş cevap yazılmamış benim de ihtiyacım var.

 

[Korhan Ayhan]

Deneyiniz.

=DÜŞEYARA(SOLDAN(A1;MBUL(" ";A1;1)-1);Sayfa1!A:B;2;0)

 

[drseref]

Çok teşekkür ederim hocam.
peki
Sayfa 2
A1 - Ahmet Markete Gitti
B1 - 10


Sayfa 1
A1 - Ahmet
B1 değeri = ( sayfa 2 deki "Ahmet Markete Gitti" cümlesi içinden Ahmet kelimesi düşey ara yapılarak sayfa 2 deki B1 eğeriniz ) buraya yazsın?

 

[Korhan Ayhan]

Deneyiniz.

=DÜŞEYARA(A1&"*";Sayfa2!A:B;2;0)

 

[drseref]

Deneyiniz.

=DÜŞEYARA(A1&"*";Sayfa2!A:B;2;0)

çok teşekkür ederim hocam.

 

[drseref]

Hocam peki sayfa 2 de birden fazla ahmet geçen A sütununda hücre varsa buna karşılık gelen B sütunu değerlerinin toplamını sayfa 1 deki b1 hücresine getirebilirmiyiz.

 

[Korhan Ayhan]

Deneyiniz.

İçerir mantığı ile toplama yapar.

=ETOPLA(Sayfa2!A:A;"*"&A1&"*";Sayfa2!B:B)

 

[drseref]

çok teşekkür ederim

 

[suskunfirat]

forumda aradım ama istediğim şekilde bir formül bulamadım
sorunum şu iki tablom var biri müşteri listesi ve borç tutarları diğer tabloda ödeme merkezleri ve adresleri yer alıyor
üçüncü bir tablo açıp birinci tabloda b sütununda yer alan müşteri isimlerini ilk 4 karaktere göre ikinci tablodaki c sütununda arayıp olanları isim ve d sütunundaki karşılığı ile birlikte yeni açtığım excell tablosunda bir arada görmek istiyorum.

 

[Korhan Ayhan]

Bunlar için örnek dosya paylaşmalısınız.

Görmek istediğiniz sonucu da dosyanıza eklerseniz yön gösterici olur.

 

[suskunfirat]

Bunlar için örnek dosya paylaşmalısınız.

Görmek istediğiniz sonucu da dosyanıza eklerseniz yön gösterici olur.

dekont çıkılacak.rar

drive.google.com

3 numaralı excelldeki gibi dekont çıkılacak firmaları listelemesini istiyorum

 

[Korhan Ayhan]

İlk 4 karaktere göre yapılınca aşağıdaki resimdeki kayıtlarda aynı şube kodu çıkmaktadır. Sanırım bu sonuçlar hatalı olmaktadır.




Ayrıca sonucu başka bir dosyada görmek istediğiniz için makro daha uygun görünüyor.

Dosyalarınızın hepsi aynı klasörde olsun.

"3.xls" isimli dosyanıza aşağıdaki kodu uygulayın. Bir butona kodları atayıp çalıştırın.

İlk 10 karaktere göre eşleştirme yaparak listeyi hazırlayacaktır. Bu 10 karakter olayını kod içindeki aşağıdaki satırdan değiştirebilirsiniz.

Aranan = Left(Veri(X, 1), 10) & "*"

Option Explicit

Sub Ozet_Rapor()
    Dim K1 As Workbook, S1 As Worksheet
    Dim K2 As Workbook, S2 As Worksheet
    Dim K3 As Workbook, S3 As Worksheet
    Dim Son As Long, Say As Long, Zaman As Double
    Dim Veri As Variant, X As Long
    Dim Aranan As String, Bul As Range
   
    Zaman = Timer
   
    Application.ScreenUpdating = 0
   
    Set K1 = ThisWorkbook
    Set S1 = K1.Sheets("Sheet1")
   
    Set K2 = GetObject(K1.Path & "\1.xls")
    Set S2 = K2.Sheets("Çalışma Sayfası1")
   
    Set K3 = GetObject(K1.Path & "\2.xls")
    Set S3 = K3.Sheets("Çalışma Sayfası1")
   
    S1.Range("A2:E" & S1.Rows.Count).ClearContents
   
    Son = S2.Cells(S2.Rows.Count, 1).End(3).Row
    If Son < 3 Then Son = 3
    Veri = S2.Range("A2:C" & Son).Value
   
    ReDim Liste(1 To Son, 1 To 5)
   
    For X = LBound(Veri, 1) To UBound(Veri, 1)
        If Veri(X, 1) <> "" Then
            Aranan = Left(Veri(X, 1), 10) & "*"
            Set Bul = S3.Range("A:A").Find(Aranan)
            If Not Bul Is Nothing Then
                Say = Say + 1
                Liste(Say, 1) = Veri(X, 1)
                Liste(Say, 2) = Veri(X, 2)
                Liste(Say, 3) = Veri(X, 3)
                Liste(Say, 4) = Bul.Offset(, 1)
                Liste(Say, 5) = Bul.Offset(, 2)
            End If
        End If
    Next
   
    K2.Close
    K3.Close
   
    If Say > 0 Then
        S1.Range("A2").Resize(Say, 5) = Liste
        Application.ScreenUpdating = 1
        MsgBox "Rapor hazırlanmıştır." & vbCr & vbCr & _
               "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
    Else
        Application.ScreenUpdating = 1
        MsgBox "Uygun kayıt bulunamadı!", vbExclamation
    End If
   
    Set K1 = Nothing
    Set S1 = Nothing
    Set K2 = Nothing
    Set S2 = Nothing
    Set K3 = Nothing
    Set S3 = Nothing
End Sub

 

[suskunfirat]

Makro işinden pek anlamıyorum 3. excell den vazgeçebilirim
2.xls i , 1.xls e çalışma sayfası olarak ekledim
1. excele uygulayacağım bir formülle d sütunundaki karşılığına dekont çıkılacak yazıp E sütununa şube kodu F sütununa şube adı yazdırılabilir mi?

 

[Korhan Ayhan]

Deneyiniz.

Harici Link (Silinebilir) ; https://dosyam.org/1LL5/1.xls

 

[suskunfirat]

A sütununda müşteri adı birebir aynı olduğu halde #YOK yazıyor formülde düzeltmem gereken yer mi var SAYFA 2 deki müşterilerin 10 kadarını denemek için sayfa1 deki A sütunununa ekledim (olmayanların üstüne yazdım tabi) hala yok diyor

 

[Korhan Ayhan]

Formül ilk 10 karaktere göre arama yapar.

 

[suskunfirat]

Formül düzgün çalışmadı ilk on karakter değil, tamamı aynı olduğu halde çalışmıyor. Teşekkür ediyorum yardımlarınız için

 

[Korhan Ayhan]

Dosyada paylaştım. Daha ne yapılabilir bilemiyorum.

Dilerseniz uyguladığınız dosyayı paylaşın sorunu inceleyelim.