nhập liệu vào đông thời 2 file (1 người xem)

[Rùa Con 1080]

Chào các AC, em là TV mới, mong các AC chỉ bảo.
Cho em hỏi, em có form nhập liệu để nhập dữ liệu vào Sheet1!A2:F6 của file A (đang mở), vậy có Code nào để đồng thời cũng nhập vào Sheet2!A2:F6 của File B(đang đóng). Mong các AC giúp đỡ.
Cám Ơn Các AC.

 

[SA_DQ]

Mình rất quan tâm iêu cầu của bạn, nhưng ở khía cạnh khác.
Đó là nguyên do sao fải nhập vào 2 file. mà không là 2 trang tính?

 

[anhdepjai]

Mình đẩy dữ liệu theo phương án chủ động (tức là làm nút ấn để đẩy dữ liệu sang. Còn bạn muốn làm bị động thì dùng sự kiện nào đó để đẩy nhé.
STEP 1: check xem file B có dang mở không? Nếu không mở thì mở lên switch từ file A sang rồi đẩy dữ liệu và đóng lại
STEP 2: Nếu file B đang mở cùng file A thì chỉ cần switch sang để đẩy dữ liệu và quay về file A.

Sub pushdata()
Dim i As Long
Dim ws1, ws As Workbook
Filename = ThisWorkbook.Path & "\Data.xlsx" 'Thay doi duong dan cho phu hop
arr = Sheet1.Range("O50:Y81").Value
If Application.Workbooks.Count = 1 Then
With Workbooks.Open(Filename, 0)
With .Sheets("Data")
.UsedRange.ClearContents
.Range("O50").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End With
.Close True
End With
Exit Sub
End If
If Application.Workbooks.Count > 1 Then
For i = 1 To Application.Workbooks.Count
If Workbooks(i).Name = "Data.xlsx" Then ws1 = i
Next
With Workbooks(ws1).Sheets("Data")
.UsedRange.ClearContents
.Range("O50").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End With
Workbooks(ws1).Close True
Exit Sub
End If
End Sub

 

[Rùa Con 1080]

Cám Ơn Anh "anhdepjai", em sẽ thử code của Anh!!!!!
Chúc Anh buổi tối vui vẻ!!!!!!