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

[halit3]

Hocam Aradığım Çalışma bu teşekkür ederim...

Teşekkürler ben yazdığım kodu unutmuşum.

iyi çalışmalar

 

[omeryılmaz]

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

Hocam Örnekte oluşturduğunuz Makroyu Kendi sayfama bir türlü uygulayamadım. Hata nerede yapıyorum çözemedim. Yardımınıza ihtiyacım var

 

[halit3]

Hocam Örnekte oluşturduğunuz Makroyu Kendi sayfama bir türlü uygulayamadım. Hata nerede yapıyorum çözemedim. Yardımınıza ihtiyacım var

kodun

Tarih = Val(Mid(deg + n - 1, 8, 2))

bu bölümünü aşağıdakiyle değiştirin

Tarih = Val(Mid(deg + n - 1, 4, 2))

 

[omeryılmaz]

Teşekkürler Hocam. Elinize yüreğinize sağlık..

Saygılar

 

[halit3]

Teşekkürler Hocam. Elinize yüreğinize sağlık..

Saygılar

iyi çalışmalar

 

[assenucler]

Değerli dostlar ve sayın Halit3;

Günaydın. İyi hafta sonları ve mutlu yıllar..

Emek ve katkılarınız için teşekkürler..

 

[halit3]

Değerli dostlar ve sayın Halit3;

Günaydın. İyi hafta sonları ve mutlu yıllar..

Emek ve katkılarınız için teşekkürler..

iyi çalışmalar

 

[halit3]

Hocam Örnekte oluşturduğunuz Makroyu Kendi sayfama bir türlü uygulayamadım. Hata nerede yapıyorum çözemedim. Yardımınıza ihtiyacım var

kodu birazcık daha kısalttım.

Private Sub CommandButton1_Click()
Range(Cells(2, "I"), Cells(Rows.Count, "AB")).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, 8).Value)
deg = Cells(r, 7).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, 15 + i) = say(i)
Next i

Cells(r, 9) = Cells(r, 7) + Cells(r, 8)
Cells(r, "AB").Value = WorksheetFunction.Sum(Range(Cells(r, "P"), Cells(r, "AA")))
Next r
End Sub

 

[omeryılmaz]

Merhaba Arkadaşlar


Önceki örnekler de özellikle çalışma günlerine göre izinleri aylara aktarmaktadır.

Benim sorum örnek dosyada da açıkladığım gibi ay bazında izinleri aylara aktarmak...

Örn: 24.7.2013 tarihinden 41 gün izin alan personele, Ağustos ayına 7 Temmuz ayına 31 Eylül ayında 3 gün şeklinde dağıtması....

Yardımlarınız için şükranlarımı sunuyorum....

 

[halit3]

Merhaba Arkadaşlar


Önceki örnekler de özellikle çalışma günlerine göre izinleri aylara aktarmaktadır.

Benim sorum örnek dosyada da açıkladığım gibi ay bazında izinleri aylara aktarmak...

Örn: 24.7.2013 tarihinden 41 gün izin alan personele, Ağustos ayına 7 Temmuz ayına 31 Eylül ayında 3 gün şeklinde dağıtması....

Yardımlarınız için şükranlarımı sunuyorum....

Kırmızı yerdeki ifadelerde sanki yanlış gibi herhalde ters yazdınız.

Kod saten bunu yapıyor

örnek

24.07.2013
25.07.2013
26.07.2013
27.07.2013
28.07.2013
29.07.2013
30.07.2013
31.07.2013

Burada 8 gün var siz 7 gün olarak belitmişsiniz.

 

[omeryılmaz]

Hocam Haklısınız

24.7.2013 tarihinden 41 gün izin alan personele, Temmuz ayına 8 ayına Ağustos 31 Eylül ayında 2 gün şeklinde olmalı..


Ancak sizin daha önceki yapmış olduğunuz çalışmaları da inceledim. Çalışmalarında Anladığım kadarıyla hafta içi çalışma gününe göre modül hesaplıyor.

Benim isteğim

Örnekte olduğu gibi o aya ait tam gün sayısı bazında çalışma

24.7.2013 tarihinden 41 gün izin alan personele, Temmuz ayına 8, Ağustos ayına 31, Eylül ayında 2 gün şeklinde olmalı..

Yardım ve önerileriniz için şimdiden şükranlarımı sunuyorum..

 

[halit3]

Hocam Haklısınız

24.7.2013 tarihinden 41 gün izin alan personele, Temmuz ayına 8 ayına Ağustos 31 Eylül ayında 2 gün şeklinde olmalı..


Ancak sizin daha önceki yapmış olduğunuz çalışmaları da inceledim. Çalışmalarında Anladığım kadarıyla hafta içi çalışma gününe göre modül hesaplıyor.

Benim isteğim

Örnekte olduğu gibi o aya ait tam gün sayısı bazında çalışma

24.7.2013 tarihinden 41 gün izin alan personele, Temmuz ayına 8, Ağustos ayına 31, Eylül ayında 2 gün şeklinde olmalı..

Yardım ve önerileriniz için şimdiden şükranlarımı sunuyorum..

Aktar düğmesi G-R arasındaki hücrelere aylar itibariyle bu dediğinizin aynısını yapıyor

kod:

Sub ayrıntılıraporhepsi()
Range(Cells(2, "F"), Cells(Rows.Count, "S")).ClearContents

Dim say(12)

For r = 2 To Cells(Rows.Count, "b").End(3).Row
For j = 1 To 12
say(j) = 0
Next j

deg = Cells(r, 3).Value

For n = 1 To Val(Cells(r, 4).Value)
Tarih = Val(Mid(deg + n - 1, 4, 2))
say(Tarih) = say(Tarih) + 1
Next n

For i = 1 To 12
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

 

[omeryılmaz]

Aktar düğmesi G-R arasındaki hücrelere aylar itibariyle bu dediğinizin aynısını yapıyor

Temmuz ayı itibariyle işlem doğru, Ancak Ağustos Eylül Günleri tam eklemiyor...

Temmuz Ağustos Eylül
21 7
20 9
19 31 28
18 13
17 31 15
16 17
15 19
14 21
13 23
12 25
11 27
10 29
9 31
8 31 2

 

[halit3]

Temmuz ayı itibariyle işlem doğru, Ancak Ağustos Eylül Günleri tam eklemiyor...

Temmuz Ağustos Eylül
21 7
20 9
19 31 28
18 13
17 31 15
16 17
15 19
14 21
13 23
12 25
11 27
10 29
9 31
8 31 2

Sizinle anlaşamıyacağız herhalde!

üçüncu sıradaki arzu kaya ili ilgili
M4 hücresinde 19 var
N4 hücresinde 22 var
O4 hücresinde 19 var

bu rakamlar nereden geldi buraya siz elle yazıyorsunuz galiba
oysa aktar düğmesine tıklayınca

M4 hücresinde 19 oluyor
N4 hücresinde 31 oluyor
O4 hücresinde 28 oluyor

Böyle oluyor buda istediğiniz durum değilmi.

 

[omeryılmaz]

Hocam Aktar Butonuna basınca

M4 hücresinde 19
N4 hücresinde 22
O4 hücresinde 19 oluyor



M4 hücresinde 19
N4 hücresinde 31
O4 hücresinde 28 olmuyor olsa işlem tamamlanacak..


Benim yazdığım yer örnek olsun diye T ve X arasını yazdım


Saygılar.............

 

[halit3]

Hocam Aktar Butonuna basınca

M4 hücresinde 19
N4 hücresinde 22
O4 hücresinde 19 oluyor



M4 hücresinde 19
N4 hücresinde 31
O4 hücresinde 28 olmuyor olsa işlem tamamlanacak..


Benim yazdığım yer örnek olsun diye T ve X arasını yazdım


Saygılar.............

Bir yanlışlık olmasın
excelin hangi sürümünü kullanıyorsunuz makrolar etkinmi

M4-N4-O4 hücrelerini silin aktar düğmesine basın ne olacak gözlemleyin.

Ben dosyada bu hücreleri sildim aktar düğmesine bastım

M4 hücresinde 19
N4 hücresinde 31
O4 hücresinde 28 oluyor.

Buda görsel video

 

[omeryılmaz]

Bir yanlışlık olmasın
excelin hangi sürümünü kullanıyorsunuz makrolar etkinmi

M4-N4-O4 hücrelerini silin aktar düğmesine basın ne olacak gözlemleyin.

Ben dosyada bu hücreleri sildim aktar düğmesine bastım

M4 hücresinde 19
N4 hücresinde 31
O4 hücresinde 28 oluyor.

Buda görsel video

görsel video

İlginiz için şükranlarımı sunuyorum.

Videoyu izledim

excelin 2007 sürümünü kullanıyorum makrolar etkin

Sorun bende hala aynı devam ediyor.

Office 2007 den kaynaklanıyor olabilir...

Bende

M4 hücresinde 19
N4 hücresinde 22
O4 hücresinde 19 oluyor çözemedim.....

 

[halit3]

İlginiz için şükranlarımı sunuyorum.

Videoyu izledim

excelin 2007 sürümünü kullanıyorum makrolar etkin

Sorun bende hala aynı devam ediyor.

Office 2007 den kaynaklanıyor olabilir...

Bende

M4 hücresinde 19
N4 hücresinde 22
O4 hücresinde 19 oluyor çözemedim.....

Bu görsel video da ofis 2007 için

 

[omeryılmaz]

Bu görsel video da ofis 2007 için

görsel video

Hocam sabrınız ve ilginiz için şükranlarımı sunuyorum..

Sorun Bölgesel tarih ayarlarındanmış...

Eline yüreğine sağlık....

 

[halit3]

Hocam sabrınız ve ilginiz için şükranlarımı sunuyorum..

Sorun Bölgesel tarih ayarlarındanmış...

Eline yüreğine sağlık....

01.01.2011 yılındaki yazdığınız mesajda kodun çalıştığı anlaşılıyor o zamandan bu zamana kadar geçen sürede herhalde bilgisayarınıza yeni format atmışsınızki bölgesel ayarlardaki tarih kısmı istenen formatta olmadığından hesaplamalar yanlış olmuş ve bir çok mesajı bu yüzden yazmışız.

Sorunuz şöyle olsaydı bu kadar uğraşmıyacaktık.

Soru: Daha önce çalışan kod şimdi hatalı işlem yapıyor.