Fazla mesai toplamı

[m.gur]

Merhaba; daha önce yardımlarınızla yaptığım dosyada ilaveler yapma zorunluluğu ortaya çıktı. Ay bazında yapılan mesai saatleri başka bir sayfada gösterilip yeni bir ayın mesaileri yazılırken o aya kadar yapmış olduğu mesailerle birlikte toplanıp son yazılan formda gösterilecek. Her ay veri girilecek ve o aya ait veriler diğer sayfaya aktarılacak. Bir sonraki ayın verileri girilirken bir önceki ayın toplamı da bu formda devir sütununda gösterilecek. Sanırım makroya ihtiyaç var. İlgilenen arkadaşlara şimdiden tşekkür ederim. Sayfa koruma 333

 

[m.gur]

Konu günceldir. Kısaca yapılmak istenen; personelin yıllık olarak yaptığı fazla mesaileri kayıt altına almaktır.

 

[halit3]

Merhaba; daha önce yardımlarınızla yaptığım dosyada ilaveler yapma zorunluluğu ortaya çıktı. Ay bazında yapılan mesai saatleri başka bir sayfada gösterilip yeni bir ayın mesaileri yazılırken o aya kadar yapmış olduğu mesailerle birlikte toplanıp son yazılan formda gösterilecek. Her ay veri girilecek ve o aya ait veriler diğer sayfaya aktarılacak. Bir sonraki ayın verileri girilirken bir önceki ayın toplamı da bu formda devir sütununda gösterilecek. Sanırım makroya ihtiyaç var. İlgilenen arkadaşlara şimdiden tşekkür ederim. Sayfa koruma 333

Bu kodu denermisiniz.

not : mesai sayfasındaki c3 hücresindeki aylar ile lst sayfasındaki aylar mutlaka aynı olmalı

Sub aktar()
If Sheets("Mesai").Cells(3, 3).Value = "" Then
MsgBox "ilgili ay seçimini yapınız."
End If
Worksheets("Mesai").Protect Password:="333", Contents:=False, Scenarios:=False
sat = Worksheets("LST").Cells(Rows.Count, "B").End(3).Row + 1
For j = 3 To 14
If Sheets("Mesai").Cells(3, 3).Value = Sheets("LST").Cells(1, j).Value Then
ay = j
Exit For
End If
Next
For r = 4 To Worksheets("Mesai").Cells(Rows.Count, "B").End(3).Row
aranan1 = Sheets("Mesai").Cells(r, 3).Value
If aranan1 <> "" Then
deg = 0
For i = 2 To Worksheets("LST").Cells(Rows.Count, "B").End(3).Row
aranan2 = Sheets("LST").Cells(i, 2).Value
If aranan2 = aranan1 Then
Sheets("LST").Cells(i, ay).Value = Sheets("Mesai").Cells(r, 41).Value
Sheets("LST").Cells(i, 15).Value = WorksheetFunction.Sum(Worksheets("LST").Range(Worksheets("LST").Cells(i, 3), Worksheets("LST").Cells(i, 14)))
Sheets("Mesai").Cells(r, 5).Value = Sheets("LST").Cells(i, 15).Value
'Sheets("Mesai").Cells(r, 5).Value = WorksheetFunction.Sum(Worksheets("Mesai").Range(Worksheets("Mesai").Cells(r, 6), Worksheets("Mesai").Cells(r, 36)))
deg = 1
Exit For
End If
Next i
If deg = 0 Then
Sheets("LST").Cells(sat, ay).Value = Sheets("Mesai").Cells(r, 41).Value
Sheets("LST").Cells(sat, 2).Value = Sheets("Mesai").Cells(r, 3).Value
Sheets("LST").Cells(sat, 15).Value = WorksheetFunction.Sum(Worksheets("LST").Range(Worksheets("LST").Cells(sat, 3), Worksheets("LST").Cells(sat, 14)))
'Sheets("Mesai").Cells(r, 5).Value = WorksheetFunction.Sum(Worksheets("Mesai").Range(Worksheets("Mesai").Cells(r, 6), Worksheets("Mesai").Cells(r, 36)))
Sheets("Mesai").Cells(r, 5).Value = Sheets("LST").Cells(sat, 15).Value
sat = sat + 1
End If
End If
Next r
Worksheets("Mesai").Protect Password:="333", Contents:=True, Scenarios:=True
MsgBox "işlem tamam"
End Sub

 

[m.gur]

400 hatası veriyor.

 

[halit3]

400 hatası veriyor.

Bu hatayı sayfa koruması olduğundan alıyorsunuz.
makro korunan sayfada işlem yapıyor.

 

[halit3]

3 nolu mesajdaki kodu yeniden düzenledim. kontrol ediniz.

 

[m.gur]

Sayın halit3 şu an bir problem görünmüyor. Çok teşekkür ederim. İyi akşamlar.

 

[m.gur]

Sayın halit3 teşekkür ederim.

 

[halit3]

Sayın halit3 teşekkür ederim.

iyi çalışmalar