Ghép nối dữ liệu từ sheet của Workbook này sang sheet của Workbook khác

[van_thanh_phong]

Mình biết chủ đề này đã có rồi nhưng vì yêu cầu công việc của mình hơi khác một chút nên mới mở chủ đề mong các thành viên thông cảm nhé!
Được sự giúp đỡ nhiệt tình của Sealand và các thành viên trong diễn đàn mình đã có một form nhập DSHS khá tốt, song khi đưa vào sử dụng lại nảy sinh yêu cầu như sau:
Mình có 1 file gốc ( có nhiều sheet trong đó có sheet DSHS) mình muốn tạo một nút lệnh
(GHÉP NỐI_DSHS) trong form mà khi click vào sẽ hiện thông báo: chọn đường dẫn đến file khác và chọn sheet (có tên DSHS) để ghép nối dữ liệu của sheet đó vào sheet DSHS của file gốc.
Ví dụ: Trong file đính kèm mình muốn ghép nối dữ liệu sheet DSHS của file QLHS_1 vào sheet DSHS của file QLHS. ( 2 sheet ghép nối có cùng cấu trúc ). Chú ý file QLHS_1 có thể ở bất cứ nơi đâu trong máy tính
Xin chân thành cảm ơn !
Mình up file đính kèm mà sao không được !
Vậy nhờ các thành viên làm tạm trên file nào đó nhé ! Mình sẽ cố gắng up file đính kèm lên trong thời gian sớm nhất !

 

[van_thanh_phong]

Hix...không lẽ vấn đề của mình lại đi vào ngõ cụt sao !

 

[sealand]

Hic, gì mà sớm nản thế. phải có thời gian viết chứ. đây là code cho cái nút đó

Private Sub CommandButton13_Click()
Dim Wb As Workbook, Sh1 As Worksheet, Rg As Range
Set Rg = HS.[a65536].End(3).Offset(1)
Application.ScreenUpdating = False
On Error GoTo Loi:
  With Application.FileDialog(msoFileDialogOpen)
  .AllowMultiSelect = False
  .FilterIndex = 2
  .Show
    Set Wb = Application.Workbooks.Open(.SelectedItems(1))
    Set Sh1 = Wb.Worksheets("DSHS")
    Sh1.Range("a5:o5").Resize(Sh1.[a65536].End(3).Row - 4).Copy Rg
 Wb.Close False
  End With
  Set Wb = Nothing: Set Sh1 = Nothing: Set Rg = Nothing
  Exit Sub
Loi:
  MsgBox "Khong the mo file"
End Sub

File vd ở đây http://www.megaupload.com/?d=39E2XC33

 

[van_thanh_phong]

Thanks Sealand nhiều!
Được biết Sealand giờ chỉ...mổ cò thôi mà nhiệt tình vậy!
Chúc Sealand mau chóng khoẻ để tiếp tục góp phần xây dựng diễn đàn thành ngôi trường chung cho người ai yêu Excel và giúp đỡ cho những người chập chững như mình !

 

[van_thanh_phong]

Cho mình hỏi thêm chút nha !
Mình đã không cho xoá và đổi tên sheet rồi.
Bây giờ mình muốn không cho chèn thêm hay xoá cột của 1 sheet chỉ định thì cod như thế nào ?
Không cho xoá hoặc chèn thêm 1 dòng lên trên dòng chỉ định ( trong file đính kèm không cho xoá hay chèn thêm dòng lên trên dòng được tô màu) thì cod như thế nào ?
Thanks !

 

[sealand]

toàn bộ câu hỏi này xem lại prottect sheet là làm được

 

[van_thanh_phong]

Mình đã ghi lại Macro nhưng nó không cho ghi dữ liệu vào cell luôn!
Ý mình là không cho chèn và xoá cột nhưng vẫn edit cell được

 

[sealand]

Trong hộp thoại có đầy đủ lựa chọn mở gì, khoá gì rồi. chỉ việc chọn thôi.

 

[van_thanh_phong]

Mình đã khoá được cột rồi nhưng nó lại khóa luôn cell rỗng hix...vậy thì làm sao mình ghi được dữ liệu vào cell rỗng
Sealand ghi lại Macro dùm mình nhé !

 

[sealand]

Bạn xem huóng dẫn nha

http://www.megaupload.com/?d=0NALRJE4

 

[van_thanh_phong]

Hi ! mình đã sửa được rồi nhưng....bằng cách bỏ frame đi !
Hix...

 

[van_thanh_phong]

Mình tạo Menu mới trên thanh công cụ nhưng khi đưa file sang thư mục khác D thì nút lệnh không có hiệu lực do không tìm thấy Macro.
Mình đã sửa lại Macro nhưng chỉ giải quyết được khi đang ở trong thư mục mình đang sửa thôi, khi chuyển file sang thư mục khác nữa thì....hix...
Vậy có cách nào để menu do mình tạo luôn có hiệu lực khi file nằm bất kì nơi đâu trong máy tính hay không?
Hãy thử chuyển file đính kèm sang thư mục bất kì nào đó xem và kiểm tra dùm nha !
Thanks !