• DİKKAT

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

Girilen İzinlerin Aylara Göre Dağılımları

Katılım
7 Temmuz 2007
Mesajlar
111
Excel Vers. ve Dili
Office 2003 Tr
Girilen veriye göre izin tarihlerini aylara bölme ve verilerin dağılımı....


arkadaşlar ilgili dosya ekte yardımcı olabilirseniz çok sevinirim.
 

Ekli dosyalar

Girilen veriye göre izin tarihlerini aylara bölme ve verilerin dağılımı....


arkadaşlar ilgili dosya ekte yardımcı olabilirseniz çok sevinirim.

merhaba
umarım istediğiniz gibi olmuştur S1'deki formülü silmeyiniz diğer hücrelerdeki formülleri ve hücre biçimlendirmeleri inceleyiniz
 

Ekli dosyalar

Sayın İhsan Tank katkınız için teşekkürler..
 
merhaba
umarım istediğiniz gibi olmuştur S1'deki formülü silmeyiniz diğer hücrelerdeki formülleri ve hücre biçimlendirmeleri inceleyiniz

kardeş Allah razı olsun ilgilendiğin için fakat ben işlem yapamıyorum. formülleri yazmışsın fakat işlem yapmıyoru tekrardan kontrol edebilirmisin.

AŞAĞIDAKİ GİBİ HATA VERİYOR.....


adsznv.png
 
ToolPak Çözümleyicisi ile ilintili fonksiyonlar, yoksa #AD? hatası verir. Bu nedenle, ToolPak Çözümleyicisi eklentisini seçip yükleyin.

Eklentiyi yüklemek için:

1. Araçlar / Tools menüsünden Eklentiler'i / Add_Ins tıklatın.
2. Kullanılabilir eklentiler listesinde, ToolPak Çözümleyicisi / Analysis ToolPak kutusunu seçin ve Tamam'ı / OK tıklatın.
3. Eğer yüklenmiyorsa, Office kur programındaki yönergeleri izleyin.


.
 
ToolPak Çözümleyicisi ile ilintili fonksiyonlar, yoksa #AD? hatası verir. Bu nedenle, ToolPak Çözümleyicisi eklentisini seçip yükleyin.

Eklentiyi yüklemek için:

1. Araçlar / Tools menüsünden Eklentiler'i / Add_Ins tıklatın.
2. Kullanılabilir eklentiler listesinde, ToolPak Çözümleyicisi / Analysis ToolPak kutusunu seçin ve Tamam'ı / OK tıklatın.
3. Eğer yüklenmiyorsa, Office kur programındaki yönergeleri izleyin.


.


Kardeş yine olmadı. Sorun neyden kaynaklanıyor tam olarak anlayamadım fakat dediğin eklentiyi de yükleledim ama pek değişen birşey olmadı. Yine aynı hatalar devam etmekte.
 
ToolPak Çözümleyicisi ile ilintili fonksiyonlar, yoksa #AD? hatası verir. Bu nedenle, ToolPak Çözümleyicisi eklentisini seçip yükleyin.

Eklentiyi yüklemek için:

1. Araçlar / Tools menüsünden Eklentiler'i / Add_Ins tıklatın.
2. Kullanılabilir eklentiler listesinde, ToolPak Çözümleyicisi / Analysis ToolPak kutusunu seçin ve Tamam'ı / OK tıklatın.
3. Eğer yüklenmiyorsa, Office kur programındaki yönergeleri izleyin.


.

merhaba
bunu yaparak dosyayı çalıştırabiliyoruz.
dilerseniz tekrardan deneyiniz
 
merhaba
bunu yaparak dosyayı çalıştırabiliyoruz.
dilerseniz tekrardan deneyiniz

kardeş tamamdır bendede oldu fakat bu sefer şöyle bir sıkıntı var. hafta sonları dahil edilmiyor. ayrıca D sütununda 5 gün yazıyorsam hangi aya aitse o aydada toplam 5 gün izin göstermesi gerekiyor. F sütununda dönüş tarihi işe başlama tarihidir. izin gününü tam göstermiyor. hesap olarak yanlış yapıyor. ilgilenirsen sevinirim, herhalde tam iş günü aldığından kaynaklanıyor.
 
kardeş tamamdır bendede oldu fakat bu sefer şöyle bir sıkıntı var. hafta sonları dahil edilmiyor. ayrıca D sütununda 5 gün yazıyorsam hangi aya aitse o aydada toplam 5 gün izin göstermesi gerekiyor. F sütununda dönüş tarihi işe başlama tarihidir. izin gününü tam göstermiyor. hesap olarak yanlış yapıyor. ilgilenirsen sevinirim, herhalde tam iş günü aldığından kaynaklanıyor.

nasıl bir işlem istiyorsanız
örnek dosya üzerinde yaparsanız daha iyi olur
 
nasıl bir işlem istiyorsanız
örnek dosya üzerinde yaparsanız daha iyi olur


Ekli dosyada ki gibi. Yalnız tek sorun şu ağustos ayında başlamış bir izin için girmiş olduğum veri doğru. Fakat izin başlama tarihine 8.aydan başka bir ay yazarsam işlem çalışmıyor. mesela 05.09.2010 tarihinde izine başlayan birisi için 10 gün izin yazdığım zaman ağustos ayını boş bırakacak eylül ayına 10 gün yazacak. eğer gün eylül ayınıda geçiyorsa ekime kalanını aktaracak. Aslında bu şekilde işimi görüyorum ama bunu kullanınca her ay için ayrı sayfa açmak zorunda kalıyorum. Ama eğer bu aktarma işlemi başarılı olursa alt alta yazıp gideceğim.
 

Ekli dosyalar

Ekli dosyada ki gibi. Yalnız tek sorun şu ağustos ayında başlamış bir izin için girmiş olduğum veri doğru. Fakat izin başlama tarihine 8.aydan başka bir ay yazarsam işlem çalışmıyor. mesela 05.09.2010 tarihinde izine başlayan birisi için 10 gün izin yazdığım zaman ağustos ayını boş bırakacak eylül ayına 10 gün yazacak. eğer gün eylül ayınıda geçiyorsa ekime kalanını aktaracak. Aslında bu şekilde işimi görüyorum ama bunu kullanınca her ay için ayrı sayfa açmak zorunda kalıyorum. Ama eğer bu aktarma işlemi başarılı olursa alt alta yazıp gideceğim.

merhaba
eki inceleyiniz formüller 100 satıra kadar yayılmıştır ve sarı reng'e boyanmıştır
 

Ekli dosyalar

merhaba
eki inceleyiniz formüller 100 satıra kadar yayılmıştır ve sarı reng'e boyanmıştır


İhsan kardeş hakkını helal et bu sefer olmuş ama şimdide girilen gün sayısını aylara dağıttıktan sonra bakıyorum dağıttığı günlerin sayıları uyuşmuyor. Dosyayı ekleyip sarıya boyadığım sütunları inceleyebilirmisin. Diğer aya aktarılacak kadar gün girilmezse sorun olmuyor ama diğer aya aktardığı zaman 1 gün kayıp yaşanıyor.
 

Ekli dosyalar

İhsan kardeş hakkını helal et bu sefer olmuş ama şimdide girilen gün sayısını aylara dağıttıktan sonra bakıyorum dağıttığı günlerin sayıları uyuşmuyor. Dosyayı ekleyip sarıya boyadığım sütunları inceleyebilirmisin. Diğer aya aktarılacak kadar gün girilmezse sorun olmuyor ama diğer aya aktardığı zaman 1 gün kayıp yaşanıyor.

.

Dosyanız ekte.

.
 

Ekli dosyalar

alternatif dosya makro ile yapılmıştır.

Sub ayrıntılıraporhepsi()
Range(Cells(2, "F"), Cells(Rows.Count, "S")).ClearContents
Dim say(12)
Dim a(13)
a(1) = 31: a(2) = 28: a(3) = 31: a(4) = 30: a(5) = 31: a(6) = 30
a(7) = 31: a(8) = 31: a(9) = 30: a(10) = 31: a(11) = 30: a(12) = 31: a(13) = 31
For r = 2 To Cells(Rows.Count, "b").End(3).Row
For j = 1 To 12
say(j) = 0
Next j
For n = 1 To Val(Cells(r, 4).Value)
deg = Cells(r, 3).Value
Tarih = Val(Mid(deg + n - 1, 4, 2))
say(Tarih) = say(Tarih) + 1
Next n
For i = 1 To 12
If say(i) >= 31 Then
say(i + 1) = say(i + 1) + (say(i) - a(i))
say(i) = a(i)
End If
If say(i) = 0 Then
say(i) = ""
End If
Cells(r, 6 + i) = say(i)
Next i

Cells(r, 6) = Cells(r, 3) + Cells(r, 4)
Cells(r, "S").Value = WorksheetFunction.Sum(Range(Cells(r, "G"), Cells(r, "R")))
Next r
MsgBox "işlem tamam "
End Sub
 

Ekli dosyalar

Sayın İhsan Tank, Yurttas ve halit3;

Değerli hocalarım emek ve katkılarınız için teşekkürler. Arşivliyorum...
 
Geri
Üst