Nhờ sửa giùm Code (1 người xem)

[Thaiduc]

Nhờ các anh/chị sửa dùm Code nhập Form của File BANG A.Xls sẽ được ghi dữ liệu vào File BANG B.Xls (Do yêu cầu công việc phải tách riêng thành 02 File, mong thông cảm).
File BANG A.Xls và BANG B.Xls xin đính kèm. Cám ơn.

 

[Quang_Hải]

Nhờ các anh/chị sửa dùm Code nhập Form của File BANG A.Xls sẽ được ghi dữ liệu vào File BANG B.Xls (Do yêu cầu công việc phải tách riêng thành 02 File, mong thông cảm).
File BANG A.Xls và BANG B.Xls xin đính kèm. Cám ơn.

1. Sub Autpen của bạn phải nằm trong 1 module chứ

2. Cho 2 file này vào 1 thư mục nha, khi nhập liệu không cần phải mở workwook (BANG B)

3. Copy code này vào thay code hiện tại của bạn xem sao

Mình cũng không chắc lắm, test kỹ nhé

Private Sub NHAP_Click()
Application.ScreenUpdating = False
If Trim(Me.Hoten.Value) = "" Then
    Me.Hoten.SetFocus
    MsgBox "CHUA NHAP HO VA TEN !", vbCritical + vbOKOnly
Else
  With Workbooks.Open(ThisWorkbook.Path & "\BANG B.xls")
    With .ActiveSheet.[a65536].End(3)
      .Offset(1) = Me.Hoten.Value
      .Offset(1, 1) = Me.Namsinh.Value
      Me.Hoten.Value = ""
      Me.Namsinh.Value = ""
      Me.Hoten.SetFocus
    End With
    .Close True
  End With
End If
Application.ScreenUpdating = True
End Sub

 

[Thaiduc]

Trường hợp ghi ở sheet2 file BANG B.Xls (không phải ghi sheet B) thì code sửa như thế nào. Mong giúp.

 

[Quang_Hải]

Trường hợp ghi ở sheet2 file BANG B.Xls (không phải ghi sheet B) thì code sửa như thế nào. Mong giúp.

Xem câu này

With .ActiveSheet.[a65536].End(3)

Thay thế này xem sao

With .sheets("tên sheet").[a65536].End(3)

Lý thuyết là thay như vậy sẽ được nhưng mình không chắc lắm.