ارجو المساعدة بتعديل ملفي المرفق

[ahmeeed saad]

ارجو المساعدة بتعديل ملفي المرفق / اريد طباعة الاسماء ال 200 من الق ائمة المنسدلة مباشرة وليس بالفرد

اشعار بالترقية.rar

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

هذا الكود

Option Explicit
Sub Prin_For_Me()
Dim laste_row%, i%
 Sheets("الاشعار").PageSetup.PrintArea = Range("B2:I33").Address
 With Sheets("البيانات")
    laste_row = .Cells(Rows.Count, 2).End(3).Row
     For i = 2 To laste_row
      If .Cells(i, 2) <> vbNullString Then
       Sheets("الاشعار").Cells(14, "c") = .Cells(i, 2)
       Sheets("الاشعار").Cells(24, "G") = .Cells(i, 3)
            'اختر ما تريد
            'معابنة أو طباعة او الاثنين معاًهنا
            'و ذلك بازالة الفاصلة العليا من جانب السطر المطلوب
        ' Sheets("الاشعار").PrintPreview
        ' Sheets("الاشعار").PrintOut
       End If
     Next
 End With
End Sub

 

[ahmeeed saad]

مشكور جدا جدا الكود اشتغل معي