Tổng hợp dữ liệu theo điều kiện tên sheet.

[vncws99]

Hi anh chị,

E có file gồm:
+ sheet tổng hợp Gồm cột các cty , và các cột dữ liệu
+ sheet số liệu các công ty (với tên sheet là tên công ty)

Cho e hỏi mìmnh dùng VBA như nào để có thể tự động copy dữ liệu từ các sheet từng công ty vào sheet tổng hợp theo điều kiện tương ứng là tên công ty .

Cảm ơn anh/chị nhiều.

 

[Cu Tồ]

dùng VBA như nào để có thể tự động copy dữ liệu từ các sheet từng công ty vào sheet tổng hợp theo điều kiện tương ứng là tên công ty

Bạn thêm tên danh sách công ty ở sheets tổng hợp vào Dictionary .sau đó chạy vòng lặp for each qua các sheets,cứ có tên thuộc danh sách thì thì lấy dữ liệu qua sheets tổng hợp

 

[Nhattanktnn]

Hi anh chị,

E có file gồm:
+ sheet tổng hợp Gồm cột các cty , và các cột dữ liệu
+ sheet số liệu các công ty (với tên sheet là tên công ty)

Cho e hỏi mìmnh dùng VBA như nào để có thể tự động copy dữ liệu từ các sheet từng công ty vào sheet tổng hợp theo điều kiện tương ứng là tên công ty .

Cảm ơn anh/chị nhiều.

Nếu dữ liệu kiểu như vậy thì code này vừa đủ:

Option Explicit
Sub TongHop()
Dim Clls As Range, Rng As Range, Ws As Worksheet
Set Rng = Sheets("Tonghop").Range("D4", Sheets("Tonghop").Cells(1000, "D").End(xlUp))
For Each Clls In Rng
    Set Ws = Sheets(Clls.Value)
    Clls.Offset(, 1).Resize(, 3).Value = Ws.Range("E4:G4").Value
Next
End Sub

 

[Maika8008]

Nếu dữ liệu kiểu như vậy thì code này vừa đủ:

Option Explicit
Sub TongHop()
Dim Clls As Range, Rng As Range, Ws As Worksheet
Set Rng = Sheets("Tonghop").Range("D4", Sheets("Tonghop").Cells(1000, "D").End(xlUp))
For Each Clls In Rng
    Set Ws = Sheets(Clls.Value)
    Clls.Offset(, 1).Resize(, 3).Value = Ws.Range("E4:G4").Value
Next
End Sub

Ngắn gọn thật.

 

[vncws99]

Nếu dữ liệu kiểu như vậy thì code này vừa đủ:

Option Explicit
Sub TongHop()
Dim Clls As Range, Rng As Range, Ws As Worksheet
Set Rng = Sheets("Tonghop").Range("D4", Sheets("Tonghop").Cells(1000, "D").End(xlUp))
For Each Clls In Rng
    Set Ws = Sheets(Clls.Value)
    Clls.Offset(, 1).Resize(, 3).Value = Ws.Range("E4:G4").Value
Next
End Sub

Ừ nhỉ , Nhanh quá, e ngồi đưa vào mảng các kiểu sai lên sai xuống . Camơn bác nhé