Puantaj içerisinde "si" olarak kısaltılan terimlerin tarihini tesbit edebilme.

[kelkitli]

Puantaj içerisinde "si" olarak kısaltılan terimlerin tarihini tesbit edebilme.

Değerli Dostlar Selamlar,
Beş yıllık sendikal izin kullanımlarını kontrol edebileceğim bir aramaya ihtiyacım var.
Ekteki dosyada bir döngü ile başlıktan sonraki her satırın E : AI aralığında si olarak kısaltılan değeri arayıp, bulunan hücrenin C sütunundan sicil no, D süunundan Adı Soyadı, B Sütnundan ilgili dönem (Ancak bu dönem gün olarak 1.satır E : AI aralığında neye denk geliyorsa 1,5,15 vs. izin günü o, ay ve yıl B sütunundaki veri ile birleştirilerek izin tarihi belirlenecek) ve izne ait veriler Sayfa1 e listelenecek.
Umarım derdimi izah etmişimdir.

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları bir modul sayfasına kopyalayarak çalıştırınız.

Sub aktar()
Set shc = Sheets("ÇALIŞMA")
Set sh1 = Sheets("Sayfa1")
sh1.Range("A2:C5000").ClearContents
Dim hucre As Range
For Each hucre In shc.Range("E4:AI510").Cells
  If hucre.Text = "si" Then
     satir = hucre.Row
     sutun = hucre.Column
     son1 = sh1.Cells(65536, 1).End(xlUp).Row
        sh1.Cells(son1 + 1, 1) = shc.Cells(satir, 3)
        sh1.Cells(son1 + 1, 2) = shc.Cells(satir, 4)
          gun = shc.Cells(3, sutun)
          ay = Month(shc.Cells(satir, 2))
          yil = Year(shc.Cells(satir, 2))
        sh1.Cells(son1 + 1, 3) = CDate((gun & "." & ay & "." & yil))
  End If
Next
Set shc = Nothing
Set sh1 = Nothing
End Sub

 

[kelkitli]

Sayın fpc Selamlar,
Teşekkür ederim, çok güzel bir çözüm hazırlamışsınız.