VBA ช่วยแนะนำการลงข้อมูล ลงใน TAG ให้หน่อยครับ

[ballkoong]

VBA ช่วยแนะนำการลงข้อมูล ลงใน TAG ให้หน่อยครับ

ผมสร้าง TAG นับสต็อกไว้ แต่ต้องการให้ข้อมูลที่อยู่ใน คอลัม V W X
ใส่ Material : , External Part , Stock Unit: ตาม Number ครับ
ปัญหาตอนที่คือ พอ VBA ทำงาน ตอนที่ วน Loop ของ TAG No. ที่2

ไม่ใช่ข้อมูลที่อยู่ใน เเถวที่ 3 ของ คอลัม V W X ครับ

Sub Macro2()
'

Range("C1").Select
Do Until ActiveCell.Offset(0, 19).Value = ""



If ActiveCell.Offset(0, -1).Value = "Material :" Then

ActiveCell.FormulaR1C1 = "=RC[19]"
ActiveCell.Offset(0, 5).Select

ActiveCell.FormulaR1C1 = "=RC[15]"
ActiveCell.Offset(0, 3).Select

ActiveCell.FormulaR1C1 = "=RC[13]"
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, -8).Select

Else
ActiveCell.Offset(1, 0).Select

End If
ActiveCell.Offset(1, 0).Select

Loop

ActiveCell.Offset(1, 0).Select
End Sub

[snasui]

กรุณาปรับ Tag ของตัวอักษร Code ให้แสดงเป็นอักษรแบบ Code ดูตัวอย่างในกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ

[ballkoong]

กรุณาปรับ Tag ของตัวอักษร Code ให้แสดงเป็นอักษรแบบ Code ดูตัวอย่างในกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ

ขอโทษครับอาจาร์ ผมกดผิดปุ่มครับ
แก้ไขให้แล้วครับ

Code: Select all

Sub Macro2()
'
    
Range("C1").Select
Do Until ActiveCell.Offset(0, 19).Value = ""



If ActiveCell.Offset(0, -1).Value = "Material :" Then

    ActiveCell.FormulaR1C1 = "=RC[19]"
    ActiveCell.Offset(0, 5).Select
    
    ActiveCell.FormulaR1C1 = "=RC[15]"
    ActiveCell.Offset(0, 3).Select

   ActiveCell.FormulaR1C1 = "=RC[13]"
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Offset(0, -8).Select
    
    Else
    ActiveCell.Offset(1, 0).Select
    
    End If
     ActiveCell.Offset(1, 0).Select
    
    Loop
    
    ActiveCell.Offset(1, 0).Select
End Sub

[snasui]

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

Code: Select all

Dim rall As Range
Dim r As Range, rw As Long
rw = 2
With Worksheets("Sheet2")
    Set rall = .Range("b:b").SpecialCells(xlCellTypeConstants)
    For Each r In rall
        If r.Value = "Material :" Then
            r.Offset(0, 1).Formula = "=V" & rw
            r.Offset(0, 6).Formula = "=W" & rw
            r.Offset(0, 9).Formula = "=X" & rw
            rw = rw + 1
        End If
    Next r
End With

[ballkoong]

ได้แล้วครับ สุดยอดมากครับ ขอบคุณมากๆครับ อาจารย์