ثبت وام گیرندگان

[komeilex]

با سلام. آقا من یه فایل آماده کردم ینی یکی از کابرا ازم پرسیده و من براساس سوال ایشون فایل زیر رو آماده کردم.
یه فرآیند قرعه کشی ترتیب دادم و حالا می خوام قرعه به نام هرکی افتاد و وام رو برنده شد رو بروش تو ستون loan ثبت شه و دفعه بعد که قرعه کشی میشه مشخص باشه که این فرد وام گرفته.

loan.xlsm

[Javid Mokhtari]

با سلام. آقا من یه فایل آماده کردم ینی یکی از کابرا ازم پرسیده و من براساس سوال ایشون فایل زیر رو آماده کردم.
یه فرآیند قرعه کشی ترتیب دادم و حالا می خوام قرعه به نام هرکی افتاد و وام رو برنده شد رو بروش تو ستون loan ثبت شه و دفعه بعد که قرعه کشی میشه مشخص باشه که این فرد وام گرفته.

[ATTACH]4508[/ATTACH]

با سلام.
برادر یه نمونه میزارم و از اونجایی که خودتون استادین ریزه کاریا و ویرایش با خودتون.

Application.ScreenUpdating = False
a:
loan = WorksheetFunction.RandBetween(1, 9)
If Columns("A:A").Find(What:=loan, LookAt:=xlWhole, MatchCase:=True).Offset(0, 2).Value = "" Then
    Columns("A:A").Find(What:=loan, LookAt:=xlWhole, MatchCase:=True).Offset(0, 2).Value = "Winer"
Else
    GoTo a:
End If 

البته هرچه از تعداد افراد کم میشه پروسه عملیاتش هم بیشتر میشه.

[komeilex]

دست شما درد نکنه آقا جاوید. ما همیشه در جوار شما داریم درس پس میدیم.
فقط فک کنم جای خط دوم و سوم کدتون باس عوض شه. ینی a بره بالای loan = WorksheetFunction.RandBetween(1, 9)k

در کل خیلی ممنون. لطف کردین.

[Javid Mokhtari]

حالا هی میگم خودتون استادین قبول نمی کنید ...