Hücre içine karakter ekleme/E-fatura no

[mehmetmet]

İyi günler;

E-fatura numarası 16 hane olmak durumunda. İlk 3 karakter firma ünvanının kısaltması, sonraki 4 yıl ve son olarak kalan 9 karakter ise fatura nosu şeklinde kodlanmıştır. Örnek olarak EXC2014000012345 şeklindedir.
Şimdi sorum ise veri girişi yapan arkadaşlar başına ve sonuna dikkat ederek girişlerini yapıyorlar ama ortada kalan sıfırları ihmal etmiş oluyorlar. Bunun için sizden bir fomül yardımı ile bu işi nasıl yaptırabiliriz öğrenmek istiyorum.

Açıklama daha net olması için:
Gelen fatura nosu EXC2014000012345
Veri girişi esnasındaki kayıt EXC20140012345
“2014” ten sonra kalan karakterleri dokuza tamamlayacak şekilde baş tarafına ‘0’ yazılması gerekir.
Yardımlarınız için şimdiden teşekkürler.

 

[mehmetmet]

Bu konu hakkında yardımcı olabilecek birileri var mıdır?

 

[hamitcan]

Fatura numarasının A1 hücresinde olduğunu varsaydım.
Fatura numarasını bu şekilde (EXC20140012345) girdiğinizde bu hale (EXC2014000012345) dönüştürür.

=SOLDAN(A1;3)&YIL(ŞİMDİ())&YİNELE(0;9-UZUNLUK(TOPLA(PARÇAAL(A1;8;UZUNLUK(A1)))))&TOPLA(PARÇAAL(A1;8;UZUNLUK(A1)))

 

[Erdem Akdemir]

Merhaba,

Makro ile alternatif, A sütununa göre ayarlı

Target.Column <> 1'daki 1 sayısını sütun numarasına göre değiştirebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
a = Left(Target, 7)
b = CLng(Mid(Target, 8, 99))
c = Len(b)
d = 16 - (Len(a) + c)
e = String(d, "0")
Target = a & e & b
Application.EnableEvents = True
End Sub

 

[mehmetmet]

Elinize sağlık çok teşekkürler...