Nhờ viết giùm code copy dữ liệu (1 người xem)

[nguyen_thi_dieu]

File Excel có 4 sheet:
1.Sheet Bang Ma là sheet chứa các mã cho các đối tượng ở sheet CSDL, cái này Anh không cần quan tâm chi.
2.Sheet CSDL là sheet chứa dữ liệu mà mình đưa vào và bay giờ cần Anh viết một nút cập nhật khi ta xóa dữ liệu cũ, bỏ dữ liệu mới vào thì nó cập nhật dữ liệu mới.
3.Sheet tên Sheet Loc là sheet chứa dữ liệu lọc của các xã ở Sheet CSDL
4.Sheet Tínn toán là sheet dùng để tính toán ạ.
Bây giờ yêu cầu là: Vào sheet CSDL lọc ra xã A, sau đấy copy dữ liệu của xã A vào Sheet Loc chỉ copy từ hàng thứ 2 trở đi thôi do hàng tiêu đề đã có sẵn trong Sheet Loc rồi, sau đấy copy vào Sheet Loc, sau đấy Sheet Tinh toan nó sẽ tự tính cho xã A (do trong sheet tính toán em đã dùng công thức tính nó liên quan tới Sheet Loc), sau khi tính xong copy toàn bộ dữ liệu của sheet Tinh toan ra thành một sheet mới và đặt tên sheet mới là kết quả xã A. Sau đấy tiếp tục lọc xã B trong sheet CSDL ra và copy sang Sheet Loc đương nhiên là phải xóa dữ liệu của xã A lúc nãy trong Sheet Loc đi chỉ giữ lại phần tiêu đề màu đỏ thôi, sau đấy ở sheet Tinh toan nó sẽ tính toán cho xã B, sau khi tính xong nó copy ra một sheet mới và đặt tên là kết quả xã B. Lọc cho đến khi nào hết xã thì thôi.
Còn đây là link video mô tả cách làm ạ
https://www.youtube.com/watch?v=y0CtFp_W4fo
Xin cảm ơn!

 

[nguyen_thi_dieu]

File Excel có 4 sheet:
1.Sheet Bang Ma là sheet chứa các mã cho các đối tượng ở sheet CSDL, cái này Anh không cần quan tâm chi.
2.Sheet CSDL là sheet chứa dữ liệu mà mình đưa vào và bay giờ cần Anh viết một nút cập nhật khi ta xóa dữ liệu cũ, bỏ dữ liệu mới vào thì nó cập nhật dữ liệu mới.
3.Sheet tên Sheet Loc là sheet chứa dữ liệu lọc của các xã ở Sheet CSDL
4.Sheet Tínn toán là sheet dùng để tính toán ạ.
Bây giờ yêu cầu là: Vào sheet CSDL lọc ra xã A, sau đấy copy dữ liệu của xã A vào Sheet Loc chỉ copy từ hàng thứ 2 trở đi thôi do hàng tiêu đề đã có sẵn trong Sheet Loc rồi, sau đấy copy vào Sheet Loc, sau đấy Sheet Tinh toan nó sẽ tự tính cho xã A (do trong sheet tính toán em đã dùng công thức tính nó liên quan tới Sheet Loc), sau khi tính xong copy toàn bộ dữ liệu của sheet Tinh toan ra thành một sheet mới và đặt tên sheet mới là kết quả xã A. Sau đấy tiếp tục lọc xã B trong sheet CSDL ra và copy sang Sheet Loc đương nhiên là phải xóa dữ liệu của xã A lúc nãy trong Sheet Loc đi chỉ giữ lại phần tiêu đề màu đỏ thôi, sau đấy ở sheet Tinh toan nó sẽ tính toán cho xã B, sau khi tính xong nó copy ra một sheet mới và đặt tên là kết quả xã B. Lọc cho đến khi nào hết xã thì thôi.
Còn đây là link video mô tả cách làm ạ
https://www.youtube.com/watch?v=y0CtFp_W4fo
Xin cảm ơn!

Có ai giúp giùm với
Xin cảm ơn!

 

[tamthat]

File Excel có 4 sheet:
1.Sheet Bang Ma là sheet chứa các mã cho các đối tượng ở sheet CSDL, cái này Anh không cần quan tâm chi.
2.Sheet CSDL là sheet chứa dữ liệu mà mình đưa vào và bay giờ cần Anh viết một nút cập nhật khi ta xóa dữ liệu cũ, bỏ dữ liệu mới vào thì nó cập nhật dữ liệu mới.
3.Sheet tên Sheet Loc là sheet chứa dữ liệu lọc của các xã ở Sheet CSDL
4.Sheet Tínn toán là sheet dùng để tính toán ạ.
Bây giờ yêu cầu là: Vào sheet CSDL lọc ra xã A, sau đấy copy dữ liệu của xã A vào Sheet Loc chỉ copy từ hàng thứ 2 trở đi thôi do hàng tiêu đề đã có sẵn trong Sheet Loc rồi, sau đấy copy vào Sheet Loc, sau đấy Sheet Tinh toan nó sẽ tự tính cho xã A (do trong sheet tính toán em đã dùng công thức tính nó liên quan tới Sheet Loc), sau khi tính xong copy toàn bộ dữ liệu của sheet Tinh toan ra thành một sheet mới và đặt tên sheet mới là kết quả xã A. Sau đấy tiếp tục lọc xã B trong sheet CSDL ra và copy sang Sheet Loc đương nhiên là phải xóa dữ liệu của xã A lúc nãy trong Sheet Loc đi chỉ giữ lại phần tiêu đề màu đỏ thôi, sau đấy ở sheet Tinh toan nó sẽ tính toán cho xã B, sau khi tính xong nó copy ra một sheet mới và đặt tên là kết quả xã B. Lọc cho đến khi nào hết xã thì thôi.
Còn đây là link video mô tả cách làm ạ
https://www.youtube.com/watch?v=y0CtFp_W4fo
Xin cảm ơn!

Bạn xem file đính kèm nhé. Nhớ nhập tên xã cho đúng ạ. Tên xã mà là tiếng việt cũng chịu nốt.
P/s: Tôi làm xong cho bạn mới xem youtube. Không biết bạn có biết chạy vba không, nếu không biết thì search mạng nhé. Trong file có sẵn VBA đấy bạn ah! ^^

 

[nguyen_thi_dieu]

Bạn xem file đính kèm nhé. Nhớ nhập tên xã cho đúng ạ. Tên xã mà là tiếng việt cũng chịu nốt.
P/s: Tôi làm xong cho bạn mới xem youtube. Không biết bạn có biết chạy vba không, nếu không biết thì search mạng nhé. Trong file có sẵn VBA đấy bạn ah! ^^

Cảm ơn bạn! Nhưng code của bạn viết nó chưa được đúng, do mình cần làm theo như cái ở mô phỏng như video z đấy xin cảm ơn

 

[tamthat]

Cảm ơn bạn! Nhưng code của bạn viết nó chưa được đúng, do mình cần làm theo như cái ở mô phỏng như video z đấy xin cảm ơn

Không đúng chỗ nào vậy bạn?

 

[nguyen_thi_dieu]

Không đúng chỗ nào vậy bạn?

ý là từ sheet CSDL mình lọc lân lượt dữ liệu các xã ra sau đó bỏ lần lượt dữ liệu các xã vào Sheet Lọc, sau đấy sheet Tính toán nó sẽ tính lần lượt cho các xã, rồi nó copy kết quả tính toán được từ Sheet Tính toán ra thành một sheet mới và đặt tên theo kết quả xã đấy.Hihi
Cảm ơn nha!

 

[nguyen_thi_dieu]

Không đúng chỗ nào vậy bạn?

Nó làm dạng giống như cái video z đấy.

 

[tamthat]

ý là từ sheet CSDL mình lọc lân lượt dữ liệu các xã ra sau đó bỏ lần lượt dữ liệu các xã vào Sheet Lọc, sau đấy sheet Tính toán nó sẽ tính lần lượt cho các xã, rồi nó copy kết quả tính toán được từ Sheet Tính toán ra thành một sheet mới và đặt tên theo kết quả xã đấy.Hihi
Cảm ơn nha!

Bạn nên xem lại file. Hay bạn muốn nó làm 1 lần xong các xã luôn? Hiện tại, code trên bạn phải nhập tên xã vào, nó sẽ tự động làm các việc còn lại. Còn tôi chả thấy nó khác video chỗ nào.
Ý bạn là sao? Làm một phát xong cho tất cả các xã hay bạn thích xã nào thì bạn điền nó vào (như code trên?)
Còn thực sự bạn muốn làm các bước kiểu lọc như của video, bạn nên recod macro!

 

[nguyen_thi_dieu]

Bạn nên xem lại file. Hay bạn muốn nó làm 1 lần xong các xã luôn? Hiện tại, code trên bạn phải nhập tên xã vào, nó sẽ tự động làm các việc còn lại. Còn tôi chả thấy nó khác video chỗ nào.
Ý bạn là sao? Làm một phát xong cho tất cả các xã hay bạn thích xã nào thì bạn điền nó vào (như code trên?)
Còn thực sự bạn muốn làm các bước kiểu lọc như của video, bạn nên recod macro!

Vâng ý là bấm một lần là ra các xã, nếu bạn có nhã ý thì giúp, không cũng không sao. Cảm ơn!

 

[nguyen_thi_dieu]

Option Explicit
Sub GPE()
Dim Dic As Object, Tmp As String
Dim I As Long, K As Long, Arr, dArr, fArr
With Sheet1
    Arr = .Range(.[F2], .[F65000].End(3)).Value
End With
ReDim dArr(1 To UBound(Arr), 1 To 1)
Set Dic = CreateObject("Scripting.Dictionary")
With Dic
    For I = 1 To UBound(Arr, 1)
    If Arr(I, 1) <> Empty Then
        Tmp = Arr(I, 1)
        If Not .Exists(Tmp) Then
            K = K + 1
            .Add Tmp, K
            dArr(K, 1) = Arr(I, 1)
        End If
    End If
    Next I
End With
With Sheet4
    .Range("BA2:BA65000").ClearContents
    If K Then .Range("BA2").Resize(K, 1) = dArr
    fArr = .Range(.[BA2], .[BA65000].End(3)).Value
End With
With Sheet1
    For I = 1 To UBound(fArr)
        .Range(.[A1], .[A65000].End(3)).Resize(, 51).AutoFilter 6, fArr(I, 1)
        .Range(.[A2], .[A65000].End(3)).Resize(, 51).SpecialCells(xlCellTypeVisible).Copy Sheet4.[A2]
        Sheets.Add After:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = fArr(I, 1)
        Sheet2.Cells.Copy
        Sheets(Sheets.Count).[A1].PasteSpecial Paste:=xlPasteAll
        Sheets(Sheets.Count).Cells.Copy
        Sheets(Sheets.Count).[A1].PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    Next I
        .AutoFilterMode = False
End With
    Sheet4.Range("BA2:BA65000").ClearContents
End Sub

Cảm ơn Bạn, bạn làm đúng rồi
Xin cảm ơn!

 

[nguyen_thi_dieu]

Bạn nên xem lại file. Hay bạn muốn nó làm 1 lần xong các xã luôn? Hiện tại, code trên bạn phải nhập tên xã vào, nó sẽ tự động làm các việc còn lại. Còn tôi chả thấy nó khác video chỗ nào.
Ý bạn là sao? Làm một phát xong cho tất cả các xã hay bạn thích xã nào thì bạn điền nó vào (như code trên?)
Còn thực sự bạn muốn làm các bước kiểu lọc như của video, bạn nên recod macro!

Mình cũng cảm ơn bạn nhiều nha!
Bạn cũng đã tận tình giúp đỡ mình
Xin cảm ơn
Chúc bạn buổi chiều có nhiều niềm vui bên gia đình và người thân ạ
Một lần nữa xin cảm ơn bạn ạ
Bạn hpkhuong đã giúp mình được rồi. Hihi

 

[tamthat]

Mình cũng cảm ơn bạn nhiều nha!
Bạn cũng đã tận tình giúp đỡ mình
Xin cảm ơn
Chúc bạn buổi chiều có nhiều niềm vui bên gia đình và người thân ạ
Một lần nữa xin cảm ơn bạn ạ
Bạn hpkhuong đã giúp mình được rồi. Hihi

ok. Tôi cũng không rõ bạn định bấm 1 phát ra tất hay là làm từng phát. Ko sao cả. Lần sau bạn cứ yêu cầu rõ ràng là ok ngay!

 

[nguyen_thi_dieu]

Cảm ơn Bạn, bạn làm đúng rồi
Xin cảm ơn!

Bạn hpkhuong có thể sẵn giải thích ý nghĩa của các đoạn code trên giùm mình luôn được không. Mình cũng đang tìm hiểu mong bạn giải thích giùm. Hihi, xin cảm ơn!

 

[nguyen_thi_dieu]

Tôi chỉ giúp bạn về việc code. Còn việc giải thích thì không nên tí nào
P/s: Tôi nói thật, tôi rất dị ứng với cách hỏi của bạn. Tôi đã từng khuyên bạn ở 1 số topic trước của bạn. Nhưng bạn cũng vẫn vậy...

Bởi vì như vậy đó...nên topic của bạn (topic này) có ai ngó tới và làm cho bạn đâu... Tại giờ có người lôi lên tôi mới thấy... Tôi xem thì thấy đã mấy ngày rồi...không ai giúp thì tôi giúp...

Cái gì chưa biết thì từ từ học rồi sẽ biết, chứ không có cái kiểu đi hỏi bài như mấy topic trước....

Chào ban!

Vâng, mình biết rồi, cảm ơn ạ