Snasui Excel Forum

Code: Select all

Sub ClearEntries()
On Error GoTo noName 'error handler (การจัดการกับ Error)
'you can use the word "numbers" or any other range name in the next line
'(ท่านสามารถใช้คำว่า "numbers" หรือช่วงเซลล์อื่น ๆ ในบรรทัดถัดไป)
Application.Goto Reference:="ClearData" 'ไปยังข้อมูลที่ชื่อ ClearData
Selection.ClearContents ' ทำการ Clear เฉพาะค่าภายในตำแหน่งที่เลือก
Range("B3:B10").Select 'เลือกช่วงเซลล์ B3:B10
Exit Sub 'ออกจากการ Run code
noName: 'only fires on an error (กรณีไฟล์เกิดค่าผิดพลาดเท่านั้น)
MsgBox "The named range you are calling does not exist." & vbCr & _
You need to name a range as 'numbers' before proceeding., _
vbOKOnly + vbInformation, "Named range required" 'แสดงข้อความเตือนว่า
' "The named range you are calling does not exist."
' "You need to name a range as 'numbers' before proceeding."
End Sub

Code: Select all

Sub ClearEntries()
On Error GoTo noName
Application.Goto Reference:="ClearData"
Range("B3:B10").ClearContents
Exit Sub
noName:
MsgBox "The named range you are calling does not exist." & vbCr & _
"You need to name a range as 'numbers' before proceeding.", _
vbOKOnly + vbInformation, "Named range required"
End Sub

Code: Select all

Sub CopyToAllData()
    Application.Goto Reference:="AddModel"
     Selection.Copy
    Application.Goto Reference:="AllData"
    ActiveSheet.Paste
    Application.CutCopyMode = False
     Range("A1").Select
    Sheets("Report").Select
     Range("B14:G27").Select
    Selection.ClearContents
     Range("B14").Select
    Application.ScreenUpdating = True
End Sub