Aynı Sayfada 2 Ayrı Sütuna, Birbirini İzleyen Sıra Numarası Verme

[tubish]

Merhaba arkadaşlar,

Aynı çalışma sayfasında, konu toplam 4 hücre ile ilgili;

A (Sıra)-B (Açıklama) (Gelen Evrak)

E (Sıra)-F (Açıklama) (Giden Evrak)

B ve F hücrelerine herhangi veri girişi yapıldığında A ve E hücrelerine sıra numarasını otomatik verecek bir buton oluşturmak istiyorum. Yanlız A ve E sütunlarındaki sıra numaraları birbirini takip etmeliler. Yardımlarınız için şimdiden teşekkür ederim.

Mümkünse bu verilen sıra numaralarına ait format; ggaayyyy(tarih)-12345(sıra) şeklinde olursa çook iyi olur.

Kullandığım Office 2003
Saygılarımla,

 

[Necdet]

Merhaba,

Satır atlayarak yazılmayacağı düşüncesiyle aşağıdaki kodları geliştirdim.
İlgili sayfanın kod bölümüne kopyalayıp deneyiniz.

B ve F sütununa veri girildiğinde sıra numarası verecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [B:B, F:F]) Is Nothing Then Exit Sub
If Target.Row < 3 Then Exit Sub
Target.Offset(0, -1) = Format(Date, "ddmmyyyy") & "/" & Format(Target.Row - 2, "000")
Son:
End Sub

 

[tubish]

Nejdet Bey ilginiz ve yardımınız için çok teşekkür ederim. Düzenleme bence kısa, öz ve tam da istediğim türden birşey olmuş.

Fakat vermiş olduğunuz kodu uyguladığımda olan şu;

B sütunununa veri girişi yaptığımda A sütununa birbirini izleyen, F sütununa veri girişi yaptığımda ise E sütununa birbirini izleyen sıra numarası veriyor.

Benim tam olarak söylemeye çalıştığım şey ise;

B ve F sütununa veri girişi yapıldığında, A ve E sütunlarına birbirini takip eden sıra numarası vermesi. Yani B sütununa veri girdiğimde A sütunundaki numara "24072011/001" iken F sütununa veri girdiğimde E sütunundaki numara "24072011/002" olmalı. Çünkü bu numaralar evrak kayıt defterine sıralı bir şekilde işlenmesi gerekiyor.

Umarım bu defa ne istediğimi tam olarak ifade etmeye çalışabilmişimdir. İlginiz ve yardımınız için teşekkür ederim.

 

[tubish]

Merhaba,

Uzman arkadaşlardan destek bekliyorum. Herkese selamlar.

 

[Necdet]

Merhaba,

Sorunuzu ilk sorduğunuzda açıklayıcı şekilde sorsaydınız, bu gereksiz yazışmalar olmazdı.

Aşağıdaki kodları yine ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SonSat  As Long
Dim SonNo   As Long
On Error GoTo Son
If Intersect(Target, [B:B, F:F]) Is Nothing Then Exit Sub
If Target.Row < 3 Then Exit Sub
SonSat = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
SonNo = Evaluate("=COUNTA(B3:B" & SonSat & ",F3:F" & SonSat & ")")
Target.Offset(0, -1) = Format(Date, "ddmmyyyy") & "/" & Format(SonNo, "000")
Son:
End Sub

 

[tubish]

Şu an denedim süper çalışıyor. Aman nazar değmesin Ellerinize sağlık. Teşekkür ederim.

 

[Necdet]

Şu an denedim süper çalışıyor. Aman nazar değmesin Ellerinize sağlık. Teşekkür ederim.

Güle güle kullanınız