Lệnh nào để đưa tên vào danh sách trong bảng tổng hợp (2 người xem)

[langthangmang]

Vậy theo bạn là THIẾU cái gì? Chạy không được là thế nào? Bạn nói rõ xem!

Khi Click chuột vào Command Button Trích thì nó chỉ lọc được có tiêu đề và Msgbox như hình. Mình chẳng biết tại sao ?
Bạn xem giải thích dùm nha
Thân chào

 

[ndu96081631]

Khi Click chuột vào Command Button Trích thì nó chỉ lọc được có tiêu đề và Msgbox như hình. Mình chẳng biết tại sao ?
Bạn xem giải thích dùm nha
Thân chào

Thế sao bạn không đưa nguyên file excel lên đây xem thử nó sai chổ nào ---> Bạn đưa tấm hình lên thì biết gì chứ
Bạn đã chạy code tôi đưa ở bài trên chưa
Nếu bạn làm chưa được, chứng tỏ bạn đã sai chổ nào đó trong toàn bộ quá trình, chứ không thể có chuyện Consolidate bị sai

 

[sealand]

Bạn thử dowm hẳn file về máy rồi hãy mở kiểm tra vì file của bạn chạy dưới chế độ readonly e không ổn.

 

[tam8678]

Thì như vầy đi

Sub TrichLoc()
  Sheet2.Range("A:D").ClearContents
  With Sheet1.Range("A1").CurrentRegion.Offset(1)
    Sheet2.[A1:D1].Value = .Resize(1).Offset(-1).Value
    Sheet2.Range("A2").Consolidate "'" & .Parent.Name & "'!" & .Address(, , 2), 9, 0, 1
  End With
End Sub

Mỗi khi thêm dử liệu mới vào, bạn chạy lại code là xong!
Bạn thực hiện record macro là tốt rồi, nhưng sau đó cũng phải chỉnh lại code mới có thể đạt hiệu quả bạn à!

----------
Cám ơn bạn nhiều, nhưng mình kém quá nên không hiểu nổi. Nếu được NDU có thể giải thích giúp mình đoạn code chổ này không ?
Sheet2.Range("A2").Consolidate "'" & .Parent.Name & "'!" & .Address(, , 2), 9, 0, 1

 

[ndu96081631]

----------
Cám ơn bạn nhiều, nhưng mình kém quá nên không hiểu nổi. Nếu được NDU có thể giải thích giúp mình đoạn code chổ này không ?
Sheet2.Range("A2").Consolidate "'" & .Parent.Name & "'!" & .Address(, , 2), 9, 0, 1

.Parent.Name ---> Là tên sheet
.Address(,,2) ---> Là địa chỉ cell theo dạng R1C1 (bạn ghi macro cũng thấy điều này mà)
Số 9 ---> Tương đương với hàm SUM (số trong này trùng với số của hàm SUBTOTAL ấy)
Số 0 tiếp theo ---> Không lấy Top Row
Số 1 cuối cùng ---> Lấy Left Column
0 và 1 có thể viết thành FALSE và TRUE cũng được
Sở dỉ tôi thêm dấu nháy đơn ở đầu và cuối Parent.Name ("'" & .Parent.Name và "'!" ) là đề phòng trường hợp tên sheet có khoảng trắng hoặc tên sheet là tiếng Việt có dấu

 

[langthangmang]

Bạn thử dowm hẳn file về máy rồi hãy mở kiểm tra vì file của bạn chạy dưới chế độ readonly e không ổn.

Đúng như thế mình chỉ chạy ở chế độ " readonly e không ổn "
Cảm ơn các bạn Sealand
Qua đó bạn giải thích cụ thể được không, vì thông thường mình thử chạy trong chế độ readonly nếu thấy cẩn thiết mình mới tải về.
Thân chào

 

[lolemcachcach]

các bác ơi, cho em hỏi với em có file như dưới đây có 1 sheet là "CSDL" gồm dữ liệu của các xã trong một huyện, em muốn excel lọc và tổng hợp tự động dữ liệu tổng của từng huyện nhưng vì dòng tiêu đề có Merge nên em chưa biết làm thế nào. Và dữ liệu còn nhiều huyện nữa nhưng em lấy ví dụ thế nhờ các bác giúp
Trình độ của em i tờ lắm, mong các pro chỉ giáo dùm