Tetkik karşılaştırma,raporlama ve aktarma

[POLARIS]

Arkadaşlar hepinize iyi akşamlar,

İstenen ve yapılan tetkiklerin karşılaştırılıp rapor alınması ve kriterlere uyanların başka sayfaya sıralı aktarılması.
Ekte dosyada da gerekli açıklamaları yaptım.
Özelikle Sayın Yurttaş bey in özet veri alma ve düşeyara çalışmalarına baktım.Ancak uyarlayamadım.Konu ile ilgili başka bir link,fikir yada çözüm önerebilirmisiniz.
Teşekkür eder iyi çalışmalar dilerim.

 

[fedeal]

Ekteki çalışmayı inceleyin yanlış anlamış yada anlayamamış olma ihtimaline karşı sadece hizmet alan kuruluşu yaptım inceleyin uygunsa ötekinide yaparız,saygılar.(tablonuzda gördügüm kadarıyla protokol numarasıyla karşılaştırma yapınca aynı numarayla tablo1 de 1 kayıt tablo2de 3 kayıt olabiliyor,bunun için bu durumu açıklamalı yaptım.)

 

[POLARIS]

Sayın fedeal,
İyi günler diler,İlginiz ve yardımlarınız için teşekkür ederim..
Bu gerçek bir dosya.Gördüğünüz gibi maalesef çok hata oluyor.Birinci bölüm tamam.
Macro bilgim çok zayıf.Ötekini yapmak için Aynı buton altında çalışacak
macroyu denedim ancak beceremedim.Yardımlarınızı bekliyorum.
Şimdilik Hoşçakalınız...

 

[fedeal]

Dosyanız ekte,ayrıca işinizi kolaylaştıracagını düşündügüm bir özellik eklemiştim protokol numarası d sütununda eksik olan numaraya tıllayınca öbür listedeki karşılıgına gidecektir,saygılar.

 

[diyakes]

Fedeal Bey merhaba,

veri aktarma konusunda bir sorunum var.

vaktiniz varsa yardımcı olabilir misiniz?

teşekkürler..

iyi çalışmalar.

 

[POLARIS]

Sayın fedeal iyi akşamlar,
Öncelikle Gösterdiğiniz ilgiye ve verdiğiniz emeklere çok teşekkür ederiz.
Eklediğiniz özellik te çok işimize yarayacak.

Yaptığınız çalışma hakikaten çok güzel oldu.Öyle ki bana da yeni bir fikir verdi.Aylık döküm sayfasındaki işlem tamam olan tetkikler Hakediş dosyasına aktarılırken Aylık dökümden silinse,yine Aylık döküm sayfasında yapılan düzeltmeler ile işlem tamam haline gelen tetkiklerinde aktarılırken Aylık döküm sayfasından silinse tetkiklerin takibi ve düzenlenmesi açısından daha iyi olur kanaatindeyim.
Tekrar teşekkür eder iyi çalışmalar dilerim.

 

[fedeal]

dosyayı inceleyin oldu sanırım,ekledigim özelligi sağ tıklamaya almak zorunda kaldım (silme işlemi oldugu için)hücrenin üzerine sag tıklayın,saygılar.

istediginiz gibi ekli dosyaya kod açıklamalarını yaptım,saygılar.

 

[POLARIS]

Sayın fedeal iyi geceler,
Evet oldu.Çalışmamız tamamlandı.Emekleriniz için çok çok teşekkürler.
Bizden de sizlere saygılar. Her şey gönlünüzce olsun.
Hoşçakalınız...

 

[POLARIS]

Sayın fedeal iyi akşamlar,
Siz bizlere çok yardımcı oldunuz.Tekrar teşekkür ederiz.
Eğer boş bir zamanınız olursa (tabiiki çok zor) yazdığınız makrosunun mantığını açabilirseniz birazda ben balık yakalamanın zevkini tatmak isterim.Çünkü sayenizde kitapta yapacağım çok iş var.
İyi akşamlar dilerim.

 

[fedeal]

Sayın fedeal iyi akşamlar,
Siz bizlere çok yardımcı oldunuz.Tekrar teşekkür ederiz.
Eğer boş bir zamanınız olursa (tabiiki çok zor) yazdığınız makrosunun mantığını açabilirseniz birazda ben balık yakalamanın zevkini tatmak isterim.Çünkü sayenizde kitapta yapacağım çok iş var.
İyi akşamlar dilerim.

nedemek efendim 7.mesajdaki dosyanın kodların tamamına açıklamaları ekledim (güncelledim)takıldıgınız yerde eğer blsyr. başındaolursam elimden geldigince destek olmak isterim saygılar.

 

[POLARIS]

Sayın fedeal,
Hocam öyle oltayı alıpta sallamakla olmuyor tabii bu iş.İnceliklerini de öğrenmek lazım.
Sizin hazırladığınız ekteki dosyaya iki sütun ekledim. L sütunu (hizmet veren)çalışmadı.
Kod inceleme sayfasında inceledim,inceledim ancak beceremedim.
Ben nerde, yanlış yaptım?

 

[POLARIS]

Sayın fedeal,
Dosyayı ekledim.

 

[fedeal]

Şimdi farkettim sorunuzu öncelikle yeni eklediğiniz dosyanın aylık döküm sayfası j sütununda dosya nolar yok kodlar tamamen dosya nolarını karşılaştırma üzerine kurulu.

 

[POLARIS]

Sayın fedeal,
Hocam dosya noları ekledim.Ancak yine çalışmadı.Kodlarda bir yerde hata yapıyorum ancak bulamadm.

 

[fedeal]

Kodlara ilk bakışta gördügüm hata;

atla:
Range("L3:L2000").ClearContents
Range("I3:K2000").Interior.ColorIndex = xlNone
For i = 3 To Sheets("AYLIK DÖKÜM").Range("I2000").End(xlUp).Row
If Cells(i, "g").Value = "" Then GoTo atla1

satırlarında kırmızı olan g sütununda ilgili satır boşsa döngü bitiriliyor oraya "I" yazmalısınız.

 

[POLARIS]

Sayın fedeal,

Tamam dediğiniz gibi yaptım oldu.Çok teşekkür ederim.

 

[fedeal]

ricaederim iyi çalışmalar.

 

[fedeal]

bir şey geldi aklıma ki bence çalışmada hata var.çalışma sistemi şöyle d sütunundaki protokol numarasını d sütünunda kaç tane oldugunu sayıyor aynı şekilde j sütunundaki protokol numaralarını sayıp bu sayıları karşılaştırıp eşitse doğru mantığıyla eşit olanı öteki sayfaya aktarıp siliyor.ancak 2. tablodakini silmedigi için 1 den fazla olan kayıtlarda herzaman 2. kayıtlar yanlış görünüyor.bunu önlemek bu hatayla ilgili bir çalışma yapacagım ancak şimdi çıkmam gerekiyor.sizde kontrol edin belki benden önce çözersiniz,saygılar.

 

[POLARIS]

Sayın fedeal,
Evet hocam bende tam bunun içinde boğuşuyordum.
Bizden de size saygılar.

 

[fedeal]

bu sefer oldugunu umuyorum inceleyin,saygılar.