Teklif Sıra No

[aydogankemal]

Merhaba,
Bir dosya hazırlıyorum, hazırladığım dosya da D sütununda parça kodları E sütununda açıklamalar var. (E sütunundaki açıklamalar bir kaç satır olabiliyor ama D sütununda her satırda parça numarası tekrar etmiyor) D sütununda eklenen her parça numarası için B sütununa sıra numarası verdirmek istiyorum. Yardımcı olacak var mı

 

[Orion1]

Sayfanın kod modülüne aşağıdaki kodu yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D13:D" & Rows.Count)) Is Nothing Then Exit Sub
Target.Offset(0, -2).Value = ""
If Target.Value = "" Then Exit Sub
Target.Offset(0, -2).Value = WorksheetFunction.Max(Range("B13:B" & Target.Row)) + 1

End Sub

 

[aydogankemal]

Command butona bağlayacağım ama bu şekli ile çalışmıyor

 

[Orion1]

Command butona bağlayacağım ama bu şekli ile çalışmıyor

D sütununa Parça no giriniz.
Hemen B sütununa anında sıra no verir.
Dosyanız ektedir.

 

[aydogankemal]

D sütununa Parça no giriniz.
Hemen B sütununa anında sıra no verir.
Dosyanız ektedir.

Teşekkür ederim hızır

 

[Orion1]

Teşekkür ederim hızır

Rica ederim.
İyi çalışmalar.