حل مشكلة كود ترحيل من نموذج ادخال الى صفحة أخرى بالملف

[HANI TAHER]

السلام عليكم 

اخوتي عندي مشكلة في الفيجول بيسك تبع الملف المرفق ولا ادري ماهو الخطا .... الرجاء منكم ان تعينوني على حل المشكلة .. 

شاكرا لكم تعاونكم

تــم تعديل عنوان المشاركة ليعبر عن طلبك

forms.xlsm

[Ali Mohamed Ali]

وعليكم السلام-يجب عليك جعل الكود هكذا .. وحاول معرفة الفرق البسيط والإضافة السهلة بين كودك وهذا الكود بارك الله فيك

Private Sub CommandButton1_Click()
Dim Lrow  As Integer
Lrow = Sheets("data").Range("b10000").End(xlUp).Row + 1
Sheets("data").Cells(Lrow, "b").Value = Sheets("fan").Range("d5").Value
Sheets("data").Cells(Lrow, "C").Value = Sheets("fan").Range("D7").Value
Sheets("data").Cells(Lrow, "D").Value = IIf(OptionButton1.Value = True, "ذكر", "انثى")
Sheets("data").Cells(Lrow, "E").Value = Sheets("fan").Range("D11").Value
Sheets("data").Cells(Lrow, "F").Value = Sheets("fan").Range("D13").Value
Sheets("data").Cells(Lrow, "G").Value = Sheets("fan").Range("D15").Value
Sheets("data").Cells(Lrow, "H").Value = Sheets("fan").Range("G7").Value
Sheets("data").Cells(Lrow, "I").Value = Sheets("fan").Range("G9").Value
Sheets("data").Cells(Lrow, "J").Value = Sheets("fan").Range("G11").Value
Sheets("data").Cells(Lrow, "K").Value = Sheets("fan").Range("G13").Value
MsgBox "تم اضافة البيانات بنجاح", vbInformation, "تأكيد"
Sheets("fan").Range("D5").Value = ""
Sheets("fan").Range("D7").Value = ""
Sheets("fan").Range("D11").Value = ""
Sheets("fan").Range("D13").Value = ""
Sheets("fan").Range("D15").Value = ""
Sheets("fan").Range("G7").Value = ""
Sheets("fan").Range("G9").Value = ""
Sheets("fan").Range("G11").Value = ""
Sheets("fan").Range("G13").Value = ""
OptionButton1.Value = ""
OptionButton2.Value = ""
End Sub

forms1.xlsm

[HANI TAHER]

بارك الله فيك اخي العزيز واشكرك على سرعة استجابتك لطلبي

رب اخ لك لم تلده امك

اشكرك مرة اخرى 

تحياتي

هاني

[سليم حاصبيا]

بعد اذن الأستاذ علي

اختصار للكود باستعمال الحلقة التكرارية

Private Sub CommandButton1_Click()
Dim Lrow  As Integer
Lrow = Sheets("data").Range("b10000").End(xlUp).Row + 1
Dim i%
Dim Ar_Data(1 To 9)
Dim Ar_Fan(1 To 9)
 Ar_Data(1) = "B": Ar_Data(2) = "C": Ar_Data(3) = "E"
 Ar_Data(4) = "F": Ar_Data(5) = "G": Ar_Data(6) = "H"
 Ar_Data(7) = "I": Ar_Data(8) = "J": Ar_Data(9) = "K"
 
 Ar_Fan(1) = "D5": Ar_Fan(2) = "D7": Ar_Fan(3) = "D11"
 Ar_Fan(4) = "D13": Ar_Fan(5) = "D15": Ar_Fan(6) = "G7"
 Ar_Fan(7) = "G9": Ar_Fan(8) = "G11": Ar_Fan(9) = "G13"
 
 For i = 1 To 9
    Sheets("data").Cells(Lrow, Ar_Data(i)) = _
    Sheets("fan").Range(Ar_Fan(i))
    Sheets("fan").Range(Ar_Fan(i)) = vbNullString
Next
 Sheets("data").Cells(Lrow, "D").Value = _
 IIf(OptionButton1.Value = True, "ذكر", "انثى")


OptionButton1.Value = ""
OptionButton2.Value = ""
End Sub

 

[أحمد يوسف]

  HANI TAHER

أين انت من كل هذه الإجابات الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!!

أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!