hatim takibi

[tevfikseremet]

hatim sayfasına ilk okunacak cüzleri okuyucuların okuyabileceğini beyan ettikleri cuz adedine göre atamasını yaptım.Ama Daha sonraki okuması gereken Cüzleri Sırasıyla kaldığı yerden Hatim1 sayfasına boşluk olmadan atayan makroyu yazarken oluşan boşlukları kaldıramadım . İlgilenen arkadaşlara şimdiden teşekkürler.

 

[halit3]

hatim sayfasına ilk okunacak cüzleri okuyucuların okuyabileceğini beyan ettikleri cuz adedine göre atamasını yaptım.Ama Daha sonraki okuması gereken Cüzleri Sırasıyla kaldığı yerden Hatim1 sayfasına boşluk olmadan atayan makroyu yazarken oluşan boşlukları kaldıramadım . İlgilenen arkadaşlara şimdiden teşekkürler.

kod

Sub deneme2()
For j = 11 To 305 Step 3
Sheets("[COLOR=red]HATİM1[/COLOR]").Range("C" & j & ":AF" & j).ClearContents
Next
sut12 = 3
sat3 = 11
say2 = Val(Sheets("OKUYUCULAR").Cells(1, "e").Value)
 
If say2 >= 30 Then
say3 = Val(say2 / 30)
say3 = say3 * 3
say4 = say2 - say3
say5 = (Val(say2 / 30) * 30)
Else
say3 = 0
say4 = say2
say5 = 0
End If
sut11 = (sut12 + say4 + say3) - say5
sat3 = sat3 + say3
 
For r = 4 To Worksheets("OKUYUCULAR").Cells(Rows.Count, "d").End(3).Row
Sheets("OKUYUCULAR").Cells(r, "f").Value = Sheets("HATİM1").Cells(sat3 + 1, sut11).Value
say1 = Sheets("OKUYUCULAR").Cells(r, "d").Value
For i = 1 To Val(say1)
Sheets("[COLOR=red]HATİM1[/COLOR]").Cells(sat3, sut11).Value = Sheets("OKUYUCULAR").Cells(r, "c").Value
sut11 = sut11 + 1
If sut11 = 33 Then
sut11 = 3
sat3 = sat3 + 3
End If
Next
If sut11 = 33 Then
sut11 = 3
sat3 = sat3 + 3
End If
Next r
Sheets("OKUYUCULAR").Cells(1, "e").Value = Val(Sheets("OKUYUCULAR").Cells(1, "e").Value + 1)
MsgBox "işlem tamam"
End Sub

not :hatim1 sayfası için yazılan kod kırmızı renkli sayfa ismini hatim olarak yazarsanız. bu kod tek başına hatim sayfasında gerekeni yapar.

diğer taraftan OKUYUCULAR sayfasında E1 hücresinde sayaç bulunmaktadır her aktarım yaptığında sayaç bir artacaktır işlemler oraya göre yapılıyor

 

[tevfikseremet]

Halit bey ilginize teşekkür ederim.Tam istediğim gibi olmuş. Bir ilave daha yapabilirmiyiz, Yeni bir sayfada kişinin adı soyadının yanındaki hücreye okuyacağı cüzleri aşağıdaki şekilde aktarabilirmiyiz.
Sıra no Kayıt no Adı Soyadı Atanan Cüzler
1 1 ali 1
2 2 veli 2
.
.
.
19 19 faruk 19-20
.
.
55 55 sinemacı 28-29-30-1-2-3-4-5-6-7

ilginize tekrar teşekkür ederim.

 

[halit3]

Halit bey ilginize teşekkür ederim.Tam istediğim gibi olmuş. Bir ilave daha yapabilirmiyiz, Yeni bir sayfada kişinin adı soyadının yanındaki hücreye okuyacağı cüzleri aşağıdaki şekilde aktarabilirmiyiz.
Sıra no Kayıt no Adı Soyadı Atanan Cüzler
1 1 ali 1
2 2 veli 2
.
.
.
19 19 faruk 19-20
.
.
55 55 sinemacı 28-29-30-1-2-3-4-5-6-7

ilginize tekrar teşekkür ederim.

Mevcut uygulamanın üzerine yazdığım koduda ekliyerek makroyuda bir kaçkez çalıştırarak

daha sonra manuel olarak elle verileri girin ve olması gerekenleri örnek dosya ile açıklayın sonra bakalım.

 

[halit3]

Mevcut uygulamanın üzerine yazdığım koduda ekliyerek makroyuda bir kaçkez çalıştırarak

daha sonra manuel olarak elle verileri girin ve olması gerekenleri örnek dosya ile açıklayın sonra bakalım.

Bu dosyayı kontrol et

 

[tevfikseremet]

üstadım , okunan cüzün birdaha okunmaması gerekiyor 22. satırdaki Faruk ilk atamada 19-20 cüzlarını okuyor, ikinci atamada 21-22 okuması gerekiyor.

 

[tevfikseremet]

Hatim Takibi

okunan cüzün tekrar okunmaması gerekiyor . toplu sayfasında her atamada farklı sütüna cüzler aktarılmalı.teşekkürler

 

[halit3]

okunan cüzün tekrar okunmaması gerekiyor . toplu sayfasında her atamada farklı sütüna cüzler aktarılmalı.teşekkürler

Hatim sayfasındaki aktarmalarında değişmesi lazım bu baya karışık bir iş oluyor her aktarımda bir den fazla olanlar yani iki,üç,beş gibi her aktarışta bunlar kendi değerlerince kayması gerekiyor.baya karışık vr zor iş gibi gözüküyor.

 

[halit3]

bu mesaj yanlış oldu

 

[tevfikseremet]

imkansız olduğunu sanmıyorum.

 

[halit3]

imkansız olduğunu sanmıyorum.

şimdi ilk mesajınızdaki gibi boşluklar doğdu hatim sayfasında böylemi istiyordunuz.

 

[tevfikseremet]

A-) Hatim1 sayfasında boşluk oluştuğunda hatim bitmemiş oluyor. Hatimlerin bir şekilde tam olarak bitmeli B-) okuyucular son okudukları cüzü tekrar okumamalı. Örneğin Sinemacı 2. atamada en son 5.cüzü okuyor.3.atamada 6.cüzdan başlaması gerekirken yine 5.cüzdan başlıyor. 5.cüz aynı kişi tarafından 2.kez okunmuş oluyor.C-)1.hatimin boşluklarını (Okunmayan Cüzlarını ) kodla 2.Cüzdan tamamlayabilirmiyiz.Örneğin 2.Atamada 1.hatimin 1.Cüzüna, 2.Hatimdeki 1.Cüzü okuyan Morkocu kopyalayabilirmiyiz.Bu şekilde bir alt cüzdan eksikleri tamamlayabiliriz.

 

[halit3]

A-) Hatim1 sayfasında boşluk oluştuğunda hatim bitmemiş oluyor. Hatimlerin bir şekilde tam olarak bitmeli B-) okuyucular son okudukları cüzü tekrar okumamalı. Örneğin Sinemacı 2. atamada en son 5.cüzü okuyor.3.atamada 6.cüzdan başlaması gerekirken yine 5.cüzdan başlıyor. 5.cüz aynı kişi tarafından 2.kez okunmuş oluyor.C-)1.hatimin boşluklarını (Okunmayan Cüzlarını ) kodla 2.Cüzdan tamamlayabilirmiyiz.Örneğin 2.Atamada 1.hatimin 1.Cüzüna, 2.Hatimdeki 1.Cüzü okuyan Morkocu kopyalayabilirmiyiz.Bu şekilde bir alt cüzdan eksikleri tamamlayabiliriz.

şimdi önce sıfırla düğmesini tıkla sonra aktar düğmesine tıkla sırası ile satırları kontrol et

aktar düğmesine her tıkladığında bir sutün ileriye veriler aktarılıyor buna göre kontrol et eksiklikler varmı.

 

[tevfikseremet]

24.sütünlük(1 yıllık) aktarmayı denedim .13.sütüna (S sütünuna)kadar aktarmalar doğru çalışıyor. T35 hücresinden sonra aktarmalar hatalı oluyor.

 

[halit3]

24.sütünlük(1 yıllık) aktarmayı denedim .13.sütüna (S sütünuna)kadar aktarmalar doğru çalışıyor. T35 hücresinden sonra aktarmalar hatalı oluyor.

Bazı ilaveler yaptım bunuda kontrol edin.

 

[tevfikseremet]

Üstadım, Okuyucular sayfasına veriler doğru aktarılıyor.Elinize yüreğinize sağlık.Ancak Şu sorununda yanıtını bulmak gerekiyor. Kaç tane TAM Hatim okundu.(1-30 Cüzlar). Okunduğu halde Tam Hatime Girmeyen Cüzlar hangileri? ben bu işlemi mauel olarak yapıyordum şöyleki; İlk aktarmada 7.Hatimin 26-27-28-29-30.Cüzlarını Listede olmayan hafızlara okutuyoruz. 2.Aktarmada ise 1.Hatimdeki boşlukları 2.Hatimden orada da yoksa 3.Hatimden keserek tamamlıyorum. En son Hatimde kalanları yine listede olmayan joker hafızlara okutuyoruz. Manuel olarak kes-yapıştırla yaptığım Hatim Tamamlama işlemini Makro ile nasıl yapabiliriz?

 

[halit3]

Üstadım, Okuyucular sayfasına veriler doğru aktarılıyor.Elinize yüreğinize sağlık.Ancak Şu sorununda yanıtını bulmak gerekiyor. Kaç tane TAM Hatim okundu.(1-30 Cüzlar). Okunduğu halde Tam Hatime Girmeyen Cüzlar hangileri? ben bu işlemi mauel olarak yapıyordum şöyleki; İlk aktarmada 7.Hatimin 26-27-28-29-30.Cüzlarını Listede olmayan hafızlara okutuyoruz. 2.Aktarmada ise 1.Hatimdeki boşlukları 2.Hatimden orada da yoksa 3.Hatimden keserek tamamlıyorum. En son Hatimde kalanları yine listede olmayan joker hafızlara okutuyoruz. Manuel olarak kes-yapıştırla yaptığım Hatim Tamamlama işlemini Makro ile nasıl yapabiliriz?

kodu yeniden düzenledim.

 

[tevfikseremet]

Üstadım, 2.Atamada Hatim1 sayfasındaki 1.Cüzü okuyan kişi alanını 2.Hatimdeki 1.Cüzü okuyan kişiyi makro ile taşıyarak tamamlamak istiyorum.Son Hatimlerde kalanlarıda joker hafızlara okutarak noksan hatim bırakmamayı düşünüyorum.

 

[halit3]

Üstadım, 2.Atamada Hatim1 sayfasındaki 1.Cüzü okuyan kişi alanını 2.Hatimdeki 1.Cüzü okuyan kişiyi makro ile taşıyarak tamamlamak istiyorum.Son Hatimlerde kalanlarıda joker hafızlara okutarak noksan hatim bırakmamayı düşünüyorum.

17.mesajdaki kodu yeniden düzenledim ve bazı eklemeler yaptım öncekinde hatalı aktarımlar sözkonusu idi onu farketmemişsiniz.

 

[tevfikseremet]

teşekkürler, aktar butonuna tıkladıktan sonra tüm işlemler yapılıyor. hatimlerin tamamlanması için okunması gereken cüzları tespit ettirdikten sonra hafızlara okuyacaklarını beyan ettikleri cüz adedi kadar aktarma yapılması gerekiyor. Aktar butonu tıklandıktan sonra açılan userformda listboxta hafızlara aktarılması gereken cüzlar görülüyor. listboxa çift tıklandığında veriler textboxlara aktarılıyor.Textboxların üzerindeki chechboxlara tıklandığında işaretli cüz sayısını bir arttırıyor.İstediğim, işaretlenen cüzların hafızlar sayfasına ilgili hafıza aktarılmasıdır.