lỗi copy (2 người xem)

[gakon001]

Private Sub cmdload_Click()
On Error Resume Next
With Application.FileDialog(1)
.Filters.Clear
.Filters.Add

 

[viehoai]

Private Sub cmdload_Click()
On Error Resume Next
With Application.FileDialog(1)
.Filters.Clear
.Filters.Add "Excel Files", "*.xls", 1
.Show: .AllowMultiSelect = False
Workbooks.Open .SelectedItems(1)
End With

If Worksheets("sheet1").Range("A1").Value = "" And Worksheets("sheet1").Range("A2").Value = "" Then
MsgBox "vui long chon lai file"
Else
'load du lieu phan tich theo mua
i = 1
j = 1
While Sheets("sheet1").Range("A1").Offset(i - 1, j - 1).Value <> ""
j = j + 1
Wend
j = j - 1
While Sheets("sheet1").Range("A" & i).Value <> ""
i = i + 1
Wend
i = i - 1

Sheets("sheet1").Range("A" & 1 & ":S" & i).Select
Selection.Copy

Windows("detaidubao.xls").Worksheets("load").Select
Range("A1").Select
ActiveSheet.Paste
End If


End Sub

Em copy bảng dữ liệu từ sheet dc chọn sang sheet "load" của file excel "detaidubao", nhưng ko hiểu sao lúc chạy dc lúc không, còn bây giờ thì lỗi. Các bạn giúp em với

Bạn nên đưa file lên để mọi người test thuận lợi hơn

 

[gakon001]

link: http://www.mediafire.com/?0cfeynmzsmbjf4n
đoạn này em viết trong form main2, nút lệnh "load dữ liệu"
file đính kèm để bị load bởi file "detaidubao": http://www.mediafire.com/?h6ejt7zmljfu563

 

[viehoai]

link: http://www.mediafire.com/?0cfeynmzsmbjf4n
đoạn này em viết trong form main2, nút lệnh "load dữ liệu"
file đính kèm để bị load bởi file "detaidubao": http://www.mediafire.com/?h6ejt7zmljfu563

Qua 2 file bạn gửi cụ thể mục đích của bạn là copy A1:E6 của tệp tin file sang sheet Load của tệp tindetaidubao phải không
Nếu vậy ta thực hiện
1. Mở file "file"
2. Copy dữ liệu trong file và dán vào sheet load file tinde
3. đóng file "file"
Mình thấy code cuối cùng bạn cần là

 Sheets("sheet1").Range("A" & 1 & ":S" & i).Select
    Selection.Copy
        Windows("detaidubao.xls").Worksheets("load").Select
    Range("A1").Select
    ActiveSheet.Paste
    Me.cmdvao.Enabled = True

lại không liên quan việc xác định J trong các dòng code trên nó?

 

[gakon001]

do file đang trong giai đoạn thử nghiệm, nên mình tìm luôn j mình copy đoạn code đó vào, vẫn ko chạy dc bạn ạ