Puantaj Tablosu Tarihe göre "x" yazma

[maskcat]

Üstatlar Ek'te bulunan dosyamda 1.sayfada göreve çıkan personelin göreve çıktığı tarihler ve personel isimleri mevcut,ikinci sayfada puantaj tablom var, yapmak istediğim butona basınca 1.sayfada göreve çıkan personelin,göreve çıktığı tarihlere göre 2.sayfada ki puantaj tablosuna "X" işareti yazması,umarım anlatabilmişimdir,şimdiden yardımlarınız için teşekkür ederim.

http://s7.dosya.tc/server13/vpc359/deneme.rar.html

 

[turist]

Deneyin.

Private Sub CommandButton1_Click()
Set s1 = Sheets("ocak")
son = Cells(Rows.Count, 2).End(xlUp).Row
son1 = s1.Cells(Rows.Count, 1).End(xlUp).Row
s1.Range("C7:AG" & son1).ClearContents
For i = 3 To son
sat = Application.WorksheetFunction.Match(Cells(i, 3), s1.Range("A1:A" & son1), 0)
sut = Application.WorksheetFunction.Match(Cells(i, 2), s1.Range("A6:AG6"), 0)
s1.Cells(sat, sut).Value = "X"
Next i
End Sub

 

[maskcat]

Private Sub CommandButton1_Click()
Set s1 = Sheets("ocak")
son = Cells(Rows.Count, 2).End(xlUp).Row
son1 = s1.Cells(Rows.Count, 1).End(xlUp).Row
s1.Range("C7:AG" & son1).ClearContents
For i = 3 To son
sat = Application.WorksheetFunction.Match(Cells(i, 3), s1.Range("A1:A" & son1), 0)
sut = Application.WorksheetFunction.Match(Cells(i, 2), s1.Range("A6:AG6"), 0) 'Burda hata verdi'
s1.Cells(sat, sut).Value = "X"
Next i
End Sub

 

[turist]

Kodlar, eklediğiniz dosyanın sayfa biçimine göredir.
Sayfa düzeninde değişiklik olup olmadığını kontrol edin.

Sayfa ismi, kod içinde Sheets("ocak") olarak belirlenmiştir.
Sayfa isminin doğruluğunu kontrol edin.

sut=... satırındaki hata için:
Aranan tarih, sayfada yoksa hata verir, tarihleri kontrol edin.

 

[maskcat]

Kontrol ettim hocam olmadı malesef, ek te gönderdiğim dosyayla herşey aynı bir değişiklik yapmadım zaten

 

[turist]

"Sayfa40" isimli sayfanın B sütunundaki tarihler, "tarih formatında değil.(başında "^" işareti var)
Tamamını silerek Tarih olarak girip deneyin."ocak" sayfasında C6:AG hücrelerinde yazıldığı gibi olmalıdır.