VBA gan dữ liệu cho 2 sheet của 2 workbook (3 người xem)

[killsometime]

Xin chào các bác,
Em có 2 workbook wb1 và wb2 khác nhau,
Bây giờ em muốn gán value của một cell trong wb2 bằng 1 value trong 1 cell cua wb1, vậy các bác có cách nào giúp em vấn đề nay không.
Em xin cảm ơn các bác.

 

[anhtuan1066]

Thì bạn cứ gán bình thường thôi.. Mở 2 wb lên, trong wb1, tại 1 cell bạn gõ dấu = .. xong di chuyển sang wb1, click chọn vào cell bạn cần.. Enter là xong!
ANH TUẤN

 

[nguyentuhp]

' Bạn xem ví dụ sau
' Macro trong workbook2

Sub Test()
' Nếu link công thức thì bạn sử dụng: ActiveCell.FormulaR1C1 = "=[Book1]Sheet1!A1"
' Nếu gán giá trị:
With Workbooks("BOOK1").Worksheets("Sheet1")
ActiveCell = .Cells(1, 1)
' ActiveCell = Range("A1").value
End With
End Sub

 

[killsometime]

Thanks bác nguyentuhp,mấy hôm nay mình cứ mò mẫm mỗi chỗ làm sao copy value mà không biết phải làm sao, may nhờ có bác chỉ giáo. Nhưng có một vấn đề là phải check cái workbook1 đã được open chưa và open nó xong thì activecell không nằm trong workbook2 của mình mà nó đang ở workbook1, như vậy mình sửa lại như sau, mình xin pót lên để các mem mới bắt đầu như mình có thể tham khảo thêm.

sub Copy()
Dim wb As Workbook
Set wb = Workbooks.Open(ThisWorkbook.Path & "\workbook1.xls")
With wb.Worksheets("sheet1")
Windows("workbook2.xls").Activate
Sheets("sheet1").Cells(1, 1) = .Cells(1, 1)
End With
wb.Close
End Sub

Như vậy sẽ ok.
Một vấn đề nữa phát sinh là nếu mình muốn thông tin trong workbook1 không bị xem bởi user (vì một lý do gì đó macro bị dửng giữa chừng chẳng hạn) thì có cách nào để giải quết vấn đề này không, mong các bác giúp đỡ.