HANI TAHER قام بنشر نوفمبر 1, 2020 مشاركة قام بنشر نوفمبر 1, 2020 السلام عليكم اخوتي عندي مشكلة في الفيجول بيسك تبع الملف المرفق ولا ادري ماهو الخطا .... الرجاء منكم ان تعينوني على حل المشكلة .. شاكرا لكم تعاونكم تــم تعديل عنوان المشاركة ليعبر عن طلبك forms.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر نوفمبر 1, 2020 أفضل إجابة مشاركة قام بنشر نوفمبر 1, 2020 وعليكم السلام-يجب عليك جعل الكود هكذا .. وحاول معرفة الفرق البسيط والإضافة السهلة بين كودك وهذا الكود بارك الله فيك 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 2 رابط هذا التعليق شارك More sharing options...
HANI TAHER قام بنشر نوفمبر 1, 2020 الكاتب مشاركة قام بنشر نوفمبر 1, 2020 بارك الله فيك اخي العزيز واشكرك على سرعة استجابتك لطلبي رب اخ لك لم تلده امك اشكرك مرة اخرى تحياتي هاني رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 2, 2020 مشاركة قام بنشر نوفمبر 2, 2020 بعد اذن الأستاذ علي اختصار للكود باستعمال الحلقة التكرارية 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 1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر نوفمبر 2, 2020 مشاركة قام بنشر نوفمبر 2, 2020 HANI TAHER أين انت من كل هذه الإجابات الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!
الردود الموصى بها