سلام
فايلي دارم كه از طريق ريكورد VBA دستوري گرفته به شرح زير براي انتقال اطلاعات يك فرم به يك شيت ديگر:
Range("B7:X7").Select
Selection.Copy
Sheets("MAX").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("A").Select
Application.CutCopyMode = False
Range("C7:X7").Select
Selection.ClearContents
Range("C5").Select
همانطور كه مشخص است يه رديف را از بين دو ستون كپي كرده و در شيت MAX با دكمه ثبت كپي ميكنه ، به شيت اوليه برمي گرده و جدول را براي ورود اطلاعات جديد پاك ميكنه. از آنجا كه به دليل اطمينان از ورود اطلاعات دكمه حذف هم ديده ام ، اگر قبل از ثبت اطلاعات دكمه حذف زده شود تمام محتواي سلول ها را پاك ميكند و در دستور ثبت اطلاعات مجدد باعث مي شود در Selection.End(xlDown).Select به آخرين سلول آن ستون بره و پيغام باگ بده . (لازم به ذكر است سلول A2 حاوي يك فرمول مي باشد كه عددي را به ما مي دهد .)حالا اگر بشود به طريقي رديف اول را ثابت كنم كه اطلاعات آن حذف نشود ، ميشود از پيغام خطا جلوگيري كرد . لطفا مرا راهنمايي نماييد چگونه؟
دستور حذف به شكل زير است
فايلي دارم كه از طريق ريكورد VBA دستوري گرفته به شرح زير براي انتقال اطلاعات يك فرم به يك شيت ديگر:
Range("B7:X7").Select
Selection.Copy
Sheets("MAX").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("A").Select
Application.CutCopyMode = False
Range("C7:X7").Select
Selection.ClearContents
Range("C5").Select
همانطور كه مشخص است يه رديف را از بين دو ستون كپي كرده و در شيت MAX با دكمه ثبت كپي ميكنه ، به شيت اوليه برمي گرده و جدول را براي ورود اطلاعات جديد پاك ميكنه. از آنجا كه به دليل اطمينان از ورود اطلاعات دكمه حذف هم ديده ام ، اگر قبل از ثبت اطلاعات دكمه حذف زده شود تمام محتواي سلول ها را پاك ميكند و در دستور ثبت اطلاعات مجدد باعث مي شود در Selection.End(xlDown).Select به آخرين سلول آن ستون بره و پيغام باگ بده . (لازم به ذكر است سلول A2 حاوي يك فرمول مي باشد كه عددي را به ما مي دهد .)حالا اگر بشود به طريقي رديف اول را ثابت كنم كه اطلاعات آن حذف نشود ، ميشود از پيغام خطا جلوگيري كرد . لطفا مرا راهنمايي نماييد چگونه؟
دستور حذف به شكل زير است
Sheets("MAX").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Range("A1:W1").Select
Selection.ClearContents
Sheets("A").Select
Range("B7").Select
کامنت