عبدالرحمن الزهراني قام بنشر أبريل 16, 2023 مشاركة قام بنشر أبريل 16, 2023 السلام عليكم ورحمة الله وبركاته.. وتقبل الله من الجميع الصيام والقيام. عندي قائمتين قابلة للإضافة في عمود واحد، وأحتاج لكود يمكنني في الإضافة إلى القائمة المطلوبة ( طبعاً يمكنني إنشاء ورقة لكل قائمة ) ولكن إن وجد حل فهو أفضل. لكم خالص الشكر مقدماً lastrow.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسونة حسين قام بنشر أبريل 16, 2023 أفضل إجابة مشاركة قام بنشر أبريل 16, 2023 وعليكم السلام ورحمه الله وبركاته تفضل هذا التعديل CommandButton1_Click من اجل LastRow1 CommandButton2_Click من اجل LastRow2 Private Sub CommandButton1_Click() Dim LR As Long, X If TextBox1.Value <> "" Then LR = Sheet2.Range("a" & Rows.Count).End(xlUp).Row X = Application.Match("List2", Sheet2.Range("A2:A" & LR), 0) + 1 LR = WorksheetFunction.CountA(Sheet2.Range("A1:A" & X)) If LR = X Then Sheet2.Rows(X).Resize(1).EntireRow.Insert ' Resize(1) عندما تمتلئ القائمه الاولي يضيف العدد بين الاقواس Sheet2.Range("a" & LR).Value = TextBox1.Value TextBox1.Value = "" Else MsgBox ("من فضلك تأكد من ادخال البيانات") End If TextBox1.SetFocus End Sub Private Sub CommandButton2_Click() Dim LR As Long If TextBox1.Value <> "" Then 'And TextBox3.Value <> "" And TextBox4.Value <> "" Then LR = Sheet2.Range("A" & Rows.Count).End(xlUp).Row Sheet2.Range("a" & LR + 1).Value = TextBox1.Value TextBox1.Value = "" Else MsgBox ("من فضلك تأكد من ادخال البيانات") End If End Sub 1 2 رابط هذا التعليق شارك More sharing options...
علي بطيخ سالم قام بنشر أبريل 16, 2023 مشاركة قام بنشر أبريل 16, 2023 ما شاء الله تبارك الرحمن ابداع استاذنا الاستاذ حسونة 2 رابط هذا التعليق شارك More sharing options...
عبدالرحمن الزهراني قام بنشر أبريل 16, 2023 الكاتب مشاركة قام بنشر أبريل 16, 2023 ما شاء الله تبارك الله. ألف شكر أخي الكريم 2 رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر أبريل 17, 2023 مشاركة قام بنشر أبريل 17, 2023 الحمد لله الذي بنعمته تتم الصالحات 1 رابط هذا التعليق شارك More sharing options...
عبدالرحمن الزهراني قام بنشر أبريل 17, 2023 الكاتب مشاركة قام بنشر أبريل 17, 2023 عذرا أستاذي.. ماذا لو عدلت اسم القوائم، بحيث تكون الأولى List1 والثانية List2، فكيف يصبح الكود؟ رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر أبريل 17, 2023 مشاركة قام بنشر أبريل 17, 2023 الكود مصنوع لكي تكون الثانيه اسمها List2 كما في هذا السطر ان اردت تغييرها لابد من تغييرها في هذا السطر X = Application.Match("List2", Sheet2.Range("A2:A" & LR), 0) + 1 الاولي اكتب اسمها كما تريد ليس لها أي علاقه في الكود 2 رابط هذا التعليق شارك More sharing options...
عبدالرحمن الزهراني قام بنشر أبريل 17, 2023 الكاتب مشاركة قام بنشر أبريل 17, 2023 1 ساعه مضت, حسونة حسين said: الكود مصنوع لكي تكون الثانيه اسمها List2 كما في هذا السطر ان اردت تغييرها لابد من تغييرها في هذا السطر X = Application.Match("List2", Sheet2.Range("A2:A" & LR), 0) + 1 الاولي اكتب اسمها كما تريد ليس لها أي علاقه في الكود لك جزيل الشكر، كنت أقوم بتغيير اسم القائمة الثانية في الورقة، معتقداً أن الاسم في الكود للأولى. رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر أبريل 17, 2023 مشاركة قام بنشر أبريل 17, 2023 الشكر لله اخى 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان