Nhập dữ liệu vào bảng thì tự động cập nhập qua sheet khác tương ứng từng loại hàng.

[thlpro]

Hi Mọi Người,

Nhờ mọi người giúp mình nhé. Để àm sao nhập dữ liệu vào bảng thì tự động cập nhập qua sheet khác tương ứng từng loại hàng. Cảm ơn rất nhiều.

 

[huuthang_bd]

Hi Mọi Người,

Nhờ mọi người giúp mình nhé. Để àm sao nhập dữ liệu vào bảng thì tự động cập nhập qua sheet khác tương ứng từng loại hàng. Cảm ơn rất nhiều.

Sao phải dùng nhiều Sheet như vậy. Chỉ cần 1 sheet thôi. Muốn xem mã nào cũng được.

 

[thlpro]

Trước hết cảm ơn bạn huuthang_bd. Dữ liệu đã cập nhập nhưng cái cột T/Date nó ko tự động sắp xếp theo ngày tháng tăng dần. Làm ơn giúp mình tiếp. Với cho mình hỏi VT, và DATA bạn lấy từ đâu ra để gán vào công thức vậy. Cảm ơn nhiều.

 

[minhtri0827]

Trong file bạn vào insert/name/define để xem bác HuuThang định nghĩa VT & Data.
Thân

 

[huuthang_bd]

Trước hết cảm ơn bạn huuthang_bd. Dữ liệu đã cập nhập nhưng cái cột T/Date nó ko tự động sắp xếp theo ngày tháng tăng dần. Làm ơn giúp mình tiếp. Với cho mình hỏi VT, và DATA bạn lấy từ đâu ra để gán vào công thức vậy. Cảm ơn nhiều.

Quên cái sắp xếp. Xem file đính kèm.

 

[phuongc5]

Mình cũng rất muốn làm được như Hữu Thắng, mình gửi file lên mong Thắng giúp mình với nhé!

 

[SA_DQ]

Nhờ mọi người giúp mình nhé. Để làm sao nhập dữ liệu vào bảng thì tự động cập nhập qua sheet khác tương ứng từng loại hàng.

Bạn có thể xài thử cái con macro này & cho ý kiến!

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Columns("E:F")) Is Nothing Then
    Dim sh As Worksheet, Rng As Range
    Dim ShName As String
    
    ShName = Left(Cells(Target.Row, "C").Value, 7)
    Set sh = Worksheets(ShName)
    sh.[a65500].End(xlUp).Offset(1).Resize(, 6).Value = _
            Cells(Target.Row, "A").Resize(, 6).Value
    
    sh.Range("A2:F" & sh.[a65500].End(xlUp).Row).Sort Key1:=sh.[D3], Order1:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, DataOption1:=xlSortNormal
 
 End If
End Sub

 

[volga]

Mình cũng rất muốn làm được như Hữu Thắng, mình gửi file lên mong Thắng giúp mình với nhé!

Mình gióng như người TQ vậy đó .Ai làm cái gì bắt trước theo ...hi hi
Giải thuật của mình kém ,nên chỉ học lóm theo thôi .Bạn cứ làm theo y như Huuthang_bd đi sao đó nghiêng cứu lại công thức của anh ấy xem ,anh ta muốn làm gì trong đó ,Công thức có tác dụng gì .Sau đó áp dụng cho những trường hợp khác của mình ...
Mỗi người có một lối làm khác nhau đó bạn à !Mình làm theo riết củng quen .
Bạn làm theo thử đi ,nếu sai đưa lên nhờ sửa lại thế mới nhanh hiểu vấn đề .
Bạn xem bài của anh :Ndu ,Huuthang_bd,hoangdanh282vn,viendo ....Mỗi người có một lối đi riêng nhưng củng có một mục tiêu ...hi hi
Không biết có đúng không đây ?

 

[phuongc5]

Bạn có thể xài thử cái con macro này & cho ý kiến!

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Columns("E:F")) Is Nothing Then
    Dim sh As Worksheet, Rng As Range
    Dim ShName As String
    
    ShName = Left(Cells(Target.Row, "C").Value, 7)
    Set sh = Worksheets(ShName)
    sh.[a65500].End(xlUp).Offset(1).Resize(, 6).Value = _
            Cells(Target.Row, "A").Resize(, 6).Value
    
    sh.Range("A2:F" & sh.[a65500].End(xlUp).Row).Sort Key1:=sh.[D3], Order1:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, DataOption1:=xlSortNormal
 
 End If
End Sub

Sao em copy đoạn code này dán vào mà không thấy hiện tượng gì nhỉ? Phải có động tác gì thì nó mới hoạt động vậy bác?