Lưu dữ liệu theo dòng, không lưu trùng lắp lên nhau

[nguyenminhquang]

Dear Các bậc thầy,
Mình có file excel gồm 2 sheet
1) Sheet 1 dùng để update dữ liệu
2) Sheet 2 lưu dữ liệu

Giúp mình làm công thức như sau :

1) Khi update dữ liệu lần I, kết quả sẽ hiện thị trong sheet II theo cột
2) Khi update dữ liệu lần II, kết quả sẽ tự lưu xuống dòng trong sheet II, không trùng lắp
lên kết quả lần I

và lần III, IV cũng vậy
Giúp minh làm sớm nha, vì cả tuần nay mình làm không ra. Mình cần GẤP LẮM

 

[SA_DQ]

Lòng kiên trì bị thử thách & macro của bạn đây

Option Explicit
Sub LuuDuLieu()
 Dim Sh As Worksheet
 Set Sh = Sheet2 'Luu YC'
 If [d5].Value = "" Then
   MsgBox "Ban Càn Nhap Ma", , "GPE Xin Luu Ý!":      Exit Sub
 End If
 With Sh.[A65500].End(xlUp).Offset(1)
   .Value = [d5]:                            .Offset(, 1).Value = [d6]
   .Offset(, 2).Value = [d7]:                .Offset(, 3).Value = [d11]
   .Offset(, 4).Value = [d12]:               .Offset(, 5).Value = [d13]
   .Offset(, 6).Value = [d14]:               .Offset(, 7).Value = [d15]
   .Offset(, 8).Value = [b18]:            .Offset(, 9).Value = [b19]
   .Offset(, 10).Value = [B20]:           .Offset(, 11).Value = [b22]
   .Offset(, 12).Value = [b13]:           .Offset(, 13).Value = [b24]
   .Offset(, 14).Value = [b26]:              .Offset(, 15).Value = [b27]
   .Offset(, 16).Value = [b28]:              .Offset(, 17).Value = [d18]
   .Offset(, 18).Value = [d19]:              .Offset(, 19).Value = [d20]
   .Offset(, 20).Value = [d22]:           .Offset(, 21).Value = [d23]
   .Offset(, 22).Value = [d24]:           .Offset(, 23).Value = [d26]
   .Offset(, 24).Value = [d27]:           .Offset(, 25).Value = [d28]
   .Offset(, 26).Value = [f18]:              .Offset(, 27).Value = [f19]
   .Offset(, 28).Value = [f20]:              .Offset(, 29).Value = [f22]
   .Offset(, 30).Value = [f23]:              .Offset(, 31).Value = [f24]
   .Offset(, 32).Value = [f26]:           .Offset(, 33).Value = [f27]
   .Offset(, 34).Value = [f28]:           .Offset(, 35).Value = [H18]
   .Offset(, 36).Value = [h19]:           .Offset(, 37).Value = [h20]
   .Offset(, 38).Value = [h22]:              .Offset(, 39).Value = [h23]
   .Offset(, 40).Value = [h24]:              .Offset(, 41).Value = [h26]
   .Offset(, 42).Value = [h27]:              .Offset(, 43).Value = [h28]
   .Offset(, 44).Value = [j18]:           .Offset(, 45).Value = [j19]
   .Offset(, 46).Value = [j20]:           .Offset(, 47).Value = [j22]
   .Offset(, 48).Value = [j23]:           .Offset(, 49).Value = [j24]
   .Offset(, 50).Value = [j26]:              .Offset(, 51).Value = [j27]
   .Offset(, 52).Value = [j28]:              .Offset(, 53).Value = [l18]
   .Offset(, 54).Value = [l19]:              .Offset(, 55).Value = [l20]
   .Offset(, 56).Value = [N5]
 End With
End Sub

Lưu í: Còn 2 chỉ tiêu nữa bên trang kết quả không có các trường đó (may quá, nếu không chắc không thể kiên nhẫn được hơn!)

 

[concogia]

Cám ơn bạn đã trả lời cho mình. Vì mình là thành viên mới nên đọc nội quy của diễn đàn chưa kỷ. Sorry nha.

Mình chưa biết sử dụng macro, mình có thể tham khảo như thế nào?

Cũng có thể làm thế này:

Public Sub ww()
Dim Vung As Range, j, i, k, m
Application.ScreenUpdating = False
    With Range("D5:D15")
        .Rows("4:6").EntireRow.Hidden = True
        .SpecialCells(12).Copy
            Sheets("Luu yeu cau").[A5000].End(xlUp)(2).PasteSpecial Transpose:=True
    End With
      Cells.EntireRow.Hidden = False
      Application.CutCopyMode = False
        For i = 1 To 11 Step 2
            Set Vung = Range("a18:a28").Offset(0, i)
                For j = 1 To 11
                    m = Left(Vung(j), 2)
                    If Left(Vung(j), 2) <> "Ch" Then
                        Sheets("Luu yeu cau").Cells(5000, 8).End(xlUp).Offset(0, k + 1) = Vung(j)
                        k = k + 1
                    End If
                Next
        Next
        Sheets("Luu yeu cau").Cells(5000, 8).End(xlUp).Offset(0, 55) = [n5]
Application.ScreenUpdating = True
End Sub

Form nhập có 18 chỉ tiêu sao sheet lưu chỉ có 16? Mình thêm 2 vào nữa cho....dễ làm một tí
Nhập xong, bấm cái nút trắng trắng...tròn tròn nhé.
Không biết khi lưu xong thì bên form xóa hết dữ liệu hay để "u như kỹ". Mình để nguyên đó nhé
Trong sheet "Luu yeu cau" cột H (Số lượng) bắt buộc phải có dữ liệu ( không được để trống)