کدهای فعال کردن شیت ها هم زمان

[leilaasgharpour@ymail.com]

سلام ببخشید که موضوع جدید باز کردم در موضوع قبلی توضیح دادم که چند شیت داریم که میخواهیم با یک bottonفرمان چاپ آنها را فعال کنیم با این شرط که اگر خانهc16در هرکدام از این شیت ها خالی بود پرینت آن شیت را ندهد ولی از بقیه شیت ها پرینت بدهد کد زیر را با کمک شما نوشتم اما مشکلی که دارد این است که اگر در یکی از شیت ها خانه مذکور خالی باشد پرینت بقیه شیت ها را نیز نمیدهد در صورتی که من میخواهم فقط شیتی که خانه c16خالی دارد پرینت نشود

If Range("c16") > 0 Then
Range("A1:E32").Select
Sheets(Array("Sheet3", "Sheet4", "Sheet8", "Sheet9", "Sheet10")).Select
Me.Hide
ActiveWindow.SelectedSheets.PrintPreview
Me.Show
End If
End Sub

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Amir Ghasemiyan]

سلام ببخشید که موضوع جدید باز کردم در موضوع قبلی توضیح دادم که چند شیت داریم که میخواهیم با یک bottonفرمان چاپ آنها را فعال کنیم با این شرط که اگر خانهc16در هرکدام از این شیت ها خالی بود پرینت آن شیت را ندهد ولی از بقیه شیت ها پرینت بدهد کد زیر را با کمک شما نوشتم اما مشکلی که دارد این است که اگر در یکی از شیت ها خانه مذکور خالی باشد پرینت بقیه شیت ها را نیز نمیدهد در صورتی که من میخواهم فقط شیتی که خانه c16خالی دارد پرینت نشود

If Range("c16") > 0 Then
Range("A1:E32").Select
Sheets(Array("Sheet3", "Sheet4", "Sheet8", "Sheet9", "Sheet10")).Select
Me.Hide
ActiveWindow.SelectedSheets.PrintPreview
Me.Show
End If
End Sub

همونطور كه خدمتتون عرض كرده بودم شما بايد شرط و دستور پرينتتون رو داخل حلقه قرار بدين. يچيزي شبيه اين:

Sub sheeting()
For Each sht In Worksheets
If sht.Range("A1").Value <> "" Then
    Beep
End If
Next sht

End Sub

[leilaasgharpour@ymail.com]

ممنون درست شد اما هنګامی که صفحه آخرپرینت رو میده پیغام خطا ظاهر میشه

For Each sht In Worksheets
If sht.Range("c16") > 0 Then

Me.Hide
Range("A1:E32").Select

Sheets(Array("Sheet3", "Sheet8", "Sheet4", "Sheet9", "Sheet10")).Select
sht.PrintPreview
Me.Show
End If
Next sht
End Sub

[~M*E*H*D*I~]

نیاز به این بخش از کد نداریم

 Sheets(Array("Sheet3", "Sheet8", "Sheet4", "Sheet9", "Sheet10")).Select 

حلقه ای که ایجاد کردید برای پیمایش همه شیت ها کفایت می کنه این آرایه ای که ایجاد کردید مشکل کد شماست

[leilaasgharpour@ymail.com]

ممنون حذف کردم مشکل حل نشد ناحیهIf sht.Range("c16") > 0 Then را به عنوان خطا زرد رنگ میکنه

[~M*E*H*D*I~]

ممنون حذف کردم مشکل حل نشد ناحیهIf sht.Range("c16") > 0 Then را به عنوان خطا زرد رنگ میکنه

این کد ایرادی نداره هر ایرادی هست قبل از این کد اتفاق میفته فایل رو ضمیمه کنید تا بررسی کنم