مساعدة ترقيم تلقائي

[steel2008man]

السلام عليكم

عندب يوزرفورم وشيت اكسل المطلوب هو عند ترحيل البيانات من اليوزر فورم اريد ان يوضع التسلسل تلقائا في الاكسل, علما انه لا يوجد في الفور مكان مخصص للتسلسل.

وشكرا

my proj.rar

[ياسر خليل أبو البراء]

وعليكم السلام

ضع السطر التالي 

Range("a" & x + 1).Value = Range("a" & x + 1).Row - 1

بعد السطر التالي 

x = Range("b" & Rows.Count).End(xlUp).Row

في كود زر الأمر CommandButton1

Private Sub CommandButton1_Click()

 

[steel2008man]

7 ساعات مضت, ياسر خليل أبو البراء said:

وعليكم السلام

ضع السطر التالي 

Range("a" & x + 1).Value = Range("a" & x + 1).Row - 1

بعد السطر التالي 

x = Range("b" & Rows.Count).End(xlUp).Row

في كود زر الأمر CommandButton1

Private Sub CommandButton1_Click()

 

شكرا لك ... ان امكن كيف يمكن ان اضع listbox بحيث عند البحث باول حرف يضهر في الليست بوكس وعند النقر على الاسم تظهر المعلومات بالحقول التي على اليسار؟؟؟ 

شكرا لمساعدتك.

تم تعديل يونيو 3, 2017 بواسطه steel2008man