aynı hücrede birden fazla sayfa ile ilgili düşeyara formülü

[Rdlkknr]

Merhabalar,

benim sorunum ek'te bulunan dosyadaki ana sayfadaki irsaliye numarasının hangi firmaya kesildiğini bulmak.yardımlarınız için şimdiden teşekkür ederim.

 

[kemal turan]

Merhaba,
Yardımcı sutun kullanılarak basit bir çözüm oldu.Ustalar daha kısa yollu yapabilir.
Selemetle

 

[Rdlkknr]

Merhaba,
Yardımcı sutun kullanılarak basit bir çözüm oldu.Ustalar daha kısa yollu yapabilir.
Selemetle

Sayın Kemal Bey;

cevabınız için teşekkür ederim . Eğer ana tabloya firma karşılığı gelmez ise "faturası kesilmemiştir". ibaresini nasıl yazdırabiliriz ?

 

[kemal turan]

Ek teki dosya makro uygulanarak yapılmıştır.
Firma sayısı artmaması kaydı ile 10700 satıra kadar veri alır.
Butona basmanız yeterli
Selametle

 

[kemal turan]

Sayın Kemal Bey;

cevabınız için teşekkür ederim . Eğer ana tabloya firma karşılığı gelmez ise "faturası kesilmemiştir". ibaresini nasıl yazdırabiliriz ?

D2 Deki formülü değiştirip aşağıya doğru sürükleyin.

=EĞER(B2<>"";EĞER(E2>0;$E$1;EĞER(F2>0;$F$1;EĞER(G2>0;$G$1;EĞER(H2>0;$H$1;EĞER(I2>0;$I$1;"FATURASI KESİLMEMİŞTİR.")))));"")

not: kodlu dosya da güncellendi.

 

[Rdlkknr]

Ek teki dosya makro uygulanarak yapılmıştır.
Firma sayısı artmaması kaydı ile 10700 satıra kadar veri alır.
Butona basmanız yeterli
Selametle

çok sağolun çok güzel olmuş sizce macro mu kullanmak daha verimli olur yoksa formül üzerinden mi devam edilmeli ? birde firmamın tek çalışanı olduğum için fatura kesmeyi unutuyorum yoğunluktan belli bir gün aralığı yada saat aralığı belirleyerek otomatik mail vb. bir şekilde uyarı verilmesi sağlanabilir mi teşekkürler.

 

[kemal turan]

Merhaba,
Formüllü çözümde satır sayısı artınca excel kasmaya başlar.
Kodlu çözüm daha iyi olur bence.
Selametle kalınız.

 

[kemal turan]

Satır sayısı 10724 u geçerse kod bölümündeki modül1 deki aşağıdaki kalın olan yerdeki satır sayısını 20000 veya istediğiniz kadar artırabilirsiniz.

Selection.AutoFill Destination:=Range("E2:I[B]10724[/B]")
    Range("E2:I[B]10724[/B]").Select
    Range("D2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-2]<>"""",IF(RC[1]>0,R1C5,IF(RC[2]>0,R1C6,IF(RC[3]>0,R1C7,IF(RC[4]>0,R1C8,IF(RC[5]>0,R1C9,""FATURASI KESİLMEMİŞTİR.""))))),"""")"
    Range("D2").Select
    Selection.AutoFill Destination:=Range("D2:[B]D10724[/B]")
    Range("D2:D[B]10724[/B]").Select

 

[Rdlkknr]

Satır sayısı 10724 u geçerse kod bölümündeki modül1 deki aşağıdaki kalın olan yerdeki satır sayısını 20000 veya istediğiniz kadar artırabilirsiniz.

Selection.AutoFill Destination:=Range("E2:I[B]10724[/B]")
    Range("E2:I[B]10724[/B]").Select
    Range("D2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-2]<>"""",IF(RC[1]>0,R1C5,IF(RC[2]>0,R1C6,IF(RC[3]>0,R1C7,IF(RC[4]>0,R1C8,IF(RC[5]>0,R1C9,""FATURASI KESİLMEMİŞTİR.""))))),"""")"
    Range("D2").Select
    Selection.AutoFill Destination:=Range("D2:[B]D10724[/B]")
    Range("D2:D[B]10724[/B]").Select

yardımlarınız için teşekkürler.

 

[kemal turan]

çok sağolun çok güzel olmuş sizce macro mu kullanmak daha verimli olur yoksa formül üzerinden mi devam edilmeli ? birde firmamın tek çalışanı olduğum için fatura kesmeyi unutuyorum yoğunluktan belli bir gün aralığı yada saat aralığı belirleyerek otomatik mail vb. bir şekilde uyarı verilmesi sağlanabilir mi teşekkürler.

Merhaba,
Ek Dosya veya ana sahifesi açıldığında fatura kesilmeyenler var ise çıkan userformda görülmektedir.
Ayrıca kod satırı 50000 e çıkarıldı.

 

[kemal turan]

Merhaba,
Dosya açıldığında userformda görülen Fatura kesilmeyenler listesinin otomatik olarak belirli bir adrese mail olarak atılması beni aşar.Ustaların işi.
Selametle