Nhờ chỉnh sửa code giúp (1 người xem)

[dodinhkhai]

Chào các anh.
Sau mấy bài viết em hỏi về cách tạo box tìm kiếm danh sách thì em có làm 1 file như đính kèm (file [Hoi] Hoadon.xls).
Trong file có 1 sheet chứa 3 phần: tìm kiếm danh sách khách, nhập danh sách khách.
Cách tìm kiếm thì em tham khảo bài viết: http://www.giaiphapexcel.com/forum/...trên-khác-ngày-sinh-Làm-sao-để-tìm-được-hs-đó
Cách nhập danh sách khách em tham khảo bài viết của boong trong: http://www.giaiphapexcel.com/forum/...ách-nhập-dữ-liệu-trong-Excel-bằng-form-tự-tạo

Nếu mỗi chức năng đó e làm trên 1 sheet (sheet Nhập liệu, sheet Tìm kiếm, sheet CSDL) thì rất ok.
Nhưng khi thiết kế 2 chức năng đó trên cùng 1 sheet Form (xem file đính kèm) thì bị báo lỗi trùng lặp code.

Em muốn nhờ các anh xử lý giúp cái nút bấm Nhập dữ liệu khách hàng (đã mô tả chi tiết trong file đính kèm).
Xin cảm ơn!

 

[Quang_Hải]

Chào các anh.
Sau mấy bài viết em hỏi về cách tạo box tìm kiếm danh sách thì em có làm 1 file như đính kèm (file [Hoi] Hoadon.xls).
Trong file có 1 sheet chứa 3 phần: tìm kiếm danh sách khách, nhập danh sách khách.
Cách tìm kiếm thì em tham khảo bài viết: http://www.giaiphapexcel.com/forum/...trên-khác-ngày-sinh-Làm-sao-để-tìm-được-hs-đó
Cách nhập danh sách khách em tham khảo bài viết của boong trong: http://www.giaiphapexcel.com/forum/...ách-nhập-dữ-liệu-trong-Excel-bằng-form-tự-tạo

Nếu mỗi chức năng đó e làm trên 1 sheet (sheet Nhập liệu, sheet Tìm kiếm, sheet CSDL) thì rất ok.
Nhưng khi thiết kế 2 chức năng đó trên cùng 1 sheet Form (xem file đính kèm) thì bị báo lỗi trùng lặp code.

Em muốn nhờ các anh xử lý giúp cái nút bấm Nhập dữ liệu khách hàng (đã mô tả chi tiết trong file đính kèm).
Xin cảm ơn!

Cho code này vào

Private Sub Import_Click()
Sheet2.[A65536].End(3).Offset(1).Resize(, 7) = Application.Transpose(Sheet1.[F7:F13].Value)
End Sub

 

[ndu96081631]

[h=2]Nhờ chỉnh sửa code giúp[/h]

Suy nghĩ một tiêu đề nào đó cho đúng quy định rồi hẳn gửi bài