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

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,292
Excel Vers. ve Dili
2016 Türkçe
Altın Üyelik Bitiş Tarihi
09-02-2026
arkadaşlar bu konuda yardım edebilirmisiniz
 

DoğanD

Altın Üye
Katılım
22 Eylül 2023
Mesajlar
415
Excel Vers. ve Dili
Office 365 TR
Altın Üyelik Bitiş Tarihi
05-10-2028
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);"")
 

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,292
Excel Vers. ve Dili
2016 Türkçe
Altın Üyelik Bitiş Tarihi
09-02-2026
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
 

DoğanD

Altın Üye
Katılım
22 Eylül 2023
Mesajlar
415
Excel Vers. ve Dili
Office 365 TR
Altın Üyelik Bitiş Tarihi
05-10-2028
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
 

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,292
Excel Vers. ve Dili
2016 Türkçe
Altın Üyelik Bitiş Tarihi
09-02-2026
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
 

DoğanD

Altın Üye
Katılım
22 Eylül 2023
Mesajlar
415
Excel Vers. ve Dili
Office 365 TR
Altın Üyelik Bitiş Tarihi
05-10-2028
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

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,591
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,292
Excel Vers. ve Dili
2016 Türkçe
Altın Üyelik Bitiş Tarihi
09-02-2026
Korhan üstat çok teşekkür ederim
Aklınıza sağlık

iyi çalışmalar
 
Üst