lấy dữ liệu từ sheet này lên sheet kia- 2 sheet nằm trong 2 file khác nhau

[ntndvn]

Giúp em lấy dữ liệu từ file Bang ke 04(BK04) lên file Phieu nhap kho( PNK), với điều kiện như sau:
-Không phân biệt người bán trên Bang ke 04 là ai chỉ cần cùng một ngày mua thì có thể đưa lên cùng 1 PNK, ngày khác thì đưa lên PNK khác, hoặc có thể đưa một Bảng kê 04 lên cùng một phiếu nhập kho.
-làm sao để copy công thức sang tháng các tháng sau để dùng.
Xin nhờ các anh chị trong diễn đàn giúp em với hoặc xem qua câu hỏi và chỉ dẫn hướng giải quyết.
Cảm ơn rất nhiều!

 

[nobita8xqah]

Các bác cho e hỏi :
e sử dụng excel 2007.có trong quá trình dùng có đặt password cho từng sheet ,làm cách nào để phá password được nhỉ.
Tks Các bác

 

[saolauqua]

Các bác cho e hỏi :
e sử dụng excel 2007.có trong quá trình dùng có đặt password cho từng sheet ,làm cách nào để phá password được nhỉ.
Tks Các bác

Cách làm trong Excel 2007/2010 như sau: bấm Alt + F11 để hiện ra bảng Visual Basic Editor rồi sau đó copy:
Sub PasswordBreaker()
If ActiveSheet.ProtectContents = False Then
MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
Else
If MsgBox("Sheet '" & ActiveSheet.Name & "' is protected, do you want to unprotect it?", _
vbYesNo + vbQuestion, "Unprotect Active Sheet") = vbNo Then Exit Sub
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
If ActiveSheet.ProtectContents = False Then MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
End If
End Sub