اثنين lastrow في عمود واحد

[عبدالرحمن الزهراني]

السلام عليكم ورحمة الله وبركاته..

وتقبل الله من الجميع الصيام والقيام.

عندي قائمتين قابلة للإضافة في عمود واحد، وأحتاج لكود يمكنني في الإضافة إلى القائمة المطلوبة ( طبعاً يمكنني إنشاء ورقة لكل قائمة ) ولكن إن وجد حل فهو أفضل.

لكم خالص الشكر مقدماً

lastrow.xlsm

[حسونة حسين]

وعليكم السلام ورحمه الله وبركاته

تفضل هذا التعديل

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

 

[علي بطيخ سالم]

ما شاء الله تبارك الرحمن ابداع استاذنا الاستاذ حسونة

[عبدالرحمن الزهراني]

ما شاء الله تبارك الله.

ألف شكر أخي الكريم

[حسونة حسين]

الحمد لله الذي بنعمته تتم الصالحات 

[عبدالرحمن الزهراني]

عذرا أستاذي..

ماذا لو عدلت اسم القوائم، بحيث تكون الأولى List1 والثانية List2، فكيف يصبح الكود؟

[حسونة حسين]

الكود مصنوع لكي تكون الثانيه اسمها 

List2

كما في هذا السطر

ان اردت تغييرها لابد من تغييرها في هذا السطر

X = Application.Match("List2", Sheet2.Range("A2:A" & LR), 0) + 1

الاولي اكتب اسمها كما تريد ليس لها أي علاقه في الكود 

[عبدالرحمن الزهراني]

1 ساعه مضت, حسونة حسين said:

الكود مصنوع لكي تكون الثانيه اسمها 

List2

كما في هذا السطر

ان اردت تغييرها لابد من تغييرها في هذا السطر

X = Application.Match("List2", Sheet2.Range("A2:A" & LR), 0) + 1

الاولي اكتب اسمها كما تريد ليس لها أي علاقه في الكود 

لك جزيل الشكر، كنت أقوم بتغيير اسم القائمة الثانية في الورقة، معتقداً أن الاسم في الكود للأولى.

[حسونة حسين]

الشكر لله اخى