Tạo link cho 2 file Excel bằng code VBA (1 người xem)

[thanhnm1107]

Các bác giúp em với:

Em có 2 file excel link với nhau bằng code XXX ( có 360 code: 001,002,003,004....)

Em nhập từng code thì dữ liệu file 1 sẽ link với file 2 => tạo thành file hoàn chỉnh

Các bác viết code giúp em: import tự động các code và save thành từng file (ví dụ: import 360 code và save thành 360 file nhé

Cám ơn các bác nhiều

 

[quanluu]

Các bác giúp em với:

Em có 2 file excel link với nhau bằng code XXX ( có 360 code: 001,002,003,004....)

Em nhập từng code thì dữ liệu file 1 sẽ link với file 2 => tạo thành file hoàn chỉnh

Các bác viết code giúp em: import tự động các code và save thành từng file (ví dụ: import 360 code và save thành 360 file nhé

Cám ơn các bác nhiều

B nói thế này thì cũng khó hình dung ra đc. Bạn up 2 file đó coi nó thế nào.
Còn vấn đề tách dự liệu 1 file ra thành nhiều file theo điều kiện thì rất nhiểu rùi nhé.

 

[Cá ngừ F1]

Đoán mò: dùng advanced filter cho từng code để ra kết quả từ file 2 -> save as thành từng file.
nói chung là phải có file minh hoạ mới xử lý được.

[note]admin đi chuyển bài về đúng box giúp[/note]

 

[tamhoang.pm]

Sao bạn không làm 1 sheet data và 1 sheet hiển thị rồi lọc theo điều kiện >>> cần gì phải làm 360 file cho mệt?

 

[thanhnm1107]

Em muốn import tự động danh sách Mã ĐV (001,002,003,004...) vào File 1 thì sẽ được file hoàn chỉnh và save lại theo từng Mã ĐV (file 1 và file 2 link băng mã ĐV)

Các bác xem giúp em nhé

 

[Cá ngừ F1]

Em muốn import tự động danh sách Mã ĐV (001,002,003,004...) vào File 1 thì sẽ được file hoàn chỉnh và save lại theo từng Mã ĐV (file 1 và file 2 link băng mã ĐV)

Các bác xem giúp em nhé

Tôi cũng chưa hiểu ý bạn lắm.
Thử cái File này,
Click nút RUN.
Tôi đang để đến code 15. 15 file sẽ được tạo ra tại Folder của Data.

Sub Run()
Application.DisplayAlerts = False
    Dim i&
    With ActiveWorkbook
        For i = 1 To 15
            .[A4] = i
            .SaveAs ThisWorkbook.Path & "\Data" & i, 50
        Next
        .Close False
    End With
Application.DisplayAlerts = True
End Sub

Muốn thành 360 File thì Click phải chuột vào nút RUN -> Assign Macro -> Edit -> thay 15 bằng 360.

 

[be_09]

Các bác viết code giúp em: import tự động các code và save thành từng file (ví dụ: import 360 code và save thành 360 file nhé

Theo tôi thì chẳng cần lưu bao nhiêu sheet hoặc lưu bao nhiêu File.

Tôi chỉ làm vầy là đủ:

1/ Dùng sheet Form hay UserForm để nhập liệu.

2/ 1 Sheet chứa dữ liệu: Muốn xuất dữ liệu cho đối tác hay báo cáo nội dung nào thì 1 sheet trích lọc để lọc hoặc xuất danh sách theo nội dung cần ra File mới rồi gửi, chứ không nên lưu trữ nhiều File để làm gì sẽ mất công mà làm chiếm dung lượng ổ dĩa vô ích.

 

[thanhnm1107]

Mình có thể import 1 list mã ĐV (Vd: 002,005,012,045,178...) để chạy không bác.

Trong file 1 của em thì có nhiều sheet link bằng Mã ĐV. Em muốn import list mã ĐV để chạy ra thành từng file excel.

 

[Cá ngừ F1]

Mình có thể import 1 list mã ĐV (Vd: 002,005,012,045,178...) để chạy không bác.

Trong file 1 của em thì có nhiều sheet link bằng Mã ĐV. Em muốn import list mã ĐV để chạy ra thành từng file excel.

Như tôi nói: phải có File thật mới được, chứ bạn nói thế này người giúp cũng ko hiểu đâu.

 

[thanhnm1107]

Bác cho em cau code để import Mã ĐV (sheet import) vào sheet Ngân sách => save thành từng file riêng nhé

cám ơn bác nhiều

 

[Cá ngừ F1]

Bác cho em cau code để import Mã ĐV (sheet import) vào sheet Ngân sách => save thành từng file riêng nhé

cám ơn bác nhiều

Tôi đang hiểu ý của bạn là muốn xuất những Code: 1,3,4,5,201,156.
Vậy, các bước làm như sau:
1. Tải File Data (1) này về 1 Folder nào đó trên máy tính của bạn.
2. Khởi tạo 1 Folder mới có tên Export tại Folder chưa File Data (1) vừa tải về.
3. Mở file Data (1) ra -> Click vào RUN
4. Mở Folder Export ra, các File được tạo tương ứng với mã Code.

Hy vọng đoán đúng.
Chúc thành công!

[GPECODE=vb]Sub Run()
On Error Resume Next
Dim i&, MaDV()
With Application
.Calculation = xlCalculationManual
.EnableEvents = False
.DisplayAlerts = False
.ScreenUpdating = False

MaDV = Range(Sheet4.[A4], Sheet4.[A500].End(3))

For i = 1 To UBound(MaDV)
Sheet1.[A4] = MaDV(i, 1)
Sheet1.[B4] = .WorksheetFunction.VLookup(MaDV(i, 1), Sheet2.[A3:B500], 2, 0)
Sheets("Ngan sach").Copy
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\Export\Data" & MaDV(i, 1), 50
.Close False
End With
Next

.Calculation = xlCalculationAutomatic
.EnableEvents = True
.DisplayAlerts = True
.ScreenUpdating = True


End With


End Sub[/GPECODE]

 

[thanhnm1107]

Bác có ở HCM không. Em gặp bác để thảo luận thêm nhé. cám ơn bác nhiều

 

[thanhnm1107]

Mã đơn vị là dạng text dùng để import. File cần export là có nhiều sheet (link bằng mã ĐV (dạng text))

Nếu gặp trực tiếp sẽ dễ trao đổi nhé bác

 

[Cá ngừ F1]

Mã đơn vị là dạng text dùng để import. File cần export là có nhiều sheet (link bằng mã ĐV (dạng text))

Nếu gặp trực tiếp sẽ dễ trao đổi nhé bác

Tôi ko ở HCM. HCM rất nhiều người giỏi.
vấn đề của bạn là phải đưa ra dữ liệu chuẩn và kết quả mong muốn.
Ve định dạng text hay number ko quá khó.

 

[thanhnm1107]

bác xem folder này nhé. có 2 file link với nhau. em cần export file data 1 ra thành nhiều file(đủ các sheet) theo các ma ĐV

Bác xem giúp em nhé. Em chỉnh sửa câu code nhưng không được.