Snasui Excel Forum

Option Explicit
Sub RoundedRectangle1_Click()
Dim s As Range
Dim tg As Range
'Dim tg3 As Range
Set s = Worksheets("Sheet1").Range("B1:C7")
Set tg = Worksheets("Sheet2").Cells(1, Cells.Columns.Count).End(xlToLeft).Offset(0, 1)
'Set tg3 = Worksheets("Sheet3").Range("A1").End(xlToLeft).Offset(0, 1)
s ...

ไม่ทราบว่าท่านใดพอมีลิงค์ให้ผมได้ศึกษาการ รับข้อมูลมา และก็ไปเพิ่มอัตโนมัติ จากปกติจะไปเพิ่มต่อท้ายในแนวนอน
เช่น
นาย A 15
นาย B 20
แต่ผมต้องการให้ข้อมูลที่เพิ่มเข้ามาเป็น
นาย A 15 นาย B 20 ประมาณนี้อ่ะครับ
คือผมก็แนบไฟล์ไปปกติแล้ว แต่ไม่รู้ว่าทำไมมันถึงไม่สามารถเปิดได้อ่ะครับ

ผมพยายามค้นหามาสองว ...

Option Explicit
Sub RoundedRectangle1_Click()
Dim s As Range
Dim tg As Range
Dim tg3 As Range
Set s = Worksheets("Sheet1").Range("B1")
Set tg = Worksheets("Sheet2").Range("A365").End(xlUp).Offset(1, 0)
Set tg3 = Worksheets("Sheet3").Range("A365").End(xlUp).Offset(1, 0)
s.Copy

tg.PasteSpecial ...

ขอความช่วยเหลือด้วยครับ คือผมต้องการให้ข้อมูลเรียงไปทางขวา อ่ะ (ตอนนี้เพิ่มข้อมูลแล้วมันลงไปด้านล่าง) และอยากให้ไปเพิ่มใน Sheet2 ครับ โดยเริ่มต้นที่ B2 อ่ะครับ

ตัวอย่างโค๊ด ที่ผมไปหามาได้นะครับ คือจะนำมาประยุกต์ใช้ครับ แต่ไม่รู้ว่าต้องแก้ไขตรงไหน ครับ

Private Sub TextBox1_AfterUpdate()
If Me ...

ผมแนบไฟล์มาให้แล้วครับ ขอคำชี้แนะด้วยครับ

ขอคำชี้แนะหน่อยครับ

พอดีผมต้องการจะให้กรอกข้อมูบในช่องเดียว แล้วให้ข้อมูลนี้ไปแสดงในหน้าอื่น โดยเรียงต่อกันไป ครับ
ผมต้องการจะเก็บประวัติและดู Trend ของหน่วยเงินอ่ะครับ