عليكم السلام ورحمه الله و بركاته
هو ما اريد هو جعل
LR = Sheets("DATAA").Cells(65000, "B").End(xlUp).Row
عمود b متغير فى هذا الكود حسب كل منتج بمعنى منتج
1 عند اختياره يسجل ف LR = Sheets("DATAA").Cells(65000, "B").End(xlUp).Row b
منتج 2 يسجل ف LR = Sheets("DATAA").Cells(65000, "c").End(xlUp).Row c
منتج 3 يسجل ف LR = Sheets("DATAA").Cells(65000, "d").End(xlUp).Row d
منتج 4 يسجل ف LR = Sheets("DATAA").Cells(65000, "e").End(xlUp).Row e
منتج 5 يسجل ف LR = Sheets("DATAA").Cells(65000, "f").End(xlUp).Row f
وهكذا .........
وهنا سيجعل عمليه التسجيل اقل بمعنى الكود هيسجل ف اخر سطر من b او c او d او f حسب كل منتج اى كل منتج سيصبح مستقل بذاته عند اختياره فى عمليه التسجيل