خطا در دو یوزرفرم ....کمک

[ACE]

سلام:
دوستان یک فایل ضمیمه کردم که توی اون با دو تا فرم اطلاعات ثبت و بازخوانی می شوند
با یوزر فرم 1 ثبت می شوند
با یوزر فرم 3 بازخوانی می شوند
در واقع یوزر فرم 1 با اختصاص دادن شماره عضویت و ضمیمه کردن عکس آنها را در شیت مشخصات ثبت می کنه حالا اینجا دو تا مشکل وجود داره
1-اطلاعات رو پشت سر هم در شیت ذخیره نمی کنه یعنی اینکه اطلاعات نفر دوم رو روی اطلاعات نفر اول ثبت می کنه
2-اطلاعات قسمت شهریه باید در شیت شهریه ثبت بشوند (با توجه به شماره عضویت هر شخص)
در یوزرفرم 3 با وارد کردن شماره عضویت بصورت اتوماتیک عکس رو از داخل پوشه Pic بر می دارد و ماباقی اطلاعات رو نیز از شیت مشخصات وارد می کند اینجا هم دو تا مشکل وجود داره
1-اطلاعات قسمت شهریه باید از شیت شهریه با توجه به شماره عضویت بازخوانی شوند
2-در موقع باز کردن یوزرم فرم3 شیت اکسل بسته می شود در صورتیکه این کد رو احتیاج ندارم لطفا حذف شود
در ضمن در یوزرفرم 3 کلید چاپ گذاشتم که می خوان از فرم با اطلاعات فراخوانی شده پرینت بگیره لطفا اون رو هم بررسی نمایید

لازم بذکر است کلیه این کدها زحمت و لطف اساتید محترم همین انجمن است...که جا داره تشکر فراوان داشته باشم از همه عزیزان

[iranweld]

با سلام
برای حل مشکل اول کدهای ذیل را جایگزین کنید(در قسمت ذخیره)

Private Sub ÐÎíÑå_Click()

Sheet1.Select
Range("C1").Select
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then
Z = ActiveCell.Row
End If
Loop Until ActiveCell.Value = ""


Range("A" & Z).Formula = Z - 2
Range("b" & Z).Value = J_TODAY(1)
Range("i" & Z).Value = TextBox2.Value
Range("c" & Z).Value = TextBox1.Value
Range("d" & Z).Value = TextBox3.Value
Range("e" & Z).Value = TextBox7.Value
Range("g" & Z).Value = TextBox6.Value
Range("f" & Z).Value = TextBox5.Value
Range("m" & Z).Value = TextBox4.Value
Range("h" & Z).Value = TextBox14.Value
Range("n" & Z).Value = TextBox11.Value
Range("o" & Z).Value = TextBox10.Value
Range("p" & Z).Value = TextBox9.Value

End Sub 

[ACE]

با سلام
برای حل مشکل اول کدهای ذیل را جایگزین کنید(در قسمت ذخیره)

Private Sub ÐÎíÑå_Click()

Sheet1.Select
Range("C1").Select
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then
Z = ActiveCell.Row
End If
Loop Until ActiveCell.Value = ""


Range("A" & Z).Formula = Z - 2
Range("b" & Z).Value = J_TODAY(1)
Range("i" & Z).Value = TextBox2.Value
Range("c" & Z).Value = TextBox1.Value
Range("d" & Z).Value = TextBox3.Value
Range("e" & Z).Value = TextBox7.Value
Range("g" & Z).Value = TextBox6.Value
Range("f" & Z).Value = TextBox5.Value
Range("m" & Z).Value = TextBox4.Value
Range("h" & Z).Value = TextBox14.Value
Range("n" & Z).Value = TextBox11.Value
Range("o" & Z).Value = TextBox10.Value
Range("p" & Z).Value = TextBox9.Value

End Sub 

[ATTACH=CONFIG]9085[/ATTACH]

سلام استاد:
ممنون ...استاد برای اطلاعاتت پائین فرم که بایددر شیت شهریه ثبت شوند چکار باید کرد؟چون موقع ذخیره کردن یکسری اطلاعات باید در شیت شهریه ثبت بشه...

[iranweld]

با سلام

کدهای اصلاح شده برای ذخیره در دو شیت مورد نظر

Private Sub zakhireh_Click()

Application.ScreenUpdating = False

'============ برای شیت بازیکن ها  ====='

Sheet1.Select
Range("C1").Select
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then
Z = ActiveCell.Row
End If
Loop Until ActiveCell.Value = ""


Range("A" & Z).Formula = Z - 2
Range("b" & Z).Value = J_TODAY(1)
Range("i" & Z).Value = TextBox2.Value
Range("c" & Z).Value = TextBox1.Value
Range("d" & Z).Value = TextBox3.Value
Range("e" & Z).Value = TextBox7.Value
Range("g" & Z).Value = TextBox6.Value
Range("f" & Z).Value = TextBox5.Value
Range("m" & Z).Value = TextBox4.Value
Range("h" & Z).Value = TextBox14.Value
Range("n" & Z).Value = TextBox11.Value
Range("o" & Z).Value = TextBox10.Value
Range("p" & Z).Value = TextBox9.Value

'============ برای شیت شهریه ====='

Sheet2.Select
Z = 0
Range("a1").Select

Do
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then
Z = ActiveCell.Row
End If

Loop Until ActiveCell.Value = ""

Range("A" & Z).Value = TextBox1.Value
ActiveCell.Offset(, 1).Value = TextBox15.Value
ActiveCell.Offset(, 2).Value = TextBox16.Value
ActiveCell.Offset(, 3).Value = TextBox17.Value
ActiveCell.Offset(, 4).Value = TextBox18.Value
ActiveCell.Offset(, 5).Value = TextBox19.Value
ActiveCell.Offset(, 6).Value = TextBox20.Value
ActiveCell.Offset(, 7).Value = TextBox21.Value
ActiveCell.Offset(, 8).Value = TextBox22.Value
ActiveCell.Offset(, 9).Value = TextBox23.Value
ActiveCell.Offset(, 10).Value = TextBox24.Value
ActiveCell.Offset(, 11).Value = TextBox25.Value

Sheet1.Select

TextBox1.Value = Application.Max(Sheet1.Range("c:c")) + 1

End Sub 

[ACE]

ممنون استاد:
موارد بعدی رو میشه مثه همیشه لطف کنید...
ممنون

[ACE]

سلام:
ببخشید یه سر به ما هم بزنید....

[ACE]

باز هم نبود؟!!!

[ACE]

نیست ...نبود؟!!!

[ACE]

کسی نیست مرا یاری کند؟

[Ali Parsaei]

سلام،
سوالات عريض و طويل معمولا" کمتر پاسخ داده مي شوند!
يک گشتي تو سايت بزنيد متوجه صحت ادعاي من خواهيد شد!
متاسفم!
اگر بتوانيد مشکلاتتان را به تکه هاي کوچک (البته با فايلهاي نمونه کوچک و نه فايل اصلي) تنظيم و ارسال کنيد فکر نکنم براي دريافت پاسخ هيچ سوالي بيشتر از چند ساعت معطل شويد!

[ACE]

سلام،
سوالات عريض و طويل معمولا" کمتر پاسخ داده مي شوند!
يک گشتي تو سايت بزنيد متوجه صحت ادعاي من خواهيد شد!
متاسفم!
اگر بتوانيد مشکلاتتان را به تکه هاي کوچک (البته با فايلهاي نمونه کوچک و نه فايل اصلي) تنظيم و ارسال کنيد فکر نکنم براي دريافت پاسخ هيچ سوالي بيشتر از چند ساعت معطل شويد!

سلام:
استاد کلا همه زیر داستان میزنن
میگن تاپیک بزن ... می زنم جواب نمی دن
میگن توضیح ندادی و کلی می گی ... توضیخ می دم کی گن طویل بوده
...اصن یه وضعیه ....مهم نیست جواب ندادن....مگه چی میشه...هیچی.
دم همه با مرام های بی منت گرم...
روز و شبتون خوش