پرسش کد 5 رقمی

[mona71]

سلام و عرض ادب
من یه فایل دارم که برای اون از کد های 5 رقمی استفاده میکنم بر فرض کدم از 10000 شروع میشه بعد بخاطر اینکه کد های تکراری استفاده نکنم می خوام یک فایل اکسل داشته باشم که شیت اولش فقط یه قسمت داشته باشه بنام درخواست کد و با کلیک کردن روی اون اکسل کد جدید رو بهم نمایش بده و این کد ها هر بار ک نمایش میده ذخیره بشه تو شیت دیگه و امکان تکرار نداشته باشه یعنی با هر بار کلیک کردن روی قسمت درخواست بارکد یک بارکد جدید بده و همون و سیو کنه و یک عدد یک عدد جلو بره

برای مثال با زدن کلیک درخواست کد سیستم ب من کد 10002 رو نشون بده و همون موقع این کد رو ذخیره کنه و بار بعد ک من کلیک کنم کد 10003 رو نشون بده کسی میتونه تو فرمول نویسی این روش کمکم کنه ممنون میشم

[ali.b]

سلام و عرض ادب
من یه فایل دارم که برای اون از کد های 5 رقمی استفاده میکنم بر فرض کدم از 10000 شروع میشه بعد بخاطر اینکه کد های تکراری استفاده نکنم می خوام یک فایل اکسل داشته باشم که شیت اولش فقط یه قسمت داشته باشه بنام درخواست کد و با کلیک کردن روی اون اکسل کد جدید رو بهم نمایش بده و این کد ها هر بار ک نمایش میده ذخیره بشه تو شیت دیگه و امکان تکرار نداشته باشه یعنی با هر بار کلیک کردن روی قسمت درخواست بارکد یک بارکد جدید بده و همون و سیو کنه و یک عدد یک عدد جلو بره

برای مثال با زدن کلیک درخواست کد سیستم ب من کد 10002 رو نشون بده و همون موقع این کد رو ذخیره کنه و بار بعد ک من کلیک کنم کد 10003 رو نشون بده کسی میتونه تو فرمول نویسی این روش کمکم کنه ممنون میشم

سلام
خیلی ساده نوشتم صرفا فقط برای تولید اعداد
اگر غیر از این هست بیشتر توضیح بدین

Sub test()
Sheet1.Range("a1").End(xlUp) = "10000"
With Sheet1.Range("A65536").End(xlUp)
.Offset(1, 0) = Sheet1.Range("A65536").End(xlUp) + 1
End With
End Sub