Bir alt satırın ilk hücresine otomatik geçmek

[orrhankaya]

Öğrenci notlarını giriyorum. En son notunun girdiğimde bir alt satıra yani sıradaki öğrenci satırına otomatik geçmesini istiyorum. Bunu nasıl yapacağım hususunda yardımcı olacaklara teşekkür ederim.

 

[Necdet]

Sayın orrhankaya,

Aşağıdaki kodları sayfanın kod bölümüne ekleyiniz.

a sütunu öğrenci notu, b sütunu adı ve soyadı, c sütunu ise not girişi olarak düzenlenmiştir.

Siz kendinize göre ayarlayabilirsiniz.
B sütununda proper yapıyor

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son

If Intersect(Target, [B:C]) Is Nothing Then Exit Sub

If Target <> "" And Target.Column = 2 Then Target = WorksheetFunction.Proper(Target)
If Target <> 0 And Target.Column = 3 Then Target.Offset(1, -2).Select
Son:
End Sub

 

[orrhankaya]

Kodu inceledim kendime uyarladım teşekkür ederim sayın Necdet Yesertener