Giúpđỡ:codeghi dữ liệu vào sheet khác nếu chung khóa sẽ hiển thị thông tin giống nhau (1 người xem)

[nglehoang]

Em cũng không biết diễn tả thế nào cho đúng cái điều kiện em cần nữa! các bác xem cả file đính kèm nữa nhé:
em có 2 sheet, sheet "MAIN" và sheet " DATA"
sheet làm bảng nhập, sau khi nhập đủ thông tin sẽ ấn nút save để ghi thông tin sang sheet data, cái này em làm được rồi.
nhưng khi có nhiều loại mã hàng cùng "số phiếu" thì em lại không làm hiển thị được các thông tin chung của "số phiếu" đó

 

[nghiaphuc]

Em cũng không biết diễn tả thế nào cho đúng cái điều kiện em cần nữa! các bác xem cả file đính kèm nữa nhé:
em có 2 sheet, sheet "MAIN" và sheet " DATA"
sheet làm bảng nhập, sau khi nhập đủ thông tin sẽ ấn nút save để ghi thông tin sang sheet data, cái này em làm được rồi.
nhưng khi có nhiều loại mã hàng cùng "số phiếu" thì em lại không làm hiển thị được các thông tin chung của "số phiếu" đó

Bạn dùng code sau xem sao:
[GPECODE=vb]Private Sub CommandButton1_Click()
Dim SL As Long, Rng As Range
On Error Resume Next
Set Rng = [B1:B2,A4:B4,B7:B9].SpecialCells(4)
If Not Rng Is Nothing Then
MsgBox "Chua nhap du du lieu" & Chr(13) & "Kiem tra lai", , "Thong bao"
Else
Set Rng = Sheets("DATA").[C:C].Find([B2], , , xlWhole)
If Not Rng Is Nothing Then
MsgBox "So phieu da ton tai."
Else
SL = [A4:A6].SpecialCells(2).Cells.Count
With Sheets("DATA").[D65500].End(xlUp).Offset(1)
.Resize(SL, 2).Value = [A4].Resize(SL, 2).Value
.Offset(, -3).Resize(SL) = "=Row()-3"
.Offset(, -2).Resize(SL) = [B1]
.Offset(, -1).Resize(SL) = [B2]
.Offset(, 2).Resize(SL) = [B7]
.Offset(, 3).Resize(SL) = [B8]
.Offset(, 4).Resize(SL) = [B9]
End With
End If
End If
End Sub[/GPECODE]

 

[nglehoang]

Thank! bác nhiều, pate công thức vào được luôn. khâm phục, khâm phục.