สอบถามการทำ Professional Macro Recording

[snasui]

OFFSET(R9C30,1,0,

เปลี่ยนเป็น OFFSET(R9C30,1,0, ครับ

[sakajohn]

สอบถามเพิ่มเติมครับ ผมต้องการให้ CODE VBA รัน LOOP ไปเรื่อยๆ จนกว่าจะเจอค่า cell ว่างครับ แต่ตอนนี้ สูตรถูก กำหนดให้เริ่มที่ เซล
R10C30 ครับ ผมอยากให้การวน loop ครั้งที่2 ถ้าไม่เจอค่าวาง ให้เริ่มที่ เซล R11C30 แฃ้งไล่ลงมาเรื่อยๆครับ

Dim row As Integer
row = 10
Do While Cells(row, 30).Value <> ""
Application.Goto Reference:="OFFSET(R10C30,0,0,1,31)"
Selection.Copy
Workbooks.Open Filename:="\\ACCOUNT\Data (D)\SALE\SaleData.xlsx"
ThisWorkbook.Activate
Application.Goto Reference:= _
"OFFSET('[SaleData.xlsx]RAT'!R1C1,MATCH(R10C30,INDEX('[SaleData.xlsx]RAT'!R2C1:R50000C1,0),0),0)"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close

row = row + 1
Loop
ThisWorkbook.Saved = True
ThisWorkbook.Close

End Sub

[snasui]

การแนบ Code ให้อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

ลองแนบไฟล์พร้อม Code และช่วยแจ้งมาด้วยว่าต้องการจะทำอะไร หากถูกต้องจะมีลักษณะอย่างไร จะได้สะดวกในการทำความเข้าใจครับ