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

**DOLFIN** · 2015/04/28, 12:25

سلام این رو تو قسمت کد شیت وارد کنید. توی 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** · 2015/04/28, 23:42

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

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

**DOLFIN** · 2015/04/29, 02:39

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

فایل های پیوست شده