Snasui Excel Forum

Code: Select all

Sub sent()
Dim Sheet As Sheet1
Range("d5").Copy
Sheets("Sheet1").Select
Range("b65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial xlPasteValues
Sheets("inform").Select
Range("d6").Copy
Sheets("Sheet1").Select
Range("d65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial xlPasteValues

End Sub

Code: Select all

Sub sent()
Dim sheet As Worksheets

Range("d5").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(1, 0)
Range("d6").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 2)
Range("f6").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 5)
Range("f7").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 9)
Range("f8").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 13)
Range("f9").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 17)
Range("f10").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 21)
Range("f11").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 25)
Range("f12").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 29)
Range("f13").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 33)
Range("f14").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 37)
Range("f15").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 41)
Range("i6").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 45)
Range("i7").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 49)
Range("i8").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 53)
Range("k6").Copy Destination:=Sheets("sheet1").Range("b65536").End(xlUp).Offset(0, 57)
End Sub

Code: Select all

Sub sent()
   Dim sheet1 As Worksheet, shInput As Worksheet
   Dim lRow As Long
   
   Set sheet1 = Sheets("sheet1")
   Set shInput = Activesheet
   '//หา first blank row ในตารางข้อมูล
   lRow = sheet1.Range("b"&Rows.Count).End(xlUp).Offset(1,0).Row
   '//สั่งหยุดการคำนวณอัตโนมัติ และอื่นๆ
   With Application
      .EnableEvents=False
      .Calculation=xlCalculationManual
      .ScreenUpdating=False
   End With
   With sheet1
      .Cells(lRow,"b").Value=shInput.Range("d5")
      '// ถัดจากบรรทัดนี้ คุณก็พิมพ์เหมือนบรรทัดบน _
      เพียงเปลี่ยนอักษรในเครื่องหมาย " " ด้านซ้าย _
      เป็นคอลัมน์ปลายทาง และเปลี่ยนเซลล์ใน _
      เครื่องหมาย " " ด้านขวา เป็นเซลล์มี่มีข้อมูลต้นทาง _
      ลองดูครับ
   End With
   '//เปิดการคำนวณอัตโนมัติและอื่นๆ
   With Application
      .Calculation=xlCalculationAutomatic
      .EnableEvents=True
      .ScreenUpdating=True
   End With
End Sub