fatura seri numaralarını bul ve işaretle

[ceysuhan]

Ekteki excel dosyasında C ve D sütunlarındaki başlangıç ve bitiş numaraları ve arasındaki seri numaralarını F stunundaki listede ile karşılaştırıp kullanıldı ise yanına kullanıldı ibaresi nasıl yazdırabilirim. Yardımlarınız için şimdiden teşekkür ederim.

 

[Mahir64]

Merhaba,

Deneyiniz.
DİZİ formülüdür.

=EĞER(VE(SAĞDAN(F2;6)+0>=MİN(EĞERHATA(--SAĞDAN($C$2:$D$20;6);"-"));SAĞDAN(F2;6)+0<=MAK(EĞERHATA(--SAĞDAN($C$2:$D$20;6);"-")));"KULLANILDI";"")

 

[askm]

=EĞER(EĞERSAY(C;F2)>0;"KULLANILDI";"")
Bu formülü kullanabilirsiniz.

 

[ÖmerFaruk]

Hazırlamışken alternatif olsun.

=EĞER(TOPLA.ÇARPIM((SOLDAN($C$2:$C$20;2)=SOLDAN(F2;2))*(SAĞDAN($C$2:$C$20;5)<=SAĞDAN(F2;5))*(SAĞDAN($D$2:$D$20;5)>=SAĞDAN(F2;5)));"Kullanıldı";"")

 

[ceysuhan]

Cevaplarınız için teşekkür ederim ellerinize kollarınıza sağlık tam istediğim gibi olmuş.

 

[Mahir64]

Merhaba,

Deneyiniz.
DİZİ formülüdür.

=EĞER(VE(SAĞDAN(F2;1)+0>=MİN(EĞERHATA(--SAĞDAN($C$2:$D$20;1);"-"));SAĞDAN(F2;1)+0<=MAK(EĞERHATA(--SAĞDAN($C$2:$D$20;1);"-")));"KULLANILDI";"")

Sayın @NextLevel formülünüz altarnatif değil çözüm. Ben Serileri aynı olarak hesaplama yaptım. Ab-Ac ayrımını yeni fark ettim.

 

[Ziynettin]

Alternatif makro çalışması.

Sub kod()
Sheets("Sayfa1").Select

a = Range("A2:D" & Cells(Rows.Count, 1).End(3).Row).Value
Set dc = CreateObject("scripting.dictionary")
    For i = 1 To UBound(a)
        k1 = Split(a(i, 3), " ")(1)
        k2 = Split(a(i, 4), " ")(1)
        For j = k1 To k2
            fatura = Split(a(i, 4), " ")(0) & " " & Format(j, "000000")
            dc(fatura) = ""
        Next j
    Next i

a = Range("F2:F" & Cells(Rows.Count, 6).End(3).Row).Value
    For i = 1 To UBound(a)
        If dc.exists(a(i, 1)) Then
            a(i, 1) = "KULLANILDI"
        Else
            a(i, 1) = ""
        End If
    Next i

[G2].Resize(UBound(a)) = a
MsgBox "İşlem bitti.", vbInformation
End Sub

 

[ceysuhan]

ekli dosyada bulunan

=EĞER(TOPLA.ÇARPIM((SOLDAN($C$2:$C$20;2)=SOLDAN(F18;2))*(SAĞDAN($C$2:$C$20;5)<=SAĞDAN(F18;5))*(SAĞDAN($D$2:$D$20;5)>=SAĞDAN(F18;5)));"Kullanıldı";"")

Bu formülde "kullanıldı" değilde B sütunundaki kullanıldığı tarihi getirebilmek için formülü nasıl düzenlememiz gerekir. Yardımlarınız için şimdiden teşekkür ederim.

 

[ÖmerFaruk]

=EĞERHATA(İNDİS($B$2:$B$20;TOPLA.ÇARPIM((SOLDAN($C$2:$C$20;2)=SOLDAN(F2;2))*(SAĞDAN($C$2:$C$20;5)<=SAĞDAN(F2;5))*(SAĞDAN($D$2:$D$20;5)>=SAĞDAN(F2;5))*SATIR($B$2:$B$20))-1);"")

 

[Korhan Ayhan]

Alternatif;

=EĞERHATA(DOLAYLI("B"&TOPLA.ÇARPIM((F2>=$C$2:$C$20)*(F2<=$D$2:$D$20)*SATIR($B$2:$B$20)));"")

 

[ceysuhan]

Cevaplarınız için çok teşekkür ederim.