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

[komeilex]

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

loan.xlsm

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

[Javid Mokhtari]

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

loan.xlsm

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

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]

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