Hợp nhất nhiều File vào 1 file

[suadienthoai247]

Ðề: Hợp nhất nhiều File vào 1 file

Chào anh be09 anh có thể cho em xin số điện thoại để hỏi anh thêm ko ạ. Vì vấn đề của em thêm một chút phức tạp đó là trong file gốc có nhiều sheet mà lại chỉ cần lấy data ở một sheet. Vậy anh có thể giúp em làm file như vậy không ạ? Em cảm ơn anh. Em đang rất cần cho công việc mong anh giúp đỡ.

[quangcaodienlanh]

Ðề: Hợp nhất nhiều File vào 1 file

Chào anh be09 anh có thể cho em xin số điện thoại để hỏi anh thêm ko ạ. Vì vấn đề của em thêm một chút phức tạp đó là trong file gốc có nhiều sheet mà lại chỉ cần lấy data ở một sheet. Vậy anh có thể giúp em làm file như vậy không ạ? Em cảm ơn anh. Em đang rất cần cho công việc mong anh giúp đỡ.

Muốn lấy 1 sheet nào đó thì phải có tên sheet cụ thể, chứ giữa 1 đám rừng biết gọi thằng nào ra được để mà lấy.

Tốt nhất là em Up File lên và muốn lấy sheet nào thì phải nêu cụ thể.

[dangban321]

Ðề: Hợp nhất nhiều File vào 1 file

Anh be09 cho em xin email vào Inbox được ko ạ? Em cảm ơn anh nhiều ạ.

[HSCompany]

Ðề: Hợp nhất nhiều File vào 1 file

File của em đây ạ. Em muốn lấy dữ liệu từ sheet data từ nhiều file có định dạng, sheet giống nhau như này ạ: https://www.mediafire.com/?0rryyfr5ccu6b6q

[Thinhquang75]

Ðề: Hợp nhất nhiều File vào 1 file

File của em đây ạ. Em muốn lấy dữ liệu từ sheet data từ nhiều file có định dạng, sheet giống nhau như này ạ: https://www.mediafire.com/?0rryyfr5ccu6b6q

Anh đã xem File để anh tham khảo rồi đưa ra giải pháp sau.

Ý em là chỉ muốn lấy duy nhất sheet Data, còn sheet Example thì không lấy phải không?

Anh đã Mail thông tin cho em rồi đó, mai anh sẽ trả lời.

[quoctiepkt]

Ðề: Hợp nhất nhiều File vào 1 file

Vâng ạ, em chỉ cần lấy thông tin ở sheet data thôi anh ạ. Vì chỉ cần lấy thông tin ứng viên ở sheet đó. Mà sao anh thức muộn vậy ạ, tối qua e chờ anh rep nhưng buồn ngủ quá nên đi ngủ ạ . Anh giúp em nhé.

[hoang_kisirong]

Ðề: Hợp nhất nhiều File vào 1 file

Anh be09 ơi anh xem giúp em chưa ạ?

[ductrong85]

Ðề: Hợp nhất nhiều File vào 1 file

Hi anh be09 ko biết anh đã xem giúp trường hợp của em chưa ạ.

[khanhhoangsg]

Ðề: Hợp nhất nhiều File vào 1 file

Vâng ạ, em chỉ cần lấy thông tin ở sheet data thôi anh ạ. Vì chỉ cần lấy thông tin ứng viên ở sheet đó.

Cái này mà Hợp nhất nhiều File vào 1 file !!!!!!

Muốn làm lại để bỏ cái Sheet Example

1- Unhide tất cả các Sheet

Sub UnhideAllSheets()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Visible = xlSheetVisible

Next ws

End Sub

2- Vậy trong Sheet Data phải cần sửa những công thức gì trong đó . Muốn dễ thấy và gọn thì phải liệt kê các công thức của họ ra 1 trang mới để dễ thấy mà làm

Sub ListFormulas()
Dim FormulaCells As Range, Cell As Range
Dim FormulaSheet As Worksheet
Dim Row As Integer

On Error Resume Next
Set FormulaCells = Range("A1").SpecialCells(xlFormulas, 23)

If FormulaCells Is Nothing Then
MsgBox "No Formulas."
Exit Sub
End If

Application.ScreenUpdating = False
Set FormulaSheet = ActiveWorkbook.Worksheets.Add
FormulaSheet.Name = "Formulas in " & FormulaCells.Parent.Name

With FormulaSheet
Range("A1") = "Address"
Range("B1") = "Formula"
Range("C1") = "Value"

Range("A1:C1").Font.Bold = True
End With

Row = 2
For Each Cell In FormulaCells
Application.StatusBar = Format((Row - 1) / FormulaCells.Count, "0%")
With FormulaSheet
Cells(Row, 1) = Cell.Address _
(RowAbsolute:=False, ColumnAbsolute:=False)
Cells(Row, 2) = " " & Cell.Formula
Cells(Row, 3) = Cell.Value
Row = Row + 1
End With
Next Cell

FormulaSheet.Columns("A:C").AutoFit
Application.StatusBar = False
End Sub

3- Sửa đi

Vi du:
A3 =IF(Example!C20<>"",Example!C20,"")
Nó lấy data trực tiếp từ C20 trong trang Example

C4 =VLOOKUP(Example!J22,information!$I$3:$J$4,2,FALSE )
làm cái list Validation , data trong information, range(I3:I4)

Dễ qúa mà .

[thardeco]

Ðề: Hợp nhất nhiều File vào 1 file

Nghĩ lại thấy mình tối dạ !!!! ai dza ai dza !!!!

Đâu cần Delete Sheet("Sample") . Chỉ Rename nó là test hay gì gì đó . ChỈ 1 hàng VBA là nó tự thay đổi hết Reference Sample trong các công thức thành test

ws.Range("A1").blah blah Sheets("test").Range("A65536").End......... blah blah

ai dza ai dza hiihihihihihihi got it !!

Thiếu Martel nà phiền nắm mè