- Katılım
- 7 Temmuz 2007
- Mesajlar
- 111
- Excel Vers. ve Dili
- Office 2003 Tr
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
merhabaGirilen veriye göre izin tarihlerini aylara bölme ve verilerin dağılımı....
arkadaşlar ilgili dosya ekte yardımcı olabilirseniz çok sevinirim.
rica ederimSayın İhsan Tank katkınız için teşekkürler..
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.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
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.
.
Kardiş, o zaman dosyanı ekle de bakalım.
.
merhabaToolPak Çö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ş 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.merhaba
bunu yaparak dosyayı çalıştırabiliyoruz.
dilerseniz tekrardan deneyiniz
nasıl bir işlem istiyorsanızkardeş 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
merhabaEkli 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
.İ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.
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
syn : assenuclerSayın İhsan Tank, Yurttas ve halit3;
Değerli hocalarım emek ve katkılarınız için teşekkürler. Arşivliyorum...
Hocam Aradığım Çalışma bu teşekkür ederim...alternatif dosya makro ile yapılmıştır.