Tự động cập nhật dữ liệu

[Duong gia]

Hic... thôi làm luôn cho bạn... Trang trí lại bảng tính nhé... Bạn mở code ra xem.. gần như giống đến 90% code file trên của tôi đấy Còn trục trặc gì chắc bạn tự sửa dc nhỉ ANH TUẤN

Cám ơn Bác Anhtuan1066, hay lắm, đúng y/c của mình rồi. Từ lúc post lên hỏi đến giờ cứ 10 hay 15 phút là mình check 1 lần, mình trông ttin của Bác quá. Không biết bác đang làm việc ở SG hay Hà Nội vậy? Giá như trên GPE này mình truy cập vào mà biết được ttin của mọi người nhỉ (ttin là làm đang làm việc ở miền nào, tỉnh, Tp nào đó mà) Thôi thanks bác rất nhiều.

 

[vumian]

Hi anh Tuan,

Cái file 1 của bác tuy là dùng cột phụ, nhưng về mặc logic nó tốt hơn
Vì sao: Vì khi thêm mã hàng mới mà cứ xuống dòng, khi trở lên dòng trên xóa mã hàng đó đi, thì bên phần LIETKE tự động dồn dòng lên, còn nếu làm như vậy bên file 2 thì LIETKE sẽ là trắng toàn bộ, Vì file 2 nó là mảng, nên ảnh hưởng hết toàn range
File 3 của bác thì oke

Cám ơn bác nhiều

 

[anhtuan1066]

Tôi đã hoàn thiện bài toán tự động cập nhật dử liệu từ bảng 1 và 2 sang bảng 3 theo gợi ý của tigertiger

Private Sub WorkSheet_Change(ByVal Target As Range)
Dim Er1 As Integer, Er2 As Integer, M1 As Integer
Dim Ci1 As Integer, Ci2 As Integer
Dim Ri1 As Integer, Ri2 As Integer
Application.ScreenUpdating = False
    If Not Intersect(Range("B3:E10000", "H3:K10000"), Target) Is Nothing Then
       Er1 = Range("B10000").End(xlUp).Row
       Er2 = Range("H10000").End(xlUp).Row
       Range("M3:Q10000").ClearContents
       For i = 1 To Er1 + Er2 - 4
          If i <= Er1 - 2 Then
                Ri1 = i
                Ci1 = 2
          Else: Ri1 = i - Er1 + 2
                Ci1 = 8
          End If
          For j = i + 1 To Er1 + Er2 - 3
              If j <= Er1 - 2 Then
                    Ri2 = j
                    Ci2 = 2
              Else: Ri2 = j - Er1 + 2
                    Ci2 = 8
              End If
              M1 = 0
              If Cells(Ri1 + 2, Ci1).Value = Cells(Ri2 + 2, Ci2).Value And Cells(Ri1 + 2, Ci1 + 1).Value = Cells(Ri2 + 2, Ci2 + 1).Value Then
                 Exit For
              Else: M1 = 1
              End If
          Next j
          If M1 = 1 Then
             n = n + 1
             Range(Cells(n + 2, 14), Cells(n + 2, 17)).Value = Range(Cells(Ri1 + 2, Ci1), Cells(Ri1 + 2, Ci1 + 3)).Value
             Cells(n + 2, 13).Value = n
          End If
       Next i
    End If
End Sub

Nhờ các bạn xem giúp còn chổ nào ko ổn ko?
Mến
ANH TUẤN

 

[thanhlp2007]

Nhờ các anh chị chỉ giúp.

Giả sử em có file như trên, đính kèm. Nhờ các anh chị chỉ giúp.
Bảng dữ liệu thì nằm trên Sheet1, em muốn lọc ra những chiếc xe hoặc đếm tất cả trong ngày đó có bao nhiêu chiếc xe chạy, mỗi xe chạy chở những gì. Em có ghi chú thích bên Sheet 2. Mong các anh chị chỉ giúp.

 

[tuanlichviet]

chào cả nhà tôi là Tuanlichviet là thành viên mới tôi đã xem bài của các bạn rất lấy làm thích dặc biệt là bài tu động cập nhật dữ liệu từ bảng 1 và bảng 2 vào bảng 3 thực sự bài viết này rất có ý nghĩa với tôi trong công việc vì vậy tôi mong các bạn giúp tôi có thể di chuyển bảng 1 vào Sheet 1 và bảng 2 vào Sheet2 khi ta nhập liệu từ SH1 và Sh2 nó tự động vào Sheet 3 có được không ? Liệu có thể dùng Sh1 , Sh2, Sh3, Sh4, Sh5, Sh6 khi ta nhập liệu nó tự động cập nhật vào 1 Sh7 = Sheet Tổng hợp từ 6 Sheet trên được không? với công việc này tôi thường ngày phải sử dụng lệnh Copy ịvà Paste LinK việc này rất khổ cảm ơn các bạn tôi chờ bài của các bạn..

 

[ndu96081631]

Giả sử em có file như trên, đính kèm. Nhờ các anh chị chỉ giúp.
Bảng dữ liệu thì nằm trên Sheet1, em muốn lọc ra những chiếc xe hoặc đếm tất cả trong ngày đó có bao nhiêu chiếc xe chạy, mỗi xe chạy chở những gì. Em có ghi chú thích bên Sheet 2. Mong các anh chị chỉ giúp.

Bạn dùng AutoFilter đi cho gọn... Filter xong thì copy/paste qua sheet2
Nếu muốn tự động (dùng code) cũng sẽ dựa trên cơ sở này mà làm (khá dể)