• DİKKAT

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

Soru kaç tane varsa aynı tarihlerin. karşısındaki rakamı hücreye çağırma

I

idealimsin

Katılım
2 Ekim 2011
Mesajlar
356
Excel Vers. ve Dili
excel 360 TR 64bit
[TR][TD]
K sütunundaki tarihlerin karşısında (M) satırında rakamlar var, (I) sütununda işlem yapılan satırda bulunan (K) sütununda bulunan tarihten kaç adet aynı tarih varsa aynı satırda olan kaç adet varsa. (I) sütunundaki rakamı almak istiyorum. Bulunduğu satırdaki tarihten başka yoksa (- ) olacak

dosyam
[/TD][/TR]
 
Kafam karıştı okurken.
Altın üyesiniz, dosyanızı paylaşır mısınız?
 
Soru kısa gibi ama formül uzun oldu.
I11 için formülünüz. Aşağıya doğru kopyalayabilirisniz.

Eğer K-M sütunlarınız aşağı doğru uzayacaksa formülü revize etmelisiniz.
Aralığınız rastgele olduğu için bu sıkıntı olacaktır

=EĞER(YADA(EBOŞSA(K11);EMETİNSE(K11));"";EĞER(EĞERSAY($K$11:$K$63;K11)<2;"-";EĞER(UZUNLUK(YERİNEKOY(METİNBİRLEŞTİR(".";1;EĞER($K$10:K10=K11;$M$10:M10;""));" ";""))>0;YERİNEKOY(METİNBİRLEŞTİR(".";1;EĞER($K$10:K10=K11;$M$10:M10;""));" ";"")&".";"")&YERİNEKOY(METİNBİRLEŞTİR(".";1;EĞER(K12:$K$64=K11;M12:$M$64;""));" ";"")))
 
ÖmerFaruk' Alıntı:
Soru kısa gibi ama formül uzun oldu.
I11 için formülünüz. Aşağıya doğru kopyalayabilirisniz.

Eğer K-M sütunlarınız aşağı doğru uzayacaksa formülü revize etmelisiniz.
Aralığınız rastgele olduğu için bu sıkıntı olacaktır

=EĞER(YADA(EBOŞSA(K11);EMETİNSE(K11));"";EĞER(EĞERSAY($K$11:$K$63;K11)<2;"-";EĞER(UZUNLUK(YERİNEKOY(METİNBİRLEŞTİR(".";1;EĞER($K$10:K10=K11;$M$10:M10;""));" ";""))>0;YERİNEKOY(METİNBİRLEŞTİR(".";1;EĞER($K$10:K10=K11;$M$10:M10;""));" ";"")&".";"")&YERİNEKOY(METİNBİRLEŞTİR(".";1;EĞER(K12:$K$64=K11;M12:$M$64;""));" ";"")))
[ Merhaba formül için çok teşekkür ediyorum
#AD?
hatası alıyorum..sanıyorum metinbirleştir fonksiyonu excel tanımamış gibi.anlayamadım
Genişletmek için tıkla ...
 

Ekli dosyalar

[ Merhaba formül için çok teşekkür ediyorum
#AD?
hatası alıyorum..sanıyorum metinbirleştir fonksiyonu excel tanımamış gibi.anlayamadım[/QUOTE]
 
Ben de ne güzel yaptım diye sevinmiştim. Ofice365 in azizliği. Sanırım bu formül eskiden yoktu. Bakıp çözüm üretmeye çalışayım.
VBA ya da KTF ile çözmemi istermisiniz
 
KTF olarak aşağıdadır.
C++: 
Function BulBirlestir(Kaynak As Range, Deger As Range) As String
    Dim Sonuc As String
    Sonuc = ""
    If Kaynak.Row <> Deger.Row Then Sonuc = "Hata...Kaynak ve Değerler farklı satırda": GoTo SON
    If Kaynak.Rows.Count <> Deger.Rows.Count Then Sonuc = "Hata...Satır sayıları aynı değil": GoTo SON
    If Kaynak.Columns.Count > 1 Then Sonuc = "Hata....Kaynak aralığı tek kolon değil": GoTo SON
    If Deger.Columns.Count > 1 Then Sonuc = "Hata....Degerler aralığı tek kolon değil": GoTo SON
    Satır = ActiveCell.Row
  
    If Satır < Kaynak.Row Or Satır >= Kaynak.Row + Kaynak.Rows.Count Then Sonuc = "Hata...Formül aynı bölgede değil" : GoTo SON
    Satır = Satır - Kaynak.Row + 1
  
    If Not IsDate(Kaynak(Satır, 1)) Then Sonuc = "": GoTo SON
  
    For i = 1 To Kaynak.Rows.Count
        If i <> Satır And Kaynak(i, 1) = Kaynak(Satır, 1) Then
            If Len(Sonuc) > 0 Then
                Sonuc = Sonuc + "." & Deger(i, 1)
            Else
                Sonuc = Deger(i, 1)
            End If
        End If
    Next i
    If Len(Sonuc) = 0 Then Sonuc = "-"
SON:
    BulBirlestir = Sonuc
End Function
 
ÖmerFaruk' Alıntı:
KTF olarak aşağıdadır.
C++: 
Function BulBirlestir(Kaynak As Range, Deger As Range) As String
    Dim Sonuc As String
    Sonuc = ""
    If Kaynak.Row <> Deger.Row Then Sonuc = "Hata...Kaynak ve Değerler farklı satırda": GoTo SON
    If Kaynak.Rows.Count <> Deger.Rows.Count Then Sonuc = "Hata...Satır sayıları aynı değil": GoTo SON
    If Kaynak.Columns.Count > 1 Then Sonuc = "Hata....Kaynak aralığı tek kolon değil": GoTo SON
    If Deger.Columns.Count > 1 Then Sonuc = "Hata....Degerler aralığı tek kolon değil": GoTo SON
    Satır = ActiveCell.Row
 
    If Satır < Kaynak.Row Or Satır >= Kaynak.Row + Kaynak.Rows.Count Then Sonuc = "Hata...Formül aynı bölgede değil" : GoTo SON
    Satır = Satır - Kaynak.Row + 1
 
    If Not IsDate(Kaynak(Satır, 1)) Then Sonuc = "": GoTo SON
 
    For i = 1 To Kaynak.Rows.Count
        If i <> Satır And Kaynak(i, 1) = Kaynak(Satır, 1) Then
            If Len(Sonuc) > 0 Then
                Sonuc = Sonuc + "." & Deger(i, 1)
            Else
                Sonuc = Deger(i, 1)
            End If
        End If
    Next i
    If Len(Sonuc) = 0 Then Sonuc = "-"
SON:
    BulBirlestir = Sonuc
End Function
Genişletmek için tıkla ...
mükemmel olmuş ellerinize gözlerinize SAĞLIK
 
Benzer şekilde Makro ile çözebilirsin, eğer KTF sürekli güncelleyemediği için sorun çıkıyorsa.
 
Eyvallah.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst