"veri"den bilgi alıp,işleyip,"veri"ye kaydetme

[opium]

Sayfa1 de, sayfa2 deki memura ait bilgileri bulup,kullanacağı izin türünü, miktarını, ayrılış ve başlayış tarihlerini giriyorum.Bu bilgileri tekrar sayfa2 deki izin türüne ait alan kısma kaydetmek istiyorum.Örneğin:Birinci mazeret iznine ait bilgiler,mazeret izninin "1.mazeret izni" bölümüne,ikinci izin de ise "2.mazeret izni" bölümüne kaydedilmeli.Bu işlemin aynısı diğer izin türlerinde de yapılabilmeli.Makro ile nasıl yapılabilir?
İlginize teşekkür ederim.Herşey gönlünüzce olsun.....!

 

[Levent Menteşoğlu]

Eklki dosyayı inceleyin. İzin formu doldurulacak tüm kişi isimlerinin sayfa2 de listelendiği kabul edilmiştir.

Sub aktar()
On Error Resume Next
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
sat = s2.[b1:b65536].Find(s1.[c3]).Row
For a = 2 To 11
s2.Cells(sat, a) = s1.Cells(a + 1, "c")
Next
Select Case s1.[c13]
Case "YILLIK": deg = 14
Case "MAZERET": deg = 29
Case "HASTALIK": deg = 44
Case "ÜCRETSİZ": deg = 59
End Select
say = WorksheetFunction.CountA(s2.Range(s2.Cells(sat, deg), s2.Cells(sat, deg + 14)))
If say = 15 Then
MsgBox s1.[c13] & " izin hakkı kalmamıştır."
Exit Sub
End If
s2.Cells(sat, deg + say) = s1.[c14]
s2.Cells(sat, deg + say + 1) = s1.[c15]
s2.Cells(sat, deg + say + 2) = s1.[c16]
MsgBox "kayıt tamamlandı."
End Sub

 

[opium]

Sayın "Leventm";üzerinde çalıştığım proğramda takılıp kaldığım,çözemediğim problemi sayenizde çözmüş oldum.Mükemmel olmuş,çok teşekkürler...!