Çözüldü Otomatik kod numarası ve bugün tarihini texboxt'a getirmek

[ERKAN YILMAZ]

Merhaba,

1. Ek'te göndermiş olduğum dosyada Ödenmez Giriş Ekranı formunda her kayıt için otomatik kod verilmesini istiyorum. Mesela ilk yeni kayıt attık (000001) gibi tabi yapacağız kayıtları ödenmez data sayfasına kayıt edeceğiz ama benim ayarlar sayfam var oradan da referans olarak kullanabiliriz. Bütün diğer personel ve stok kodlarını oradaki verilere göre atıyor.

2. Ayrıca Ödenmez giriş Ekranı formunda bulunan textbox150 ye bugünün tarihi ne ise onun gelmesini istiyorum.

Konuyla ilgili desteklerinizi rica ederim.

Şimdiden teşekkür ederim.

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

 

[asi_kral]

Merhaba
Userformun unitalize bölümüne
Kayıt kodunun textbox1 olduğu varsayilmistir.
1. Alternatif ( son satır kaydının bir numara üstünü sıra no olarak verir )
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

2. Alternatif ( Sıra numaralarınızın A sütununda olduğu varsayilmistir )
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

2. Sorunuz için ise
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Şeklinde deneyebilirsiniz.

Not 1: Kodlar ezber yazılmıştır. Harf eksikliği var ise PC basindaki arkadaşlar tamamlayabilir mi?
Not 2 : İki kodu da userformun unitelize olayına yazmalısınız.

 

[askan]

Merhaba
Userformun unitalize bölümüne
Kayıt kodunun textbox1 olduğu varsayilmistir.
1. Alternatif ( son satır kaydının bir numara üstünü sıra no olarak verir )
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

2. Alternatif ( Sıra numaralarınızın A sütununda olduğu varsayilmistir )
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

2. Sorunuz için ise
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Şeklinde deneyebilirsiniz.

Not 1: Kodlar ezber yazılmıştır. Harf eksikliği var ise PC basindaki arkadaşlar tamamlayabilir mi?
Not 2 : İki kodu da userformun unitelize olayına yazmalısınız.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

olacak galiba kod 2. satırdan başlıyor. Diğerleri doğrudur hocam

 

[ERKAN YILMAZ]

Merhaba Üstadlar,

İlgili sorumu tamamlarsanız sevinirim.

 

[ERKAN YILMAZ]

Merhaba,

1. Ek'te göndermiş olduğum dosyada Ödenmez Giriş Ekranı formunda her kayıt için otomatik kod verilmesini istiyorum. Mesela ilk yeni kayıt attık (000001) gibi tabi yapacağız kayıtları ödenmez data sayfasına kayıt edeceğiz ama benim ayarlar sayfam var oradan da referans olarak kullanabiliriz. Bütün diğer personel ve stok kodlarını oradaki verilere göre atıyor.

2. Ayrıca Ödenmez giriş Ekranı formunda bulunan textbox150 ye bugünün tarihi ne ise onun gelmesini istiyorum.

Konuyla ilgili desteklerinizi rica ederim.

Şimdiden teşekkür ederim.

 

[arschimet]

Merhaba,

1. Ek'te göndermiş olduğum dosyada Ödenmez Giriş Ekranı formunda her kayıt için otomatik kod verilmesini istiyorum. Mesela ilk yeni kayıt attık (000001) gibi tabi yapacağız kayıtları ödenmez data sayfasına kayıt edeceğiz ama benim ayarlar sayfam var oradan da referans olarak kullanabiliriz. Bütün diğer personel ve stok kodlarını oradaki verilere göre atıyor.

2. Ayrıca Ödenmez giriş Ekranı formunda bulunan textbox150 ye bugünün tarihi ne ise onun gelmesini istiyorum.

Konuyla ilgili desteklerinizi rica ederim.

Şimdiden teşekkür ederim.

Merhabalar,
ÖdenmezSatisEkranı userformunuzun açılışına;
Ödenmez/İkram Kayıt No textboxına(textbox15), ÖdenmezKayıt sayfanızın "A" sütununda bulunan "Ö0001" ile başlayıp artarak devam eden kayıt numaralarından devam eden kayıt numarası otomatik olarak gelmektedir.
Bunun yanında textbox150 (Kayıt Tarihi) de günün tarihi olarak gelmektedir.
Dosyanız ektedir,
İyi günler.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[ERKAN YILMAZ]

Merhabalar,
ÖdenmezSatisEkranı userformunuzun açılışına;
Ödenmez/İkram Kayıt No textboxına(textbox15), ÖdenmezKayıt sayfanızın "A" sütununda bulunan "Ö0001" ile başlayıp artarak devam eden kayıt numaralarından devam eden kayıt numarası otomatik olarak gelmektedir.
Bunun yanında textbox150 (Kayıt Tarihi) de günün tarihi olarak gelmektedir.
Dosyanız ektedir,
İyi günler.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Merhaba Üstadım,

Yukarıda ki kod da bir kaç değişiklik yaptım, referans olarak ödenmez kayıt sayfamda bulunan sayıları almaması gerekiyor, ayarlar sayfamda ki D sütununda ki koda göre ekleme yapması gerekiyordu ancak söylediğim gibi ben kodda değişiklik yaptım ama direk 0002 ile başlıyor yani beceremedim.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[excelcan]

Dosyaya bakmadım.
Burdan kaynaklı.
kayitno = Format(x + 1, "ÖK" & "0000") değil
kayitno = Format(x , "ÖK" & "0000") biçiminde olmalı.

 

[arschimet]

Dosyaya bakmadım.
Burdan kaynaklı.
kayitno = Format(x + 1, "ÖK" & "0000") değil
kayitno = Format(x , "ÖK" & "0000") biçiminde olmalı.

Merhaba sayın excelcan,
Hata kodun o kısmından kaynaklı değil, x = sütundaki en büyük değerin 1 fazlası olacak, yani ÖK0015 var ise, yeni kayıt numarası ÖK0016 olacak şekilde hesaplanacak.

Hata ilk değeri alırken yaşanıyor, çünkü ilk değeri 1 olarak algılıyor, bu durumda kodda şu şekilde bir iyileştirme yapsak, sanırım problem çözülecektir.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[arschimet]

Dosyanızın ayarlar sayfasından besleneceği şekilde düzenlenmiş hali ektedir.
İyi günler.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[ERKAN YILMAZ]

Merhaba,

Excel sayfasında işaretlediğim yeri 0 yapmama rağmen ve aşağıda ki kod da değişiklik yapmama rağmen ekran görüntüsünde de görüldüğü üzere hala kod 2 olarak geliyor.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[arschimet]

Erkan Bey tekrar merhaba,
Hata tamamen benim dikkatsizliğimden kaynaklı, cells(i,1) yazmışım koda, oysaki "D" sütunu için cells(i,4) olarak yazmam gerekirdi.
Kodları aşağıdaki şekliyle denerseniz sanırım olacaktır.
İyi akşamlar.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[ERKAN YILMAZ]

Tamam Üstadım,

Çok teşekkür ederim . Hallettim.