Otomatik Numara verdirmek??

[udentr2002]

merhaba sayın hocalarım; ekli dosyadada anlatmaya çalıştım

Userformdan bu sayfa1'e veri giriyorum Kontrol No bölümünün kendiliğinden numara vermesi lazım öncelikle Kontrol No yu anlatayım sana mesala 2007010001 numarasındaki 2007 yılı göstermekte 01, 1. ay olduğunu göstermekte 0001 ise sayaç bölümüdür Biz tarih bölümüne giriş yaptığımızda mesala 01.01.2007 yazdığımda ordan yılı ve ayı alıp yani 2007 ve 01 'i alıp sayaç bölümünü ise Sayfa 1'de daha önce verilmiş olan en son sayaç numarasını bir arttırıp bu aldığı yılı, ayı ve bir arttırdığı sayaç numarasını birleştirip Kontrol numarasına yazmalı bunun için nasıl bir kod yazabilirim yardımcı olursanız çok sevinirim

 

[udentr2002]

???

Yardım edebilecek bir hocam yokmu lütfen makbule geçecektir Şimdiden ilgilenen arkadaşlarıma teşekkür ederim

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

TextBox3 = [c65536].End(3) + 1

 

[udentr2002]

Sayın Hocam

Yanlış anladınız galiba orda kontrol numarası verirken dikkate alınması gereeken noktalar var yukarıdaki ilk gönderdiğim yazıyı okursanız şöyle anlatayım Kontrol numarası 2007010001 olan bir malzemedeki açıklama şudur 2007 girdiğimiz yılı gösteriyor, 2007 nin ardından başlayan 01 rakamları ise giriş yaptığımız ayı gösteriyor yani 1. ayı ardından devam eden 0001 rakamları ise sayaç numaralarıdır Kısaca biz tarih bölümüne 01.01.2007 yazdığımızda Kontrol bölümüne yılı yani 2007 'yi alacak ardına Tarih bölümüne girdiğimiz ayı yani 01 rakamlarını alacak Sayaç bölümüne ise Sayfa 1 e giriş yaptığımızdan dolayı en son sayacı bir arttırıp yazacak yani 2007010001 yazacak diyelimki 05.01.2007 yılında bir giriş daya yaptık bu defa kontrol numarası 2007010002 olacak eğer diyelimki giriş tarihimiz 2. aydan başlıyorsa yani 01.02.2007 ise kontrol numarası gelip 200702003 olacak. Kısacası Giriş tarihindeki yılı, ayı alıp birleştirecek ve en son sayaç numarsını ise bir arttıracak inşallah anlatabilmişimdir Şimdiden teşekkür ederim hocam tekrar bakarsanız ve cevap ve rirsenişz çok sevinirim

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

TextBox3 = Format(TextBox1, "yyyymm") & Format([c65536].End(3).Row - 1, "0000")

 

[udentr2002]

levent hocamm

Çok teşekkür ederim emeğinize ve bilginize sağlık Allah razı olsun

 

[Seyit Tiken]

Ekli dosyayı inceleyip, kendinize revize ediniz.

 

[udentr2002]

Sn Hocam

Leventm in gönderdiği kodu baz alırsak eğer ordaki [c65536] bölümündeki c stünü hangi sayfayı baz alıyor yani ben kendi formuma uygulayacağım zaman sayaç numaralarını hangi sayfayı baz alarak artıracak açıklarsanız çok sevinirim

 

[udentr2002]

???

Hocam kodunuz çalışıyor istediğim şekilde ancak sayaç arttırmayı yapabilmek için yani c stünündaki sayacı bir arttırmak için kodun baktığı sayfayı nasıl belirtmem lazımm??

 

[emrexcel123]

sheets

kodun başına şunu ekle >>
sheets("sayfa ismin").select...

 

[udentr2002]

hocam

teşekkürler saol