xác nhập dữ liệu từ các shet ? (1 người xem)

[mr.quanglv]

các bác giúp em tổng hợp dữ liệu của sheets "sơn tm" "thiên kim" "thuận hiệp"........ tất cả dữ liệu vào sheet "Tổng Hợp" e đã làm demo file đính kèm, cty em bh có hàng trăm khách hàng nếu cuối tháng tổng hợp dự liệu của từng nhà 1 bằng cách "Copy" "Pase " rất lấu ạ, thanhks

 

[minhduongct]

ý bạn là tổng hợp vào 1 sheet rồi sau đó cuối tháng xem chi tiết của từng nhà đúng k?

 

[mr.quanglv]

ý bạn là tổng hợp vào 1 sheet rồi sau đó cuối tháng xem chi tiết của từng nhà đúng k?

văng ạ, ý em là tổng hợp tất cả các sheets đó thành 1 sheet tổng hợp như fiuloe đính kèm ý bác a

 

[minhduongct]

văng ạ, ý em là tổng hợp tất cả các sheets đó thành 1 sheet tổng hợp như fiuloe đính kèm ý bác a

Vậy tại sao bác lại không nhập nó trên 1 sheet tổng hợp rồi kết xuất nó thành chi tiết, cứ tạo validation chọn tên nhà nào rồi nó tự chạy ra chi tiết nhập xuất doanh thu của từng nhà đó

 

[quanluu]

các bác giúp em tổng hợp dữ liệu của sheets "sơn tm" "thiên kim" "thuận hiệp"........ tất cả dữ liệu vào sheet "Tổng Hợp" e đã làm demo file đính kèm, cty em bh có hàng trăm khách hàng nếu cuối tháng tổng hợp dự liệu của từng nhà 1 bằng cách "Copy" "Pase " rất lấu ạ, thanhks

Những bài dạng này có rất nhiều, bạn chịu khó search cho lần sau nhé
Note: Đổi sheet "Tổng Hợp" thành "TongHop" nhé

Sub gop()
Dim sh As Worksheet
With Sheets("TongHop")
For Each sh In Worksheets
    If sh.Name <> "TongHop" Then
        sh.Range("B2:U" & sh.Range("B65000").End(3).Row).Copy .Range("B" & .Range("B65000").End(3).Row + 1)
    End If
Next
End With
End Sub

 

[mr.quanglv]

Vậy tại sao bác lại không nhập nó trên 1 sheet tổng hợp rồi kết xuất nó thành chi tiết, cứ tạo validation chọn tên nhà nào rồi nó tự chạy ra chi tiết nhập xuất doanh thu của từng nhà đó

Nhưng e là kế toán mới. Số sách cty e trước là vậy rùi. Sếp e bảo là bh cuối tuần báo cáo lượng nhập cho sếp. Nếu ngồi thủ công thì lấy . vs lại tạo tất cả trong 1 sheet. Làm công nợ của từng nhà khó bác a.a có cách hay chỉ giáo e.

 

[mr.quanglv]

Những bài dạng này có rất nhiều, bạn chịu khó search cho lần sau nhé
Note: Đổi sheet "Tổng Hợp" thành "TongHop" nhé

Sub gop()
Dim sh As Worksheet
With Sheets("TongHop")
For Each sh In Worksheets
    If sh.Name <> "TongHop" Then
        sh.Range("B2:U" & sh.Range("B65000").End(3).Row).Copy .Range("B" & .Range("B65000").End(3).Row + 1)
    End If
Next
End With
End Sub

Bác ơi. Code này cho vào đâu a. Bác có bit link bài nào tương tự ko a. E cũng tìm rồi ko ra. Vs lại e mới ra trùi chưa bit nhiều thanks bac

 

[quanluu]

Bác ơi. Code này cho vào đâu a. Bác có bit link bài nào tương tự ko a. E cũng tìm rồi ko ra. Vs lại e mới ra trùi chưa bit nhiều thanks bac

Bạn tìm hiểu về VBA đi. Bạn Alt + F11, Insert module, past code rùi ấn run (f5)

 

[mr.quanglv]

Bạn tìm hiểu về VBA đi. Bạn Alt + F11, Insert module, past code rùi ấn run (f5)

e làm đc rồi thanks bác