پرسش: فيكس كردن يك رديف در يك فايل اكسل
سلام
فايلي دارم كه از طريق ريكورد 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
Sheets("B1").Select
Range("C5").Select
همانطور كه مشخص است يه رديف را از بين دو ستون كپي كرده و در شيت MAX كپي ميكنه ، به شيت اوليه برمي گرده . از آنجا كه به دليل اطمينان از ورود اطلاعات دكمه حذف هم ديده ام ، اگر قبل از ثبت اطلاعات دكمه حذف زده شود باعث مي شود در Selection.End(xlDown).Select به آخرين سلول آن ستون بره و پيغام باگ بده . حالا اگر بشود به طريقي رديف اول را ثابت كنم كه اطلاعات آن حذف نشود ميشود از پيغام خطا جلوگيري كرد . لطفا مرا راهنمايي نماييد .
فايلي دارم كه از طريق ريكورد 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
Sheets("B1").Select
Range("C5").Select
همانطور كه مشخص است يه رديف را از بين دو ستون كپي كرده و در شيت MAX كپي ميكنه ، به شيت اوليه برمي گرده . از آنجا كه به دليل اطمينان از ورود اطلاعات دكمه حذف هم ديده ام ، اگر قبل از ثبت اطلاعات دكمه حذف زده شود باعث مي شود در Selection.End(xlDown).Select به آخرين سلول آن ستون بره و پيغام باگ بده . حالا اگر بشود به طريقي رديف اول را ثابت كنم كه اطلاعات آن حذف نشود ميشود از پيغام خطا جلوگيري كرد . لطفا مرا راهنمايي نماييد .