پرینت

[blue_cry]

ممنون از کمک های همتون تونستم چیزی رو که میخواستم درست کنم حالا هر اسمی رو که از data validation انتخاب میکنم داده هاش هم میشینه تو جدول انتخابیم

اما برای پرینت گرفتنش باید تک تک اسم ها رو انتخاب کنم پرینت بزنم
راهی هست که بتونم همه اسمها رو یکجا پرینت بگیرم؟
مثلا وقتی پرینت میزنم اسم اول بشینه پرینتش بیاد بیرون بعد اسم دوم .... دیگه هی انتخاب نکنم

[blue_cry]

RE: پرینت

سلام راهش رو پیدا کردم

Sub Printall()
    Dim x As Integer
    For x = 2 To 79
        Range("B9").Value = Sheets(1).Cells(x, 1).Value
        ActiveSheet.PrintOut
    Next x
End Sub 

B9 همون سلولی هست که data validation خورده
بعد از مساوی value هم آدرس که شیت 1 و column a:a هست
جلوی for هم از 2-79 هم که ردیف ستون a شیت 1 هست
نمیدونم تونستم توضیح بدم یا نه