[حل شده] نمایش متن یک سلول در msgbox با شرط

[ggroup]

سلام خدمت همکاران عزیز

میخام قسمتی از یک شیت رو طوری تنظیم کنم وقتی شیت باز شد چک کنه توی رنج (c37 تا c45) اگر خالی بود که بگه خالی در غیر اینصورت متنی که در هر سلول وجود داره رو در پیغام نشون بده

[iranweld]

با سلام

فایل پیوست را بررسی کنید

[ggroup]

ممنونم راه حل خوبی بود، فقط اگه میشد یه جورایی بین دیدن متن ها و ندیدنشون تاییدیه کذاشت بهتر میشد!
مثلا اول بگه پیام دارید میخاید نشون بده اگه تایید شد بعد نشون بده در غیر اینصورت کنسل بشه
چون پیام ها زیاد بشن کمی ازاردهنده میشه هی پشت هم پیام ها ظاهر بشن!

[iranweld]

ممنونم راه حل خوبی بود، فقط اگه میشد یه جورایی بین دیدن متن ها و ندیدنشون تاییدیه کذاشت بهتر میشد!
مثلا اول بگه پیام دارید میخاید نشون بده اگه تایید شد بعد نشون بده در غیر اینصورت کنسل بشه
چون پیام ها زیاد بشن کمی ازاردهنده میشه هی پشت هم پیام ها ظاهر بشن!

این کد را تست کنید

در صورت باز شدن فایل فقط یکبار پیام نمایش داده میشود

Public x As Boolean
Sub test()
xx = Application.CountA(Range("c37:c45"))
If xx = 0 And x = False Then
MsgBox "No Message"
x = True
ElseIf xx > 0 And x = False Then
For i = 37 To 45
If Range("c" & i) <> "" Then
xxx = xxx & vbNewLine & Range("c" & i)
x = True
End If
Next
MsgBox xxx
End If
End Sub 

[ggroup]

هرموقع فایل باز بشه دیغام هم میاد
شاید من درست انجام ندادم اگه میشه فایل بفرستین
ممنونم

[iranweld]

هرموقع فایل باز بشه دیغام هم میاد
شاید من درست انجام ندادم اگه میشه فایل بفرستین
ممنونم

هر فقط فایل باز میشه روی هر شیتی باشید یکبار نمایش داده میشه و وارد شیت های بعدی بشید نمایش داده نمیشه

[ggroup]

مچکرم حل شد