چگونگي فيكس كردن يك رديف با امكان عدم حذف اطلاعات

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • MA.SHAHIDI

    • 2019/01/07
    • 83
    • 56.00

    [حل شده] چگونگي فيكس كردن يك رديف با امكان عدم حذف اطلاعات

    سلام
    فايلي دارم كه از طريق ريكورد 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
  • hadi1980

    • 2019/01/07
    • 237
    • 86.00

    #2
    با سلام
    در اون يکي پست شما جواب داده شده است

    کامنت

    چند لحظه..