şarta bağlı en büyük tarih

[Schuba]

birde hocam farkettiseniz kodun içine sayfam korumalı olduğu için makro çalışacağı zaman sayfa korumasının şifresini girip açsın sonra iş bittiğinde şifresini girip sayfayı korusun diye her kodun başına ve sonuna birer satır kod ekledim acaba doğru yapmışmıyım yada bu eklediğim kodu doğru yerlere konumlandırmışmıyım yada bağzen yanlış sonuç vermesine sebep olurmu

 

[Asri]

birde hocam farkettiseniz kodun içine sayfam korumalı olduğu için makro çalışacağı zaman sayfa korumasının şifresini girip açsın sonra iş bittiğinde şifresini girip sayfayı korusun diye her kodun başına ve sonuna birer satır kod ekledim acaba doğru yapmışmıyım yada bu eklediğim kodu doğru yerlere konumlandırmışmıyım yada bağzen yanlış sonuç vermesine sebep olurmu

20-30 defa üst üste çalıştırdım. Sizin örnekte verdiğiniz sonucu veriyor.
Hatalı sonuç hangi kayıtta çıkıyor.

Hatalı sonucu veren örnek kaydı da ekler misiniz?

Program çalışmaya başladığında değişken sıfırlama bölümü ekledim.
Bir de bu şekilde deneyin.

 

[Schuba]

şuan gönderdiğiğim dosyaya bakın "YILMAZ IŞIK" isimli müşterinin ın kapatılan fişlerde 10 adet kaydı var ve 2 kerede mebranı değişmiş ama sonuc "bilinmiyor" görünüyor

 

[Asri]

şuan gönderdiğiğim dosyaya bakın "YILMAZ IŞIK" isimli müşterinin ın kapatılan fişlerde 10 adet kaydı var ve 2 kerede mebranı değişmiş ama sonuc "bilinmiyor" görünüyor

Sizin gönderdiğinizde bilinmiyor yazıyor ancak ben programı çalıştırdığımda GENEL yapıyor ve bir daha bilinmiyor yapmıyor.

Enteresan bir durum. Problem sadece bu mu? Hiç bir değişiklik yapmadan çalıştırınca farklı sonuçlar çıkıyor mu?

 

[Schuba]

bilmiyorumki hocam sizin bana gönderdiğiniz dosyayı açtım hatta birkerede güncelledim o sonucu verdi bana daha öncseinden'de dedimya 10-15 kerede bir farklı sonuç vermişti bana şuan mesela deniyorum şuan farklı sonuç vermiyor mesela yan herzaman olmuyor ama bazen yakalıyorum size gönderdiğim dosyadaki gibi acaba beni sayfa korumaları için eklediğim kodlarmı sebep oluyor buna

 

[Asri]

bilmiyorumki hocam sizin bana gönderdiğiniz dosyayı açtım hatta birkerede güncelledim o sonucu verdi bana daha öncseinden'de dedimya 10-15 kerede bir farklı sonuç vermişti bana şuan mesela deniyorum şuan farklı sonuç vermiyor mesela yan herzaman olmuyor ama bazen yakalıyorum size gönderdiğim dosyadaki gibi acaba beni sayfa korumaları için eklediğim kodlarmı sebep oluyor buna

Sayfa koruma ile ilgili olduğunu sanmıyorum.

Değişken tanımla zorunlu yaptım ve tüm değişkenleri tanımladım.
Bir de listede tarih formatlarını kontrol edin.

Sorun göremedim.

Programda tüm işlemler bittikten sonra bir kontrol daha ekledim.
Eğer takipteki cari kod , kapatılan fişlerde B kolonunda var ise ve takipde durumu BİLİNMİYOR ise aynı satırda AF kolonuna Hatalı olarak yazacak.

Kontrol ediniz.

 

[Schuba]

hocam aklınıza fikrinize sağlık çok yordum sizi kusura bakmayın muhtemelen olmuştur
bir sorun olursa daha sonra dönerim size çok yardımcı oldunuz çok sağolun
izmire gelirseniz mutlaka bir çayımı içmeye beklerim iyi çalışmalar....

 

[Asri]

hocam aklınıza fikrinize sağlık çok yordum sizi kusura bakmayın muhtemelen olmuştur
bir sorun olursa daha sonra dönerim size çok yardımcı oldunuz çok sağolun
izmire gelirseniz mutlaka bir çayımı içmeye beklerim iyi çalışmalar....

Teşekkür ederim, ama benim için henüz bitmedi.
Sorunu tespit etmem lazım.

Aslında bir fikrim var yeni bir dosya hazırlayıp gönderirim. Daha önce kaşılaşmıştım. Bende herşey normal çalışırken karşı tarafta bazı hücreler güncellenmiyordu. sheet ataması ile değer yazılması ile ilgili bir durum bence.

 

[Asri]

Evet son dosya bu, bunda artık sorun çıkarmaması gerekiyor.
Kontrol ediniz.

 

[Schuba]

Hocam şuan bilgisyar başinda olamadiğim için kontrol edemiyorum
ama yarin mutka kontrol eder bilgi veririm size.
tabletten yaziyorum ...

 

[Schuba]

En son bakım takip

hocam elinize kolunuza sağlık süper olmuş baya inceledim hiç bir problemle karşılaşmadım

sadece tek birşey dikkatimi çekti oda sorunmudur değilmidir bilemedim

tüm müşterileri fiş kapamadan tek tek filitreliyip
mebranların yerlerini değiştirdim,
mebranları sildim,
mebranları değişen parçalar aralığındaki başka yerlere rasgele yeniden yazdım tarhleri değştirdim. hepsinde doğru sonuç verdi

fakat tarihleri değiştirirken dikkatimi çeken şey şu oldu
tarih sıralamasında yakın tarihi üst sıralara yazınca sonucun yanlış olduğunu gördüm

örneğin eklediğim dosyayı güncellemeden kapıtılan fişler sayfasına bakarsanız

"MEHMET GÜNER" İSİMLİ MÜŞTERİNİN FİLİTRELENMİŞ KAYITLARINI GÖRECEKSİNİZ

orada dikkat ederseniz tarih sıralamasıyla aynen şu şekildedir
(01.07.2017) "mebran" değişmemiş
(01.03.2014) "mebran" değişmiş
(01.06.2013) "mebran" değişmiş

burda olması gereken sonuç en son "mebran"(01.03.2014) tarihinde değişmiş olduğu için ve bu gün itibari ile 540 günü geçtiği için "genel" sonucunu almamız gerkiyordu fakat "mehmet güner" ismili örneğe bakarsanız sonuç "peryodik" yazıyor

aslında bakarsanız tarih sralaması zaten eskiden yeniye doğru aşağı doğru olacağı için bu bir prolemdir diye düşünmüyorum

sadece bu koddaki bir hatamıdır yoksa olması gereken zaten bumudur diye
diye bilginiz olsun istedim

ayrıca hocam bu sayfa koruma hakkındada sizden birşey istiyicem
ben mevcut yazdığınız koda zaten eklemiştim ancak
kod çalıştıktan sonra "bakım takip" sayfası tekrardan korunuyor ancakn
"fiş kapama" sayfası korunmuyor birde korumalı sayfada filitreler çalışmıyor

benim istediğim yazdığınız kod çalışmaya başladığında
"bakım takip" ve "kapatılan fişler" sayfalarındaki korumaları şifrelerini girerek önce korumayı kaldırsın daha sonra
kod kendi işini yapıp bitirdikten sonra her iki sayfanında koruma seçeneklerinden "otomotik filitre kullan"
seçeneğinide ekliyip tekrardan şifrelerini girerek korumaya alsın

son olarakta bu "bakım takip" sayfasındaki (AG) sütununda bulunan
"hatalı" başlıklı sonucların bulunduğu aralığın kodumuzun çalışması ile bir bağlantısı varmı silebilirmiyim
veya BU KODLARI orjinal dosyama yapıştırırken (AG) sütununda böyle bir şeye ihtiyacım varmı


bunun haricinde hiçbir problem göremedim ...

iyi çalışmalar emeğinize sağlık.........

 

[Asri]

aslında bakarsanız tarih sralaması zaten eskiden yeniye doğru aşağı doğru olacağı için bu bir prolemdir diye düşünmüyorum. Sadece bu koddaki bir hatamıdır yoksa olması gereken zaten bumudur

Program ilk tarihi 01.01.1970 olarak başlar ve en güncel değişmiş mebran ı bulur. Olması gereken budur. Örnek deki sorun için listeye yanlış giriş yapılmış demeliyiz

benim istediğim yazdığınız kod çalışmaya başladığında 
"bakım takip" ve "kapatılan fişler" sayfalarındaki korumaları şifrelerini girerek önce korumayı kaldırsın  daha sonra 
kod kendi işini yapıp bitirdikten sonra her iki sayfanında koruma seçeneklerinden  "otomotik filitre kullan" 
seçeneğinide ekliyip tekrardan şifrelerini girerek korumaya alsın

Bakayım.

son olarakta bu "bakım takip" sayfasındaki (AG) sütununda bulunan
"hatalı" başlıklı sonucların bulunduğu aralığın kodumuzun çalışması ile bir bağlantısı varmı silebilirmiyim
veya BU KODLARI orjinal dosyama yapıştırırken (AG) sütununda böyle bir şeye ihtiyacım varmı

Bu kolon sadece bilgilendirme amaçlıydı. Çalışmaya herhangi bir etkisi yok.

 

[Asri]

6. mesajdaki kodu güncelledim. Kontrol ediniz.

 

[Schuba]

anladım hocam zaten bende bir problem olarak görmemiştim sadece soruyım demiştim

herşey için çok sağolun başta siz olmak özere bu formun bütün yöneticilerinden ve katkıda bulunanlardan allah razı olsun hakikaten bu formdan çokı şey öğrendim sağolun var olun.

son bir soru hocam yazdığınız kodun başlarındaki

Dim kapatilanfisler(100000, 3) As String
Dim bakimliste(100000, 2) As String

ve orta bölümdeki

For i = 1 To 100000


ibarelerinden "100000" sayısını "50000" diye değiştirsem kod daha hızlı çalışırmı acaba.

 

[Asri]

anladım hocam zaten bende bir problem olarak görmemiştim sadece soruyım demiştim

herşey için çok sağolun başta siz olmak özere bu formun bütün yöneticilerinden ve katkıda bulunanlardan allah razı olsun hakikaten bu formdan çokı şey öğrendim sağolun var olun.

son bir soru hocam yazdığınız kodun başlarındaki

Dim kapatilanfisler(100000, 3) As String
Dim bakimliste(100000, 2) As String

ve orta bölümdeki

For i = 1 To 100000


ibarelerinden "100000" sayısını "50000" diye değiştirsem kod daha hızlı çalışırmı acaba.

Sizden de Allah razı olsun.

Değiştirin ama gözle görülür bir fark olmaz.

 

[Schuba]

anladım hocam teşekkür ederim

 

[Schuba]

hocam tekrardan merhaba enson güncellediğiniz 6 mesajdaki kodun şu bölümünde

Sub Autpen()
If CDate(Cells(1, 1).Value) <> Date Then Call menu2
Sheets("KAPATILAN FİŞLE").Select
Call koru
Sheets("BAKIM TAKİP").Select
Cells(1, 1).Value = Date
Call koru
End Sub

kod çalışırken takılıyor sayfa koruma ile alakalı galiba bakabilirmisiniz acaba

 

[Asri]

hocam tekrardan merhaba enson güncellediğiniz 6 mesajdaki kodun şu bölümünde

Sub Autpen()
If CDate(Cells(1, 1).Value) <> Date Then Call menu2
Sheets("KAPATILAN FİŞLE").Select
Call koru
Sheets("BAKIM TAKİP").Select
Cells(1, 1).Value = Date
Call koru
End Sub

kod çalışırken takılıyor sayfa koruma ile alakalı galiba bakabilirmisiniz acaba

R ekleyip kaydedin düzelir

 

[Schuba]

hocam özür dilerim FARKETMEMİŞİM

 

[Schuba]

ya hocam herşey çok güzel oldu yazdığınız kot tam istediğim gibi oldu çok güzel çalışıyor fakat

yazdığınız kodu orjinal kullandığım dosyaya yapıştırdım
güncelliyim dedim tam 2,5 saat üşenmedim başında bekledim ama bir türlü güncelleme işlemini bitiremedi ensonunda bende dosyaı kapatmak zorunda kaldım

acaba dosyammı problemli diye orjinal dosyanın kopyasını aldım içindeki verileri azalttım kod çalışıp güncellemeyi yaptı

güncelleme işlemin bitiremediğim orjinal dosyamdaki
"bakım takip" sayfasında "30.000" "kapatılan fişler" sayfasında 5.000 satır var

kopyasını aldığım ve güncelleme işini başardığım dosyadada
"bakım takip" sayfasında "10.000" "kapatılan fişler" sayfasındada "50" satır vardı

hatırlarsanız ilk mesajınızda gönderdiğiniz kod için "37.000" kayıt için 25 saniyede günceller demiştiniz

sorun acaba benim kullandığım bilgisayar veya excell versiyonundamı'ki bu kadar kasıyor.
bilgisayarım : casper marka , i5 işlemcili, 4 çekirdek
excell versiyonu : 2007