مساعده من اهل الخبرة

[Mahmoud.Abdou]

السلام عليكم يارب يكون الجميع بخير وكل عام وحضراتك بخير . ورمضان كريم على الجميع ان شاء الله .

اسف اذا كنت هسبب اى ازعاج لاكن عندى طلب حاولت فيه اكثر من مرة لاكن كل محاولاتى لما تاتى باى نتجيه .

احاول انا اقوم بطباعه تقرير استنادا الى البيانات الموجودة فى 2 ليست بوكس واحضاراها فى الشيت رقم 17 . 

لاكن المشكله ان البيانات بتيجى من ليست بوكس 1 . ومش عارف اجيب اى كود ان يجيب البياانات الى فى ليست بوكس 2 .

اذا احد عنده حل يا ريت يساعدنى وشكرا .

New One.xlsm

[سليم حاصبيا]

مع اني لا أعمل في مجال اليوزر فورم ومشتقاته         وليس لدي الخبرة الكافية بأكواده

اقترح هذا الكود            دون الحلقات التكرارية

Option Explicit
Private Sub Commandbutton4_Click()
 Dim lr%
  Sheets(17).Cells(5, 1).Resize(Me.ListBox1.ListCount, Me.ListBox1.ColumnCount) = _
   Me.ListBox1.List
   
  lr = Sheets(17).Cells(Rows.Count, 1).End(3).Row
  
    Sheets(17).Cells(lr + 3, 1).Resize(Me.ListBox2.ListCount, Me.ListBox2.ColumnCount) = _
    Me.ListBox2.List
    
End Sub