ขอความกรุณาช่วยตรวจสอบและแก้ไข code ด้วยครับ

[Daboynut]

สวัสดีครับ อยากให้ช่วยตรวจสอบและปรับ code หน่อยครับ

vd.PNG (87.68 KiB) Viewed 88 times

การทำงานคือ เมื่อกดปุ่มสีฟ้าที่ชีท Interface จะสร้างชีทใหม่และมีข้อมูลตามมาในชีทใหม่ ปัญหาคือเวลาเกิด error อยากให้มันไม่ต้องสร้างชีทมาอีกอันครับ

และอยากให้ช่วยปรับ code ให้กระชับมากกว่านี้ครับ เอาไว้ศึกษาต่อครับผม ขอบคุณครับ

[snasui]

แนบไฟล์ตัวอย่างที่เขียน Code เอาไว้เองแล้วมาด้วยจะได้ตอบต่อไปจากนั้นครับ

[Daboynut]

ขอโทษทีครับผมลืม

NameTest.xlsx.xlsm

(18.57 KiB) Downloaded 9 times

รบกวนด้วยครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

'Other code
    Dim sh As Worksheet
'Other code
    For Each r In rall.Areas
        If r.Cells(2, 1) <> "" Then
            For Each sh In Worksheets
                If r.Cells(2, 1).Value = sh.Name Then Exit Sub
            Next sh
            Worksheets.Add(After:=Worksheets(Worksheets.Count)) _
                .Name = r.Cells(2, 1).Value
'Other code

[Daboynut]

ตัวอย่าง Code ครับ

Code: Select all

'Other code
    Dim sh As Worksheet
'Other code
    For Each r In rall.Areas
        If r.Cells(2, 1) <> "" Then
            For Each sh In Worksheets
                If r.Cells(2, 1).Value = sh.Name Then Exit Sub
            Next sh
            Worksheets.Add(After:=Worksheets(Worksheets.Count)) _
                .Name = r.Cells(2, 1).Value
'Other code

ตรง other code คืออะไรครับ และ
code ไม่สามารถใช้งานได้ครับ error with out next ครับผม

[snasui]

'Other code คือ Code เดิมครับ

Code ที่ผมเขียนมานี้เฉพาะที่ปรับใหม่ จะมีบรรทัดเดิมบางบรรทัดไว้ให้ด้วยเพื่อจะได้ใช้เปรียบเทียบกับของเดิมได้ครับ