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

[idealimsin]

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

 

[ÖmerFaruk]

Kafam karıştı okurken.
Altın üyesiniz, dosyanızı paylaşır mısınız?

 

[idealimsin]

Dosyam var mevcut ,
eklemiştim

 

[ÖmerFaruk]

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;""));" ";"")))

 

[idealimsin]

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

 

[idealimsin]

[ 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]

 

[ÖmerFaruk]

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

 

[idealimsin]

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

Olur. çok teşekkür edrim

 

[ÖmerFaruk]

KTF olarak aşağıdadır.

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

 

[idealimsin]

KTF olarak aşağıdadır.

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

mükemmel olmuş ellerinize gözlerinize SAĞLIK

 

[ÖmerFaruk]

Benzer şekilde Makro ile çözebilirsin, eğer KTF sürekli güncelleyemediği için sorun çıkıyorsa.

 

[idealimsin]

Benzer şekilde Makro ile çözebilirsin, eğer KTF sürekli güncelleyemediği için sorun çıkıyorsa.

Bu şekilde çok iyi oldu.sütunu güncellemem yetiyor.tekrar çok teşekkürler

 

[ÖmerFaruk]

Eyvallah.