กรอกข้อมูลแทรก

[funza666]

New Bitmap Image1.jpg

อยากให้กรอกข้อความใส่ที่ติกสีแดง แล้วขึ้นในช่องB13 แต่ตอนนี้กรอกแล้วขึ้นในช่องB26

[Supachok]

ทำตามกฎข้อ 3 ครับ

[funza666]

ทำตามกฎข้อ 3 ครับ

ตอนนี้คือกรอก 1 ในช่องC1 มันขึ้นในช่องB26 คืออยากให้C1ห้อแล้วแทรกในช่องB13

[snasui]

แนบไฟล์ Excel มาด้วยจะได้สะดวกในการถาม-ตอบของเพื่อนสมาชิกครับ

[funza666]

แนบไฟล์ Excel มาด้วยจะได้สะดวกในการถาม-ตอบของเพื่อนสมาชิกครับ

addแล้วกรอกข้อมูล(E5)มันจะไปอยู่ล่างสุด(D154) อยากให้ กรอกข้อมูล ไทย แล้วไปต่อท้าย(D91)

คอมพิวเตอร์ .xlsm

[logic]

ลองใช้ do...loop หาค่าบรรทัดครับ

อันนี้แค่ตัวอย่างการ loop ลองเอาไปปรับใช้ดูครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Not Intersect(Target, Range("E5:AC11")) Is Nothing And Range("B4").Value = False And Range("B5").Value = False Then
    Do
        i = i + 1
    Loop Until Range("d14").Offset(i, 0).Value = ""
    MsgBox Range("d14").Offset(i, 0).Address '<~~~ Show เซลล์ว่าง
    Cells(Range("B3").Value, Cells(Target.Row, Target.Column + 29).Value).Value = Target.Value
End If
End Sub