Sicil Numarası Verdirme

[iplikci_80]

Arkadaşlar bu çalışmada VERİ TABANI sayfasının B5 hücresinden başlamak üzere veri girildiğinde A5 sütunundan itibaren 1 den başlamak üzere sicil numarası verdiren bir kod mevcut. Benim yapmak istediğim şey sicil numarası verilmiş olan örneğin B5 hücresine F2 girdiğimde sanki yeni değer girilmiş gibi mevcut olan sicil değişiyor. Bunun önlenmesi hususunda yardımlarınızı rica ediyorum.

http://s7.dosya.tc/server13/upbiid/Kitap1.rar.html

 

[iplikci_80]

Arkadaşlar yardımlarınızı bekliyorum lütfen.

 

[iplikci_80]

Arkadaşlar yardımlarınızı rica ediyorum.

 

[PLİNT]

Merhaba
Private Sub Worksheet_Change(ByVal Target As Range) başlığı altında bulunan

If Target.Column = 2 And Target.Row > 4 Then satırını

If Target.Column = 2 And Target.Row > 4 And Target.Row = Cells(Rows.Count, "A").End(3).Row + 1 Then

şeklinde değiştirirseniz, "B" sütunundaki ilk boş hücreye yazmadıkça "A" hücresi değişmeyecektir.

 

[iplikci_80]

Sayın Plint ilginize teşekkür ederim.