Tìm và nhập dữ liệu vào ô thỏa mãn điều kiện hàng và cột (1 người xem)

[ntquantn]

Chào các bạn

Mình đang làm 1 userform nhập số lượng hàng theo Mã ở cột B và ngày ở dòng 2.
Khi nhập ngày và mã hàng thì sẽ tìm mã ở cột B, ngày ở dòng 2. (Tạm coi là Mã chính xác, nhập đúng) thì nếu mã chính xác và ngày đã có thì tìm ô giao nhau rồi lấy dữ liệu của ô đó cộng thêm với txtSoluong tại userform. Nếu ngày chưa có thì tại dòng 2 và cột trống đầu tiên sẽ lấy dữ liệu ngày tại ô txtngay và ô giao nhau giữa ngày mới đó và mã thì gán bằng số lượng tại txtSoluong.
Mình viết đoạn code như bên dưới nhưng chạy ko đúng. Mong các bạn hướng dẫn giúp. Mình cảm ơn nhiều.

Private Sub NutThem_Click()
Dim i As Long, j As Long, ma As String, ngay As String, endR As Long, endC As Long
With Sheets("Nhapkhoshop")

endR = .Range("B" & Rows.Count).End(xlUp).Row
endC = .Cells(2, .Columns.Count).End(xlToLeft).Column

For i = 1 To endR
If Cells(i, "B").Value = cobMahang.Value Then
For j = 1 To endC
If Cells(2, j).Value <> txtNgay.Value Then
Cells(2, endC + 1).Value = txtNgay.Value
Cells(i, endC + 1).Value = txtSoluong.Value
Else
Cells(i, j).Formula = Cells(i, j).Value + txtSoluong.Value
End If
Next j
End If
Next i
End With
End Sub