ดึงข้าม Sheet ติดบางส่วน

[picpostman]

สวัสดีครับ
รบกวนช่วยดู code ให้ด้วยครับ
ผมต้องการดึงค่าข้ามsheet จาก "UserGroup" ไปที่ "Summary"
ในส่วนของ Group นั้นทำได้แล้วครับ แต่ติดตรง User ยังทำไม่ได้
โดยมีเงื่อนใขว่า ดึงค่า User1 ข้ามไปไว้ที่ User Permission
แต่ละ User มี Group ไม่เท่ากัน

ขอบคุณครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

For Each rtu In rTargetUser
    For Each rsu In rSourceUser
        If rsu = rtu Then
           For j = 1 To MaxFolder
                rtu.Offset(k, j + 1).End(xlDown) _
                    .Offset(1, 0) = rsu.Offset(0, j)
           Next j
        End If
    Next rsu
Next rtu

[picpostman]

สุดยอดมากเลยครับ ผมคิดและทดลองมาเป็นวันๆ run step แล้วงง กับ Loop ของตัวเอง
แต่ของอาจารย์ใช้ Offset(x,y).End(xlDown).Offset(x,y) ก็ใช้ได้เลย เรื่อง Offset นี่สุดยอดจริงๆ
ขอบคุณมากๆครับ อาจารย์เทพจริงๆ