rapor kesinti

[waper2005]

sayın hocalarım personelin yıl içindeki aldıkları raporları burdan takip etmek istiyorum. ancak sütun ekleme yaptığımda makro bozuluyor. makroyu kurcaladım ama çözemedim. yardımcı olurmusunuz.

 

[Mahir64]

Merhaba
Nerden takip etmek istiyorsunuz?

--

 

[waper2005]

hocam elimde excel dosyası varda ekleyemedim

 

[Murat OSMA]

Yardımcı olmaya çalışırız.

 

[waper2005]

dosyayı nasıl eklerim buraya

 

[waper2005]

dosya ekleme yetkim yok galiba

 

[waper2005]

sayın hocalarım dosyayı nasıl ekleyeceğim

 

[waper2005]

http://dosya.co/8iw3cxsu0wbp/rapor_kesintisi.xls.html


hocalarım dosyayı buraya ekledim. yardımcı olabilirmisiniz. adı soyadı sütunundan önce 2 sütun eklemek istiyorum. ancak eklediğim zaman makro bozuluyor.

 

[waper2005]

sayın hocalarım bu konuda yardımcı olur musunuz

 

[Murat OSMA]

Kodları bu şekilde değiştirip deneyiniz;

[FONT="Trebuchet MS"]Sub aktar()

tarih = Val(Format(Now, "mm"))


ay = Application.InputBox("İlgili Ayı sayı olarak giriniz.", "Başlangıç Ay", tarih, 400, 30, , Type:=1)
    
If ay = False Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If

If ay <= 0 Then
MsgBox " ay sıfırdan den büyük sayı giriniz"
Exit Sub
End If

If ay > 12 Then
MsgBox "ay 12 den küçük sayı giriniz."
Exit Sub
End If

ay = ay + 5

For i = 2 To Worksheets("veri").Cells(Rows.Count, "D").End(3).Row


If Sheets("veri").Cells(i, 5).Value > 0 Then

If Sheets("veri").Cells(i, 20).Value > 0 Then Sheets("veri").Cells(i, 21).Value = Sheets("veri").Cells(i, 20).Value

Sheets("veri").Cells(i, 19).Value = Sheets("veri").Cells(i, 18).Value
Sheets("veri").Cells(i, ay).Value = Sheets("veri").Cells(i, ay).Value + Sheets("veri").Cells(i, 5).Value
Sheets("veri").Cells(i, 18).Value = WorksheetFunction.Sum(Worksheets("veri").Range("F" & i & ":Q" & i))
If Sheets("veri").Cells(i, 18).Value > 7 Then Sheets("veri").Cells(i, 20).Value = Sheets("veri").Cells(i, 18).Value - 7
Sheets("veri").Cells(i, 22).Value = Sheets("veri").Cells(i, 20).Value - Sheets("veri").Cells(i, 21).Value
If Sheets("veri").Cells(i, 22).Value = 0 Then Sheets("veri").Cells(i, 22).Value = ""

Else

If Sheets("veri").Cells(i, 20).Value > 0 Then
Sheets("veri").Cells(i, 21).Value = Sheets("veri").Cells(i, 20).Value
Sheets("veri").Cells(i, 20).Value = ""
Sheets("veri").Cells(i, 22).Value = ""
End If
End If

Sheets("veri").Cells(i, 5).Value = ""
Next
MsgBox "işlem tamam"
End Sub[/FONT]

 

[waper2005]

SAYIN ,Murat OSMA hocam çok teşekkür ederim. sağolun. iyi çalışmalar

 

[Murat OSMA]

Rica ederim, iyi günler.

 

[waper2005]

hocam bu excel dosyası 97-2003 formatında hazırlanmış. bunu ben 2013 excel olarak kaydedersem makro bozulur mu? bozulmadan nasıl kaydederim.

 

[Murat OSMA]

Makro İçerebilen Excel Çalışma Kitabı olarak farklı kaydederseniz bir şey olmaz.
Ya xls olarak kalsın, ya da xlsm olarak farklı kaydedin.

 

[erdenek]

ellerinize sağlık güzel bir çalışma.

 

[waper2005]

hocam teşekkür ederim iyi çalışmalar