• DİKKAT

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

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

  • Konbuyu başlatan Konbuyu başlatan drseref
  • Başlangıç tarihi Başlangıç tarihi
D

drseref

Katılım
19 Şubat 2011
Mesajlar
177
Excel Vers. ve Dili
excel 2010 tr
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
 
Bu soru daha önce sorulmuş cevap yazılmamış benim de ihtiyacım var.
 
Deneyiniz.

C++: 
=DÜŞEYARA(SOLDAN(A1;MBUL(" ";A1;1)-1);Sayfa1!A:B;2;0)
 
Ç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?
 
Son düzenleme:
Deneyiniz.

C++: 
=DÜŞEYARA(A1&"*";Sayfa2!A:B;2;0)
 
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.
 
Deneyiniz.

İçerir mantığı ile toplama yapar.

C++: 
=ETOPLA(Sayfa2!A:A;"*"&A1&"*";Sayfa2!B:B)
 
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.
 
Bunlar için örnek dosya paylaşmalısınız.

Görmek istediğiniz sonucu da dosyanıza eklerseniz yön gösterici olur.
 
İ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) & "*"

C++: 
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
 
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?
 
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
 
Formül ilk 10 karaktere göre arama yapar.
 
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
 
Dosyada paylaştım. Daha ne yapılabilir bilemiyorum.

Dilerseniz uyguladığınız dosyayı paylaşın sorunu inceleyelim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst