Nhờ hỗ trợ đem công thức Vlookup qua bảng excel đã tách (1 người xem)

[Phuong0907357642]

Nhờ các anh chị hỗ trợ
Em đã nhờ viết VBA cho việc tách các nhân viên thuộc cửa hàng ra thành từng file tương ứng là: 1 file là của cửa hàng trong đó từng sheet là của nhân viên
Nhưng em có nhận đổi hàng nếu sản phẩm hư hỏng và theo giá em quy định. Giá em quy định là Sheet kế bên trong file tổng
Em gặp vấn đề là:
Khi em tách từng cửa hàng thì từ sản phẩm đổi thì mất hết công thức Vlookup từ sheet hàng đổi qua cho từng nhân viên trong cửa hàng đó
Nhờ các anh chị hướng dẫn giúp em là làm cách nào khi em tách từng file excel cho từng cửa hàng và từng sheet trong đó là nhân viên của cửa hang đó mà nó vẫn lấy sheet "đổi hàng" qua" và có công thức em đã tạo luôn ah

Em gởi tham khảo file em tách từng file ah:
Public Sub GPE()
Dim Dic As Object, Tmp1 As String, Tmp2 As String, Arr, Path As String
Dim I As Long, WbMain As Workbook, Z As Long, ShMain As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set WbMain = ThisWorkbook
Set ShMain = WbMain.Sheets("DATA_KETOAN")
Path = ActiveWorkbook.Path
On Error Resume Next
ShMain.ShowAllData
Arr = ShMain.Range("A1").CurrentRegion.Value
Set Dic = CreateObject("Scripting.Dictionary")
For I = 2 To UBound(Arr)
Tmp1 = Arr(I, 4)
If Not Dic.Exists(Tmp1) Then
Dic.Add Tmp1, ""
ShMain.Copy
With ActiveWorkbook
For Z = 2 To UBound(Arr)
If Arr(Z, 4) = Tmp1 Then
Tmp2 = Arr(Z, 3)
If Not Dic.Exists(Tmp2) Then
Dic.Add Tmp2, ""
.Sheets.Add After:=.Sheets(.Sheets.Count)
.Sheets(.Sheets.Count).Name = Tmp2
.Sheets(1).Range("A1").CurrentRegion.AutoFilter 4, Tmp1
.Sheets(1).Range("A1").CurrentRegion.AutoFilter 3, Tmp2
.Sheets(1).Range("A1").CurrentRegion.SpecialCells(12).Copy
.Sheets(Tmp2).Range("A1").PasteSpecial xlPasteColumnWidths
.Sheets(Tmp2).Range("A1").PasteSpecial xlPasteValues
.Sheets(Tmp2).Range("A1").PasteSpecial xlPasteFormats
.Sheets(1).ShowAllData
End If
End If
Next Z
.Sheets(1).Delete
.Close True, Path & "\" & Tmp1 & ".xlsx"
End With
End If
Next I
Set Dic = Nothing
MsgBox "Da Tach Xong!"
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Em cám ơn các anh chị đã giúp đỡ em nhiều ah

 

[Phuong0907357642]

Code quen quá, đề nghị bỏ code vào thẻ code rồi muốn gì thì tính tiếp... Để vậy nhìn gớm lắm.

cám ơn đã phản hồi
Vì code này mình chạy vào file thì nó tách ra nhiều file excel rồi => đã đúng ý mình muốn
Nhưng nếu mình có công thức vlookup từ sheet kế bên của file tổng, thì ý mính muốn hỏi là mình có code nào để lấy luôn cả công thức vlookup và bưng cái sheet đổi qua luôn được không?
Ý là File tổng có 2 sheet :1 data và 1 dữ liệu tham khảo
Mong muốn sau khi tách file thì sheet dữ liệu tham khảo cũng đi qua chung và công thức cũng đi qua chung luôn ah

Em cám ơn nhiều đã hỗ trợ em

 

[An.BA]

.

 

[Phuong0907357642]

.

Help me nhé

Cmsaown nhiều

 

[Phuong0907357642]

Vì file này em cần anh chi hỗ trợ nhều lắm
Anh chị nào có thể giúp em nhé
Em cám ơn nhiều lắm ah

 

[Phuong0907357642]

Bàn phím hỏng hay sao vậy?

Ah
Do đánh trên web nó quét lâu nên lúc nhấn enter tưởng là đúng nên post len
Ý là "Cám ơn nhiều"

Tks

 

[Phuong0907357642]

Huuhuhu
Không ai giúp em rồi

 

[be_09]

Nhờ các anh chị hỗ trợ
Em đã nhờ viết VBA cho việc tách các nhân viên thuộc cửa hàng ra thành từng file tương ứng là: 1 file là của cửa hàng trong đó từng sheet là của nhân viên
Nhưng em có nhận đổi hàng nếu sản phẩm hư hỏng và theo giá em quy định. Giá em quy định là Sheet kế bên trong file tổng
Em gặp vấn đề là:
Khi em tách từng cửa hàng thì từ sản phẩm đổi thì mất hết công thức Vlookup từ sheet hàng đổi qua cho từng nhân viên trong cửa hàng đó
Nhờ các anh chị hướng dẫn giúp em là làm cách nào khi em tách từng file excel cho từng cửa hàng và từng sheet trong đó là nhân viên của cửa hang đó mà nó vẫn lấy sheet "đổi hàng" qua" và có công thức em đã tạo luôn ah

Em gởi tham khảo file em tách từng file ah:

Em cám ơn các anh chị đã giúp đỡ em nhiều ah

Vlookup nó phụ thuộc và địa chỉ nơi chứa dữ liệu.
Cách tốt nhất là xóa File tách, cần cập nhật cái gì thì sửa File gốc sau đó rồi tách ra chứ mắc chi phải Vlookup nữa.

 

[Phuong0907357642]

Vlookup nó phụ thuộc và địa chỉ nơi chứa dữ liệu.
Cách tốt nhất là xóa File tách, cần cập nhật cái gì thì sửa File gốc sau đó rồi tách ra chứ mắc chi phải Vlookup nữa.

Phuong Phan
cám ơn sự ghi nhận của anh/chị
nhưng vì em có 1 sheet tổng và 1 sheet đổi để cửa hàng tham khảo giá đổi nếu khách hàng cầm hóa đơn đó đổi lại lấy sản phẩm khác, nhưng vì khác tách sheet tổng thành từng cửa hàng của từng nhân viên trong 1 file excel thì file sau khi tách không đem file sheet đổi và cùng công thức vlookup luôn
cho nên mình cần hỗ trợ phần này ah

 

[be_09]

Phuong Phan
cám ơn sự ghi nhận của anh/chị
nhưng vì em có 1 sheet tổng và 1 sheet đổi để cửa hàng tham khảo giá đổi nếu khách hàng cầm hóa đơn đó đổi lại lấy sản phẩm khác, nhưng vì khác tách sheet tổng thành từng cửa hàng của từng nhân viên trong 1 file excel thì file sau khi tách không đem file sheet đổi và cùng công thức vlookup luôn
cho nên mình cần hỗ trợ phần này ah

Cái yêu cầu của bạn muốn nhanh thì dùng VBA, còn muốn đổi lại hàng và xóa dữ liệu gốc thì chỉ có làm tay (hàm không thể làm được vụ này).

 

[Phuong0907357642]

Cái yêu cầu của bạn muốn nhanh thì dùng VBA, còn muốn đổi lại hàng và xóa dữ liệu gốc thì chỉ có làm tay (hàm không thể làm được vụ này).

Cám ơn nhiều ah