+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kaydettiğimde Farklı Kayıt ve Seri Numarası verilsin. (/konu-kaydettigimde-farkli-kayit-ve-seri-numarasi-verilsin.html)
Kaydettiğimde Farklı Kayıt ve Seri Numarası verilsin. - ahatbek - 05/08/2011
Selam ve saygılarımı ileterek herkese iyi geceler diliyorum.
Örnekteki çalışmada kaydettiğimde farklı kayıt ve seri numarasının verilmesini istiyorum.
Şimdiden teşekkür eder saygılarımı sunarim.
Cvp: Kaydettiğimde Farklı Kayıt ve Seri Numarası verilsin. - DUAYEN - 05/08/2011
Ne yapmak istediğinizi tam anlatırmısınız örneğinizde kayıt numarası birde etiket numarası var siz hangisine farklı kayıt seri numarası istiyorsunuz yani kayıt yaparken farklı kayıt numarasımı olsun istiyorsunuz.
Cvp: Kaydettiğimde Farklı Kayıt ve Seri Numarası verilsin. - ahatbek - 05/08/2011
İlginizden dolayı teşekkür ederim.
1- kayıt numarası 6 raklamdan oluşur ve başına üç harf gelecek.(herhangi bir harf olabilir) Öeneğin: AAA 000001 - AAA 000002 gibi.
2- Seri veya etiket numarası her veri kaydettiğimde Data3/C2 de gösterdiğim gibi sıra ile birer numara kullanacak. Bu seri bittiğinde ikinci seri numarayı D2 den kullanacak.
Saygılarımla...
Cvp: Kaydettiğimde Farklı Kayıt ve Seri Numarası verilsin. - DUAYEN - 05/08/2011
Tamam şimdi oldu en kısa zamanda döneceğim şimdilik iyi geceler.
Cvp: Kaydettiğimde Farklı Kayıt ve Seri Numarası verilsin. - ahatbek - 05/08/2011
Size de iyi geceler ve iyi sahurlar.
Cvp: Kaydettiğimde Farklı Kayıt ve Seri Numarası verilsin. - DUAYEN - 05/08/2011
Function Duzenle(ByVal Sayi As Double, ByVal Uzunluk As Long) As String
Parca = Mid(Str(Sayi), 2)
For T = 1 To Uzunluk
If Len(Parca) <> Uzunluk Then
Parca = "0" + Parca
End If
Next T
Duzenle = Parca
End Function