Copy tự động theo điều kiền? (1 người xem)

[Mr.Ticon]

Mình có file như thế này. Mong được mọi người giúp đỡ.

Việc mình cần làm là khi mình gõ ngày vào ô B3 ở sheet Daily thì sẽ tự động copy được các dữ liêụ trong cột tương ứng với ngày đó ở sheet Jul sang cột B và C bên sheet Daily.

Mọi giúp mình với nhé.

Cảm ơn nhiều!

 

[xuan.nguyen82]

Mình có file như thế này. Mong được mọi người giúp đỡ.

Việc mình cần làm là khi mình gõ ngày vào ô B3 ở sheet Daily thì sẽ tự động copy được các dữ liêụ trong cột tương ứng với ngày đó ở sheet Jul sang cột B và C bên sheet Daily.

Mọi giúp mình với nhé.

Cảm ơn nhiều!

Bạn muốn mọi người giúp sao bạn không chịu khó làm một file rồi đưa lên để mọi người lập trên file của bạn nhả!

 

[Mr.Ticon]

Chào bạn xuan.nguyen82

Mình đã đính kèm file rồi đấy. Bạn giúp mình với nhé. Lúc trước mình đã đính kèm nhưng chưa được mà mình không biết. Giúp mình với nhé.

Cảm ơn bạn và mọi người nhiều nhiều !!!

 

[Ba Tê]

Mình có file như thế này. Mong được mọi người giúp đỡ.

Việc mình cần làm là khi mình gõ ngày vào ô B3 ở sheet Daily thì sẽ tự động copy được các dữ liêụ trong cột tương ứng với ngày đó ở sheet Jul sang cột B và C bên sheet Daily.

Mọi giúp mình với nhé.

Cảm ơn nhiều!

File này là của cá nhân bạn, đã cài PassWord "Cứng khừ" thì nhờ ai giúp bây giờ.
Nhiều phần mềm "quá đắt giá" bị khoá "tùm lum" không ai dám "rớ" vào đâu.
Rút kinh nghiệm đi bạn nhé.

 

[Mr.Ticon]

Sorry mọ người vì mình zip nhầm file gốc. Mình đã copy lại file sang file khác không có passWord rồi. Mọi người giúp mình với.
Cảm ơn mọi người nhiều!

 

[concogia]

Sorry mọ người vì mình zip nhầm file gốc. Mình đã copy lại file sang file khác không có passWord rồi. Mọi người giúp mình với.
Cảm ơn mọi người nhiều!

RightClick vào sheet "Daily" ==> ViewCode ==> chép cái này vào

Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long, Vung As Range
    Set Vung = Sheets("Jul").[C3:BK3]
    If Target.Address = "$B$3" Then
        For I = 1 To Vung.Columns.Count Step 2
            If Vung(I) = Target Then [B4].Resize(199, 2).Value = Vung(I).Offset(1).Resize(199, 2).Value: Exit Sub
        Next I
    End If
End Sub

Thân

 

[Mr.Ticon]

Mình đã thử và chạy rất tốt. Cảm ơn bạn rất nhiều!

Cho mình hỏi thêm chút: File này mình mới có dữ liệu của tháng 7. Trường hợp mình làm thêm các tháng khác ở các sheet khác nữa thì có cách nào để không phải copy lại sheet "Daily" mà vẫn chạy được không?

​

 

[concogia]

Mình đã thử và chạy rất tốt. Cảm ơn bạn rất nhiều!

Cho mình hỏi thêm chút: File này mình mới có dữ liệu của tháng 7. Trường hợp mình làm thêm các tháng khác ở các sheet khác nữa thì có cách nào để không phải copy lại sheet "Daily" mà vẫn chạy được không?

​

Được chứ
1)- Dò bằng 2 điều kiện trong sheet "Daily": Ngày & Tháng, các sheet tháng đặt tên khớp với điều kiện tháng
2)- Để nguyên bảng như thế thêm một vòng lặp cho chạy tìm điều kiện trong sheet "Daily"
Nếu bạn không sửa được thì bạn tạo thêm các sheet khác như ý rồi gởi file lên nhé
Thân

 

[Mr.Ticon]

Mình đã tạo thêm các sheet vào file. Bạn giúp mình với nhé. Mình dốt mấy cái này lắm

Cảm ơn bạn nhiều nhiều!

 

[concogia]

Minh da tao them cac sheet vao file. Ban giup minh voi nhe. Minh dot may cai nay lam

Cam on ban nhieu nhieu!

Mình đề nghị tên các sheet tháng viết đủ để code gọn hơn, khỏi phải dùng vòng lặp
Thân
Híc
Bài bạn viết không dấu là phạm quy rồi, bạn sửa lại đi không thì chúng ta cùng vào sọt rác í

 

[Mr.Ticon]

Cảm ơn bạn rất rất nhiều! Bạn thật là giỏi. Mình đã copy code vào file chính và chạy rất ổn.

Tiện đậy cho mình hỏi thêm. Trong dữ liệu các tháng của mình có một số dòng chỉ có dữ liệu của ngày chủ nhật. Do vậy mình muốn khóa 1 số cell của những ngày weekday lại để tránh việc nhầm lẫn khi nhập dữ liệu. Có cách nào để tự động dò xem ngày đó là weekday để khóa cell tương ứng không? hiện tại mình đang phải làm thủ công nên rất mất thời gian.

 

[Mr.Ticon]

Cảm ơn bạn rất rất nhiều! Bạn thật là giỏi. Mình đã copy code vào file chính và chạy rất ổn.

Tiện đậy cho mình hỏi thêm. Trong dữ liệu các tháng của mình có một số dòng chỉ có dữ liệu của ngày chủ nhật. Do vậy mình muốn khóa 1 số cell của những ngày weekday lại để tránh việc nhầm lẫn khi nhập dữ liệu. Có cách nào để tự động dò xem ngày đó là weekday để khóa cell tương ứng không? hiện tại mình đang phải làm thủ công nên rất mất thời gian.