ขอสอบถาม การใส่ ฟังก์ชั่น OFFSET ลงใน vba code ใน cmd

[voravit]

QA_สมุดบันทึกรายการเงินสดย่อย-2557.xlsm

ผมต้องการ ส่ง ข้อมูล จาก urfrm1 ไปยังตาราง สมุด บันทึกเงินสดย่อย ที่ Sheet("MPettyCash") ให้ไล่เรียงลงมา ตามรายการที่กรอกจาก urfrm1 และ เข้าใจเอาว่า น่าจะต้องใช้ ฟังก์ชั่น OFFSET พยามลง code โดยตรงแล้ว แต่ ไม่ได้ เลย ใช้ทางอ้อม คือให้ ข้อมูล จาก urfrm1 ลงที่ Dummy แถว 33 แล้วถึงส่งเข้า ตาราง อีกที ครับ
ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Private Sub cmd1_Click()
    Dim target As Range
    With Sheets("MPettyCash")
        If .Range("b6") = "" Then
            Set target = .Range("b6")
        Else
            Set target = .Range("b31").End(xlUp).Offset(1, 0)
        End If
        .Range("A6") = txb1.Value
        With target
            .Offset(0, 0) = txb2.Value
            .Offset(0, 1) = txb3.Value
            .Offset(0, 3) = txb4.Value
            .Offset(0, 4) = txb5.Value
            .Offset(0, 5) = txb6.Value
        End With
    End With
End Sub

[voravit]

ขอบคุณ ครับ
ผมนำ code ที่ให้ตัวอย่างมาปรับแก้อีกเล็กน้อย ก็ได้ผล ตามที่สอบถามไปครับ
และ ผมข้อสอบถาม เพิ่มเติม ตือ ที่
txb1 คือ เลขที่เอกสาร จะมี รูปแบบ คือ
VR 57 0X 00X โดย 0X = เดือน 01 ,02 ,....11 ,12 และ 00X = ลำดับเลขที่เอกสาร = 001 .002 ,.....989 ,999
ในช่องนี้(txb1) ถ้า กรอก 03001 ผลที่ ออกมาให้เป็น VR5703001 จะต้องเขียน code vba อย่างไรครับ

ขอบคุณครับ

[snasui]

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

Code: Select all

.Range("A6") = "VR57" & txb1.Value

[voravit]

ขอบคุณครับ
ได้นำ code ที่แนะนำมาไปปรับใช้ แล้ว ได้ผลครบตามที่ต้องการครับ คือ สมุดบันทึก รายการเบิกชดเชยเงินสดย่อย แบบง่ายๆ ถ้าท่านใดมีคำแนะนำเพิ่มเติม ก็ขอขอบคุณล่วงหน้าครับ เพราะ ทำขึ้นมาเพื่อใช้งานจริงๆครับ