ایجاد دیتابیس نام و نام خانوادگی در صورت موجود نبودن در لیست

[emran_avaree]

باسلام خدمت دوستان بنده میخواستم فرم چک که برای بانک ملت تنظیم کردم رو بتونم در وجهه چک رو بصورت لیستی تهییه کنم که نخوام هر دفعه اون رو بنویسم یه جور لیست که امکان جستجو هم واسش گذاشتم... فقط در وجهه چک رو ممنون میشم دوستان راهنمایی کنن... اگه قبل اضافه کردن اسم در صورت موجود نبودن در شیت دوم بود یه سوال ذخیره شود یا خیر بیاد که عالی میشه...
فایل آپلود نمیشد توسایت مجبور شدم اینجا آپلود کنک ببخشید
دانلود:

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

شما میتوانید از همان قسمت دیتا ولیدیشن از ثبت اسمی که در لیست نیست جلوگیری بفرمایید

[emran_avaree]

بنده میخوام در صورت در لیست موجود نبودن سوال کنه که آیا میخواید به لیست اضافه کنه؟ و اتوماتیک با زدن دکمه yes یا save به لیست اضافه شه. نه با زدن دکمه ذخیره
فایل ویراش شده: chek melat.rar

[iranweld]

با استفاده از قابلیت رویدادها در صورت ورود یک اسم ، با لیست موجود چک شده و اگر در لیست وجود نداشته باشد اسم جدید ذخیره میگردد

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("f312")) Is Nothing Then
    
    z2 = Sheets("list").Cells(Sheets("list").Rows.Count, "A").End(xlUp).Row
    
    t = 0
    For i = 1 To z2
    
    If Sheets("chek").Range("f312") = Sheets("list").Range("a" & i) Then
    t = 1
    End If
    
    Next
    
    If t = 0 Then
    
    Sheets("list").Range("a" & z2 + 1) = Sheets("chek").Range("f312")
    
    End If
    
    
    End If
    
    End Sub