Xin giúp đỡ thêm 1 đoạn code copy giữa 2 workbooks (1 người xem)

[tuanbonus]

sorry BQT, em xóa nội dung bài này!

 

[tuanbonus]

Có anh chị nào giúp tôi với. cám ơn nhiều

 

[Ba Tê]

Dears các anh chị.
tôi có 1 đoạn code copy có điều kiện từ sheet CHITIET qua sheet KETQUA đã chay tốt, nhưng tôi muốn copy trực tiếp từ workbook CHITIET (sheet CHITIET) qua woorkbook KETQUA (sheet KETQUA) luôn, cần phải thêm & khai lại các biến trong đoạn code này, xin các anh chi chỉ giúp. Xin cảm ơn trước.

Nếu chỉ copy 1 sheet từ file.xls này sang file.xls khác thì ở bài #19 ở topic này đã có hướng dẫn bạn rồi, bạn đã làm thử chưa?
http://www.giaiphapexcel.com/forum/...́-điều-kiện-trong-excel&p=408006#post408006
Nếu muốn "Vọc" VBA thì ít nhất bạn cũng phải hiểu được một vài điều cơ bản của VBA chứ. Chỉ có tự mình làm mới đúng "y chang" ý muốn "tất tần tật" của mình thôi, người khác sao hiểu hết "ý đồ" của mình được. (Tôi muốn nói: ý muốn tự động hoá tất tần tật của bạn)
Làm lại nhé:
1- Thêm Sub này vào Module.

Sub Chep()
Application.ScreenUpdating = False
    Windows("CHITIET.xls").Activate
    Sheets("CHITIET").Copy After:=Workbooks("KetQua.xls").Sheets(1)
    Sheets("KetQua").Select
Application.ScreenUpdating = True
End Sub

2- Thêm dòng lệnh Chep vào dòng đầu trong code của CommandButton ở sheet KetQua:

Private Sub CommandButton1_Click()
Chep
GPE
GPE1
End Sub

3- Trước khi ấn nút phải đảm bảo cả 2 file đều đã mở, tôi chỉ kiểm tra được bằng Excel 2003.

 

[tuanbonus]

Nếu chỉ copy 1 sheet từ file.xls này sang file.xls khác thì ở bài #19 ở topic này đã có hướng dẫn bạn rồi, bạn đã làm thử chưa?.........
.

dear anh BATE.
em có add thêm các biến như sau:

Public Sub COPY1()
Dim Rng1(), Rng2(), Arr(), Arr2(), Dic As Object, Dic2 As Object
Dim Ws1 As Excel.Worksheet, WS2 As Excel.Worksheet, I As Long, J As Long, K As Long
Dim oXL As Excel.Application
Dim oWB As Excel.Workbooks
    Set Dic = CreateObject("Scripting.Dictionary")
    Set Dic2 = CreateObject("Scripting.Dictionary")
    Set oXL = CreateObject("Excel.Application")
    Set oWB = oXL.Workbooks
    oWB.Open Filename:="C:\Documents and Settings\tuanht\Desktop\NHAPLIEU\CHITIET.xlsm"
    oWB.Open Filename:="C:\Documents and Settings\tuanht\Desktop\NHAPLIEU\KETQUA.xlsm"
    Set Ws1 = oWB.Item(1).Worksheets("CHITIET")
    Set WS2 = oWB.Item(2).Worksheets("KETQUA")

em Run 2 lần thì chay OK, nhưng sao đó bị lỗi ở chổ:

Arr2(Dic2.Item(Rng1(I, 1) & Rng1(I, 2) & Rng1(I, 4)), Dic.Item(Ws1.Cells(2, J) & Ws1.Cells(3, J)) + 4) = Rng1(I, J)

em vọc hoài không ra, các anh chị mách giúp tôi nó bị thiếu
gì? tks.