با سلام من ماکرویی به شکل زیر دارم که یک مقداری از اطلاعات(از j3 تا j21 ) رو به جای دیگه (شیت اطلاعات) کپی میکنه حال میخوام در صورت تکراری بودن مثلا d1 هشدار تکراری بودن بده در ضمن مقدار کپی نشه چه تغییری توی ماکرو باید بدم .... ممنونم
Sub Macro3()
Range("j3:j21").Select
Selection.Copy
Sheets("اطلاعات").Select
Range("d1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)