• DİKKAT

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

Soru aynı fatura numarasının karşısına sıra no getirmek

Merhaba,

Talebiniz iki kez tekrar eden faturalar için aşağıdaki formül işinize yarayabilir. Fakat 3 ve fazla tekrar etmesi durumunda doğru sonuç vermeyecektir. Dener misiniz?

Kod:
=EĞERHATA(EĞERHATA((KAÇINCI(E4;E5:$E$33;0)+B4);KAÇINCI(E4;$E$3:E3;0)-1);"")
 
Sayın doğan öncelikle teşekkür ederim

aklınıza sağlık uyarınız için teşekkür ederim
evet 2 benzer olanlarda istediğim sonucu aldım
dediğiniz gibi 3 ve üzeri tekrarlar için formülde güncelleme yapabilirmisiniz rica etsem
 
Merhaba,

O halde işleri biraz VBA tarafına kaydırmamız gerekiyor gibi görünüyor. Ufak bir KTF hazırladım. Aşağıdaki kodları boş bir modüle yapıştırın. Ardından, A4 hücresine "=KacAdet($E$4:$E$33;E4)" formülünü uygulayın. E33 satırını dilediğiniz kadar uzatabilirsiniz.

248210
Kod:
unction KacAdet(Aralik As Range, Fatura As Range)
For i = Aralik.Row To Aralik.Row + Aralik.Count
If Fatura = Cells(i, Aralik.Column) Then
If ka = "" Then
ka = i - (Aralik.Row - 1)
Else
ka = ka & ", " & i - (Aralik.Row - 1)
End If
End If
Next
KacAdet = ka
End Function
 
sayın doğan tekrar teşekkür ederim
"=KacAdet($E$4:$E$33;E4) Formülü sanırım Office 365 için geçerli AD hatası verdi

ben 2016 Türkçe kullanıyorum kodları nasıl revize edebilirsiniz
 
Sanırım kodları yapıştırma kısmını atladınız. Artık makrolu bir dosya olduğu için uzantısı da değişecek. Ekteki dosyayı inceler misiniz?
 

Ekli dosyalar

Alternatif;

Hem Ofis 365 hem de eski sürümler için çözüm bulunuyor.

Eski sürüm için olan formülde 10 tekrara kadar listeleme yapılıyor. Daha fazla tekrar etme durumu varsa formüle ekleme yapmak gerekir.
 

Ekli dosyalar

Korhan üstat çok teşekkür ederim
Aklınıza sağlık

iyi çalışmalar
 
Geri
Üst