Page 1 of 1
Copy ข้อมูลข้าม Sheet
Posted: Mon Apr 08, 2013 3:57 pm
by jaruek
ผมลองเขียน VBA Copy ข้อมูลข้าม Sheet แต่ขึ้น Error ครับ
ต้องการให้ Copy ข้อมูลจาก Sheet DATA ไป Sheet HIS โดยให้ข้อมูลจาก Sheet DATA มาต่อท้ายใน Sheet HIS ครับ (ตามไฟล์ตัวอย่างแนบ)
Re: Copy ข้อมูลข้าม Sheet
Posted: Mon Apr 08, 2013 5:01 pm
by snasui
ที่ Error เพราะว่ายังไม่มีชื่อ Procedure ครับ
Option Explicit มีเพื่อจะกำหนดว่าต้องประกาศตัวแปรให้กับโปรแกรม จะเขียนโดยไม่ประกาศตัวแปรไม่ได้
Re: Copy ข้อมูลข้าม Sheet
Posted: Mon Apr 08, 2013 5:36 pm
by jaruek
snasui wrote: ที่ Error เพราะว่ายังไม่มีชื่อ Procedure ครับ
Option Explicit มีเพื่อจะกำหนดว่าต้องประกาศตัวแปรให้กับโปรแกรม จะเขียนโดยไม่ประกาศตัวแปรไม่ได้
ขอบคุณครับ กำหนด Prodedure แล้วขึ้น Error หาตัวแปรไม่เจอครับจะต้องกำหนดอย่างไรครับ (ตามไฟล์แนบ)
Re: Copy ข้อมูลข้าม Sheet
Posted: Mon Apr 08, 2013 6:19 pm
by tupthai
x=4
ข้อมูลแถวแรกในชีทDATA ที่ใช้ตรวจสอบค่าคือแถวที่ 4
Re: Copy ข้อมูลข้าม Sheet
Posted: Mon Apr 08, 2013 9:36 pm
by jaruek
tupthai wrote:x=4
ข้อมูลแถวแรกในชีทDATA ที่ใช้ตรวจสอบค่าคือแถวที่ 4
ขึ้น erroe ที่บรรทัด eRow ครับ Varible not defind
Sub CopyData_click()
Dim x As Integer
x = 4
Do While Cells(x, 1) <> ""
If Cells(x, 1) <> "" Then
Worksheets("DATA").Rows(x).Copy
Worksheets("HIS").Activate
erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ActiveSheet.Paste Destination:=Worksheets("HIS").Rows(erow)
End If
Worksheets("DATA").Activate
x = x + 1
Loop
End Sub
Re: Copy ข้อมูลข้าม Sheet
Posted: Mon Apr 08, 2013 9:41 pm
by jaruek
jaruek wrote:tupthai wrote:x=4
ข้อมูลแถวแรกในชีทDATA ที่ใช้ตรวจสอบค่าคือแถวที่ 4
ขึ้น erroe ที่บรรทัด eRow ครับ Varible not defind
Sub CopyData_click()
Dim x As Integer
x = 4
Do While Cells(x, 1) <> ""
If Cells(x, 1) <> "" Then
Worksheets("DATA").Rows(x).Copy
Worksheets("HIS").Activate
erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ActiveSheet.Paste Destination:=Worksheets("HIS").Rows(erow)
End If
Worksheets("DATA").Activate
x = x + 1
Loop
End Sub
ได้แล้วครับ ผมลืมมาร์คบรรทัดตัวแปรออกครับ ขอบคุณมากครับ