Meslek liseleri için yapılan bir çalışma yardımcı olursanız sevinirim

[sanal33]

Yardımlarınızı benden esirgemezseniz sevinirim.TEŞEKKÜRLER

 

[Levent Menteşoğlu]

Aşağıdaki kodu thisworkbook kod sayfasına kopyalayın. Her öğrenciye ait sayfadaki I sütununa notları yazdığınızda kendiliğinden TEMRİN NOTLARI sayfasına aktarılacaktır.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [I5:I20]) Is Nothing Then Exit Sub
sat = WorksheetFunction.Match([c2], Sheets("TEMRİN NOTLARI").[c:c], 0)
sut = WorksheetFunction.CountA(Sheets("TEMRİN NOTLARI").Range("s" & sat & ":u" & sat)) + 19
Sheets("TEMRİN NOTLARI").Cells(sat, sut) = Target
End Sub

 

[sanal33]

Arkadaşım kod sayfaları yakkında fazla bilgim yok.Bu konuda biraz daha yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Alt+F11 ile VB editörünü açın açılan sayfanın sol üst köşesinde "thisworkbook" yazan yeri çift tıklayın, açılan boş sayfaya yukarıda verdiğim kodu kopyalayın ve kaydedip VB editörünü kapatın.