tarih olarak girilen veriyi sayı olarak alma tabloda ilgili kişiye göre tarihe ekleme

[afo1978]

liste ve liste 1'de kullanılan isimleri icmal'e aktaran (her isim bir kez kullanılacak şekilde) daha sonra liste ve liste 1'de bu isimlerin karşılarındaki tarihleri icmal'de bularak ilgili tarihlere adet olarak giren bir işlem yaptırmayı istiyorum.
yardımlarınız için şimdiden teşekkürler.

 

[nsertoglu]

İcmal sayfası oluşturmak

Aşağıdaki kodu deneyiniz:

Sub mhkm_icmal()
shİc = "İcmal" ' dışındaki tüm sayfaları icmal'e taşır..

shc = Sheets.Count
For s = 1 To shc
Sheets(s).Select
If ActiveSheet.Name <> shİc Then
Cells(5, "b").Select
sonR = Selection.End(xlDown).Row
For r = 5 To sonR
Sheets(s).Select
Cells(r, "b").Select
tck = Cells(r, "b")
aic = Cells(r, "c")
ads = Cells(r, "d")
unv = Cells(r, "e")
dsn = Cells(r, "f")
trh = Cells(r, "g")
gun = Day(trh)
Sheets(shİc).Select
Cells(6, "b").Select
sonS = Selection.End(xlDown).Row
If sonS >= 21 Then sonS = 21

For i = 6 To sonS
If Cells(i, "b") = tck Then
Cells(i, 5 + gun).Select
Cells(i, 5 + gun) = Cells(i, 5 + gun) + 1
isl = 1 ' veri işlenmedi
Exit For
Else
isl = 0 ' veri işlenmedi
End If
Next i
yzR = 6
If isl = 0 Then
Sheets(shİc).Select
1 Cells(yzR, "b").Select
If Cells(yzR, "b") <> Empty Then
yzR = yzR + 1
GoTo 1
End If
Cells(yzR, "b") = tck
Cells(yzR, "c") = ads
Cells(yzR, "d") = unv
Cells(yzR, 5 + gun).Select
Cells(yzR, 5 + gun) = Cells(yzR, 5 + gun) + 1
isl = 1
End If
Sheets(s).Select
Next r
End If
Next s

End Sub

 

[muygun]

Merhaba;
Alternatif olsun.
Eki inceleyin.
İyi çalışmalar.
Not: sayfa adını "Liste 1" şekli yerine "Liste_1" şeklinde verin.

 

[afo1978]

arkadaşlar teşekkürler elinize sağlık