Otomatik Numara verme (farklı)!

[tirEdsOuL]

Merhabalar.. forumda arattırdım ama hep aynı cevaplarla karşılaştığım için yeni konu açıyorum..

A sütununda Arşiv numaram var ve bu numara her alt satıra geçtiğimde bir artması gerekiyor.. ben bunu manuel olarak iki hücreyi seçerek aşağıya doğru çekerek yapıyorum..

sıkıntım ise forumda anlatılan kodlar, hep A2 hücresinden başlayarak 1'den alınan numaralar.. ama benim arşiv numaram şuanda 3000 küsürlerde ve buna devam etmek istiyorum..

yardımcı olursanız sevinirim.. Office 2007 kullanıyorum..

 

[uzmanamele]

merhaba

sitede bulduklarınızı kendi çalışmanıza adapte edememişseniz söylediğimiz formülüde yazamayabilirsiniz.
en iyisi örnek dosya ekleyin, dosya üzerinden çözüm arayınız.

 

[tirEdsOuL]

normalde formülleri ve macroları ekleyebiliyorum çalışma kitabına ama bulduklarım işimi görmedi..

neyse dosya ektedir..

144. satırdaki F sütunundaki 4vs'yı enterladığımda 145. satırda A sütununa 3644 numarasını vermeli..

 

[uzmanamele]

merhaba

bu işinizi görür mü?

A2 hücreye yazın ve sütün boyunca kopyalayınız

=EĞER($B2="";"";SATIRSAY($A$2:A2)+3500)

 

[tirEdsOuL]

muhtemelen denemişsinizdir ama ben A2 hücresine kopyaladığımda $NAME ibaresi çıkıyor.. çalışmıyor yani :/

 

[uzmanamele]

muhtemelen denemişsinizdir ama ben A2 hücresine kopyaladığımda $NAME ibaresi çıkıyor.. çalışmıyor yani :/

merhaba
denemedim, gerekte görmedim.
$NAME hatası alıyorsanız excel sürümünüz ecnebice demektir,
profilinizde excel 2003 TR yazıyor.

 

[tirEdsOuL]

evet profilimde 2003 yazdığı için bende mesajın içeriğinde belirtmiştim Office 2007 diye ellerinize sağlık otomatik numara olmuş ama benim dediğim alta yeni numara vermesi.. yani ilk önce numara çıkacak sonra yanına tarihi bilgileri vs.. gireceğim.. bunda bilgileri girdikten sonra en son aynı satıra numarayı veriyor..

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [f:f]) Is Nothing Then Exit Sub
Target.Offset(1, -4).Select
Target.Offset(1, -5) = Target.Offset(0, -5) + 1
End Sub

 

[tirEdsOuL]

çok teşekkür ederim, istediğim tam olarak buydu.. sağol..

 

[tirEdsOuL]

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

buradaki [f:f] alanına b,c,d,e sütunlarını da ekleyebilirmiyiz peki ? yani f sütununa herhangi bir bilgi girmezsem al satıra numarayı vermeyecek.. ben aralarına virgül koyarak denedim ama olmadı