نمایش پیغام در صورت جابجایی سطرها یا ایجاد سطر جدید

[hs208]

سلام دوستان
من یه کد میخوام که اگر خواستیم سطری رو جابجا کنیم یا یک سطر جدید ایجاد کنیم یک پیغام با مضمون زیر به کاربر بدهد :
" پر کردن سلولهایی که hide شدن فراموش نشود "

بسیار ممنون

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

[DOLFIN]

سلام این رو تو قسمت کد شیت وارد کنید. توی Msgbox هم میتونید پیام موردنظرتونو بنویسید.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ((Target.Address = Target.EntireRow.Address Or _
Target.Address = Target.EntireColumn.Address)) Then

With Application
.EnableEvents = False

MsgBox ""

.EnableEvents = True
End With
Else
Exit Sub
End If
End Sub

[hs208]

سلام دوست عزیز
در مورد کد شما امکان داره طوری نوشته بشه که پیغام رو فقط وقتی بده که دستور Insert یا Insert Cut Cells و Paste انجام میشه. ( منظورم اینه که فقط با این 3 تا event ، اون هم بعد از انجام event - عمل Insert یا Paste - پیغام نمایش داده بشه )

خیلی خیلی متشکرم

[DOLFIN]

سلام.فایلی که در اختیارتون قرار گرفته از دو شیت درست شده که شیت دومش hide شده و اطلاعات در شیت اول که معلوم هست وارد میشه.متاسفانه نتونستم برای insert cut cells کاری کنم و توی این فایل فقط در صورت insert پیام داده میشه.باز هم اگر چیزی به ذهنم اومد عرض میکنم خدمتتون البته تا اساتید هستند نگران نباشید... موفق باشید