Sıra ile numaralandırma

[LeVeLuP]

numara vereceğim satırlar boş.
örn.368.satırdaki evrağın karşısındaki satıra 1 diyeceğim
250.satıra 2
159.satıra 3(hangi satırdakine hangi no vereceğim işlemin gelmesine göre.bi kere no verilince sıralı devam edecek).
yani no vermek için geleceğim satıra geldiğimde noyu kendi yazacak.
numaralandırmayı sırayla yapacak ben takipten kurtulacağım.
böyle bi şey yapılabilir mi?
yardımlarınızı bekliyorum

 

[Levent Menteşoğlu]

Numara yazılacak sütun hangi sütundur? Sıra no vereceğiniz satırlar peryodik olarakmı gidiyorlar?

 

[LeVeLuP]

Numara yazılacak sütun hangi sütundur? Sıra no vereceğiniz satırlar peryodik olarakmı gidiyorlar?

a sütunu numaralandırılacak.
a sütunu boyunca kayıt yok.
işleme alınacak a sütunundaki satıra numara verilecek.
evrağın bazı işlemlerden dönüşüne göre.
(örn.a128 15 noyu alacak, 16 yı a117).

 

[Levent Menteşoğlu]

Bunun için size iki kod öneriyorum. Birincisi A sütununda sıra no vermek istediğiniz hücreyi çift tıklayınca noyu yazmaktadır. İkincisi ise hücreyi seçtiğiniz anda yazacaktır. Kodlar sayfanın kod sayfasına kopyalanmalıdır. (sayfa adının üzerine sağ-klik yaparak kod görüntüleyi tıklayın ve verdiğim kodları bu açılan sayfaya kopyalayın.

[vb:1:dd1e536272]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(ActiveCell, [a:a]) Is Nothing Then Exit Sub
ActiveCell = WorksheetFunction.CountA([a:a]) + 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [a:a]) Is Nothing Then Exit Sub
ActiveCell = WorksheetFunction.CountA([a:a]) + 1
End Sub
[/vb:1:dd1e536272]

 

[Merhum İdris SERDAR]

Formülle örnek dosya ekte.

 

[LeVeLuP]

hocam öncelikle teşekkürler.
hücreye çift tıklayarak kullanımı tercih ettim.
öbürünü kaldırdım.çünkü hücreye yanlışlıkla gelsem no verecek.görmezsem eğer hatalı no landırma olacak.
makro iyi çalışıyorda neden 185 den başladığını anlamadım.
benim şu an son numaram 9238
bundan sonra vereceğimin 9239 olması gerekmez mi?

ilgin için çok tekrar teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Levent beyin kodunu aşağıdaki gibi değiştiriniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(ActiveCell, [A:A]) Is Nothing Then Exit Sub
ActiveCell = WorksheetFunction.Max([A:A]) + 1
End Sub

 

[LeVeLuP]

sn.yurttaş ilgin için teşekkürler.
evraklar kayıt oluyor sonra istediğim satıra son numarayı veriyorum.
sizin örnekte ise sıralı bi şekilde numaralandırma var

levent hocamın makrosu tam istediğim gibi ama boş bir excel sayfasında numaralandırma 1 den başlıyor ama benim kullandığımda ise 185 ten bunu anlayamadım.

 

[LeVeLuP]

oldu yaşasınnnn
gerçekten hepiniz müthişsiniz.
valla inanamıyorum.bu ilgi ve cevaplandırmanıza

daha önce bu foruma katılmadığım için yuh bana.
syn.costkontrol sizin verdiğinizle oldu.
kendim yazarak rakamı girsem daha sonra başka satırda çift tıklayınca
oradan devam ediyor.

burası harbiden paylaşım platformuşmuş.herkese tavsiye edeceğim.
sağolunnnnnnnnnn.