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

idealimsin

Altın Üye
Katılım
2 Ekim 2011
Mesajlar
356
Excel Vers. ve Dili
excel 360 TR 64bit
Altın Üyelik Bitiş Tarihi
15-04-2025

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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
Kafam karıştı okurken.
Altın üyesiniz, dosyanızı paylaşır mısınız?
 

idealimsin

Altın Üye
Katılım
2 Ekim 2011
Mesajlar
356
Excel Vers. ve Dili
excel 360 TR 64bit
Altın Üyelik Bitiş Tarihi
15-04-2025
Dosyam var mevcut ,
eklemiştim
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
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

Altın Üye
Katılım
2 Ekim 2011
Mesajlar
356
Excel Vers. ve Dili
excel 360 TR 64bit
Altın Üyelik Bitiş Tarihi
15-04-2025
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
 

Ekli dosyalar

idealimsin

Altın Üye
Katılım
2 Ekim 2011
Mesajlar
356
Excel Vers. ve Dili
excel 360 TR 64bit
Altın Üyelik Bitiş Tarihi
15-04-2025
[ 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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
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
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
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
 

idealimsin

Altın Üye
Katılım
2 Ekim 2011
Mesajlar
356
Excel Vers. ve Dili
excel 360 TR 64bit
Altın Üyelik Bitiş Tarihi
15-04-2025
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
mükemmel olmuş ellerinize gözlerinize SAĞLIK
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
Benzer şekilde Makro ile çözebilirsin, eğer KTF sürekli güncelleyemediği için sorun çıkıyorsa.
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
Eyvallah.
 
Üst