تعديل كود اضافة

[الذيب 2015]

عند الضغط على جديد

المطلوب تعديل الكود ليعطي قيمة آخر خلية نشطة وليس عدد الصفوف

وشكرا

للتعلم INPUT.zip

[أبو حنــــين]

آخر خلية تحتوي على قيمة

Sheet1.Range("A" & .Rows.Count).End(xlUp).Row - 1

[الذيب 2015]

شكرا على ردك السريع اخوي أبو حنين

جزاك الله خيرا

[الذيب 2015]

آخر خلية تحتوي على قيمة

Sheet1.Range("A" & .Rows.Count).End(xlUp).Row - 1

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

آخر خلية تحتوي على قيمة

المطلوب

قيمة آخر خلية تحتوي على قيمة في العمود a وليس رقم الصف

القيمة التي بداخل آخر خلية

أرجو أن وفقت بشرح المطلوب

وشكرا

[أبو حنــــين]

غير هذا الكود :

Private Sub CommandButton2_Click()

Dim Endrow As Integer

With Sheet1

Endrow = .Range("A" & .Rows.Count).End(xlUp).Row

TextBox1.Value = Endrow

End With

TextBox2.SetFocus

End Sub

بالكود التالي :

Private Sub CommandButton2_Click()

Dim Endrow As Integer

With Sheet1

Endrow = Sheet1.Range("A" & .Rows.Count).End(xlUp).Row

TextBox1.Value = Sheet1.Range("A" & .Rows.Count).End(xlUp).Value

End With

TextBox2.SetFocus

End Sub

[الذيب 2015]

تسلم يمناك أخوي ابو حنين

وجزيت خير الجزاء