อยากให้ code นี้ใช้ได้ในทุก sheet ครับ

[xaouteam]

อยากให้ code ด้านล่างนี้ใช้ได้กับทุกชีทที่เราใส่ปุ่มไว้ ต้องแก้ตรงไหนครับ ต้องการแบบไม่ต้องระบุชื่อชีทเลย
หรือว่า เรียงลำดับชื่อชีทก็ได้ครับ เช่น เมื่อcodeนี้ไปใส่ปุ่มใน sheet1 , sheet2 , sheet3 ก็สามารถใช้ร่วมกันได้ทั้งหมด
ขอบคุณครับ

Sub insertROW()
'
' insertROW Macro
'

Worksheets("User").Select
lr = ThisWorkbook.Sheets("User").Cells(Rows.Count, 2).End(xlUp).Row
Cells(4, 100).Select
lc = Selection.End(xlToLeft).Column
Cells(lr, 2).Select

Dim i, j, k As Integer
i = lr - 5
j = Range("element").Value
k = i + 6

For i = i To j - 1
Rows(k).Select
Selection.Insert
Cells(k, 2) = Cells(k - 1, 2) + 1

k = k + 1


Next i

End Sub

[Serverchita]

แนบไฟล์ตัวอย่างมาด้วยครับ เพื่อง่ายต่อการตอบคำถาม

[xaouteam]

แก้ไขได้แล้วโดยลบบรรทัดด้านล่างออก ขอบคุณครับ

Code: Select all

Worksheets("User").Select