• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

hatim takibi

T

tevfikseremet

Katılım
15 Eylül 2004
Mesajlar
91
Excel Vers. ve Dili
2010 TR
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.
 

Ekli dosyalar

tevfikseremet' Alıntı:
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.
Genişletmek için tıkla ...

kod

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
 

Ekli dosyalar

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.
 
tevfikseremet' Alıntı:
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.
Genişletmek için tıkla ...

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' Alıntı:
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.
Genişletmek için tıkla ...

Bu dosyayı kontrol et
 

Ekli dosyalar

ü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.
 
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
 

Ekli dosyalar

tevfikseremet' Alıntı:
okunan cüzün tekrar okunmaması gerekiyor . toplu sayfasında her atamada farklı sütüna cüzler aktarılmalı.teşekkürler
Genişletmek için tıkla ...

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.
 
bu mesaj yanlış oldu
 
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.
 
Son düzenleme:
tevfikseremet' Alıntı:
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.
Genişletmek için tıkla ...

ş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ı.
 
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.
 
Ü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?
 
tevfikseremet' Alıntı:
Ü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?
Genişletmek için tıkla ...

kodu yeniden düzenledim.
 

Ekli dosyalar

Ü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.
 
tevfikseremet' Alıntı:
Ü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.
Genişletmek için tıkla ...

17.mesajdaki kodu yeniden düzenledim ve bazı eklemeler yaptım öncekinde hatalı aktarımlar sözkonusu idi onu farketmemişsiniz.
 
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.
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst