Tự động lưu file PDF (Cần khắc phục tình trạng trùng tên bị xóa file cũ) (1 người xem)

[duchoa89]

Anh nào giúp em với được không ạ! trả là em đã xuất tự động lưu được PDF nhưng có lúc em in 1 phiếu 2 lần cùng tên thì toàn phiếu sau đè mất phiếu trước ! vậy có cách nào để phiếu sau có (1) hoặc (2) được không ạ. hay 1,2,3,4,5,6... cũng đc chỉ cần giữ được tên là đc ạ! Dưới là code của em để xuất File PDF ! mong anh chị giúp đỡ
filepdf = ThisWorkbook.Path & "\" & Range("G10") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

 

[phuyen89]

Anh nào giúp em với được không ạ! trả là em đã xuất tự động lưu được PDF nhưng có lúc em in 1 phiếu 2 lần cùng tên thì toàn phiếu sau đè mất phiếu trước ! vậy có cách nào để phiếu sau có (1) hoặc (2) được không ạ. hay 1,2,3,4,5,6... cũng đc chỉ cần giữ được tên là đc ạ! Dưới là code của em để xuất File PDF ! mong anh chị giúp đỡ
filepdf = ThisWorkbook.Path & "\" & Range("G10") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

- Hay là bạn thêm cái h:m:s vào Tên file. Cho lưu khỏi bị trùng.

 

[ndu96081631]

Anh nào giúp em với được không ạ! trả là em đã xuất tự động lưu được PDF nhưng có lúc em in 1 phiếu 2 lần cùng tên thì toàn phiếu sau đè mất phiếu trước ! vậy có cách nào để phiếu sau có (1) hoặc (2) được không ạ. hay 1,2,3,4,5,6... cũng đc chỉ cần giữ được tên là đc ạ! Dưới là code của em để xuất File PDF ! mong anh chị giúp đỡ
filepdf = ThisWorkbook.Path & "\" & Range("G10") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

Bạn viết 1 hàm tự tạo để làm việc này là được rồi. Ví dụ:
- Bạn có đường dẫn file ThisWorkbook.Path & "\" & Range("G10") & ".pdf"
- Bạn không biết đường dẫn này có tồn tại hay không
- Vậy bạn viết 1 hàm tự tạo, chẳng hạn tên là CreateSaveFileName có tác dụng kiểm tra đường dẫn trên, nếu chưa tồn tại thì để nguyên, tồn tại rồi thì bằng cách gì đó thêm các hậu tố (1)... (2)... (3) vào đến khi nào tạo ra được đường dẫn khả dụng thì thôi

Private Function CreateSaveFileName(ByVal FileName As String) As String
  Dim n As Long
  Dim sFolder As String, sFile As String, sExt As String, sTmpFile As String
  sTmpFile = FileName
  With CreateObject("Scripting.FileSystemObject")
    sExt = .GetExtensionName(FileName)
    sFolder = .GetParentFolderName(FileName)
    sFile = .GetBaseName(FileName)
    Do While .FileExists(sTmpFile) = True
      n = n + 1
      sTmpFile = .BuildPath(sFolder, sFile & "(" & n & ")." & sExt)
    Loop
    CreateSaveFileName = sTmpFile
  End With
End Function

Giờ áp dụng bạn chỉ cần thế này:

Dim filepdf  as string
filepdf = CreateSaveFileName(ThisWorkbook.Path & "\" & Range("G10") & ".pdf")
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

Vậy là xong thôi!
----------------------
(code viết sơ qua, không biết có xuất hiện lỗi tào lao nào không? Mời kiểm tra thử nhé)

 

[duchoa89]

- Hay là bạn thêm cái h:m:s vào Tên file. Cho lưu khỏi bị trùng.

thêm kiểu gì vậy chỉ mình với! vào hộ code mình với

 

[duchoa89]

Bạn viết 1 hàm tự tạo để làm việc này là được rồi. Ví dụ:
- Bạn có đường dẫn file ThisWorkbook.Path & "\" & Range("G10") & ".pdf"
- Bạn không biết đường dẫn này có tồn tại hay không
- Vậy bạn viết 1 hàm tự tạo, chẳng hạn tên là CreateSaveFileName có tác dụng kiểm tra đường dẫn trên, nếu chưa tồn tại thì để nguyên, tồn tại rồi thì bằng cách gì đó thêm các hậu tố (1)... (2)... (3) vào đến khi nào tạo ra được đường dẫn khả dụng thì thôi

Private Function CreateSaveFileName(ByVal FileName As String) As String
  Dim n As Long
  Dim sFolder As String, sFile As String, sExt As String, sTmpFile As String
  sTmpFile = FileName
  With CreateObject("Scripting.FileSystemObject")
    sExt = .GetExtensionName(FileName)
    sFolder = .GetParentFolderName(FileName)
    sFile = .GetBaseName(FileName)
    Do While .FileExists(sTmpFile) = True
      n = n + 1
      sTmpFile = .BuildPath(sFolder, sFile & "(" & n & ")." & sExt)
    Loop
    CreateSaveFileName = sTmpFile
  End With
End Function

Giờ áp dụng bạn chỉ cần thế này:

Dim filepdf  as string
filepdf = CreateSaveFileName(ThisWorkbook.Path & "\" & Range("G10") & ".pdf")
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

Vậy là xong thôi!
----------------------
(code viết sơ qua, không biết có xuất hiện lỗi tào lao nào không? Mời kiểm tra thử nhé)

Không ổn rùi anh ơi!

 

[duchoa89]

Giờ còn đúng 1 việc cần nhờ ! là thêm giờ và phút thực tế vào tên file để không bị trùng nhau!
filepdf = ThisWorkbook.Path & "\" & Range("G10") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

 

[befaint]

Giờ còn đúng 1 việc cần nhờ ! là thêm giờ và phút thực tế vào tên file để không bị trùng nhau!
filepdf = ThisWorkbook.Path & "\" & Range("G10") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

Dim sTime As String
sTime = "#" & Format(Now(), "dd/mm/yyyy#hh:mm:ss")
filepdf = ThisWorkbook.Path & "\" & Range("G10") & sTime & ".pdf"

 

[ndu96081631]

Không ổn rùi anh ơi!

Ưu điểm của mình là rất nhiệt tình trợ giúp trong khả năng có thể nhưng với những phản hồi kiểu như trên thì thật là.. mất hứng quá

 

[duchoa89]

Ưu điểm của mình là rất nhiệt tình trợ giúp trong khả năng có thể nhưng với những phản hồi kiểu như trên thì thật là.. mất hứng quá

hihi. XL anh nhé. Thật ra em mới mày mò về VBA vì thấy quá hữu dụng trong công việc thực tế. lúc chiều vì quá vội nên e trả lời hơi nhanh.

 

[ndu96081631]

hihi. XL anh nhé. Thật ra em mới mày mò về VBA vì thấy quá hữu dụng trong công việc thực tế. lúc chiều vì quá vội nên e trả lời hơi nhanh.

- Tôi không quan trọng bạn trả lời nhanh chậm
- Tôi không quan trọng việc xưng hô hay văn chương cầu kỳ
...... vân.. vân...
Tôi chỉ quan tâm đến kỹ thuật nên cái tôi cần là mọi thứ phải RÕ RÀNG. Một câu "không ổn" thì giúp gì được cho bạn? Nếu code bị lỗi hoặc ra kết quả sai thì bạn phải cho tôi biết nó lỗi chỗ nào? Sai chỗ nào? Kết quả nếu đúng thì phải ra làm sao?...
Phản hồi ý kiến rất quan trọng! Bạn cần chú ý điểm này.

 

[duchoa89]

Em xin phép nhờ thêm 1 ý ngoài lề. Xin nhờ các anh chị trong diễn dàn chỉ dùm!
Em muốn khóa toàn bộ các kiểu in của excel sẵn có như (ctrl+p) bấm trên bouuton....
mà chỉ sử dụng nút lệnh VBA mới in được thì phải làm cách nào.
Mong các anh giúp đỡ.

 

[duchoa89]

- Tôi không quan trọng bạn trả lời nhanh chậm
- Tôi không quan trọng việc xưng hô hay văn chương cầu kỳ
...... vân.. vân...
Tôi chỉ quan tâm đến kỹ thuật nên cái tôi cần là mọi thứ phải RÕ RÀNG. Một câu "không ổn" thì giúp gì được cho bạn? Nếu code bị lỗi hoặc ra kết quả sai thì bạn phải cho tôi biết nó lỗi chỗ nào? Sai chỗ nào? Kết quả nếu đúng thì phải ra làm sao?...
Phản hồi ý kiến rất quan trọng! Bạn cần chú ý điểm này.

em đã tìm hiểu điều chỉnh cóp nhặt từ nhiều anh chị trong diễn dàn
filepdf = "C:\Users" & "\" & Range("i4") & "-" & Minute(Now()) & Second(Now())
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf
Đây là đoạn mã em sử dụng và thấy chạy ổn định! Chỉ có điều việc copy file pdf đó sang chỗ chỗ khác là không làm đc! (Vì e chưa cần phải di chuyển file nên cũng ko gây khó khăn cho em)
hi cảm ơn anh đã nhiệt tình giúp đỡ. và em còn muốn khóa các kiểu in mặc định của excel để chỉ cho phép in bằng nút lệnh VBA !
Anh có cách gì không mách nước hộ e với ạ!

 

[ndu96081631]

em đã tìm hiểu điều chỉnh cóp nhặt từ nhiều anh chị trong diễn dàn
filepdf = "C:\Users" & "\" & Range("i4") & "-" & Minute(Now()) & Second(Now())
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf
Đây là đoạn mã em sử dụng và thấy chạy ổn định!

Bạn dùng số giây gán vào tên file để tạo sự phân biệt, vậy trong trường hợp bạn bấm lưu 2 phát liên tiếp trong cùng 1 thời điểm (tức bấm khi số giây chưa kịp nhảy sang số mới) thì tên file vẫn... trùng. Đương nhiên xác xuất xảy ra tình huống này rất thấp nhưng không phải là không thể

Anh có cách gì không mách nước hộ e với ạ!

Tôi chỉ có cách như ở bài 3 và tôi cho là ổn nhất. Tuy nhiên nếu bạn thấy cách của bạn ổn hơn thì cứ dùng, không có vấn đề gì cả

 

[duchoa89]

Bạn dùng số giây gán vào tên file để tạo sự phân biệt, vậy trong trường hợp bạn bấm lưu 2 phát liên tiếp trong cùng 1 thời điểm (tức bấm khi số giây chưa kịp nhảy sang số mới) thì tên file vẫn... trùng. Đương nhiên xác xuất xảy ra tình huống này rất thấp nhưng không phải là không thể


Tôi chỉ có cách như ở bài 3 và tôi cho là ổn nhất. Tuy nhiên nếu bạn thấy cách của bạn ổn hơn thì cứ dùng, không có vấn đề gì cả

Vì do mục đích sử dụng của em chỉ cần xem được in lần 2 và lần 1 nội dung có khác nhau không nên đành dùng thời gian để đánh dấu! hi không bị chèn mất file cũ là ok rùi
Mà đoạn code của 1 nút của em quá dài rùi
A có cách nòa chỉ cho phép file excel đó được in bằng nút Pint tự tạo không? Đại ý là chỉ ấn nút đó mới in được! do e còn đặt 1 số code nhập liệu nên muốn khóa in của excel. tránh trường hợp tự do in phiếu mà không có dữ liệu nhập

 

[duchoa89]

dùng sự kiện Before Print sợ không đc vì em vẫn cần in!
code:
Private Sub workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox "Sorry, you cannot Print from this workbook", vbInformation
End Sub

 

[phuyen89]

Bạn dùng số giây gán vào tên file để tạo sự phân biệt, vậy trong trường hợp bạn bấm lưu 2 phát liên tiếp trong cùng 1 thời điểm (tức bấm khi số giây chưa kịp nhảy sang số mới) thì tên file vẫn... trùng. Đương nhiên xác xuất xảy ra tình huống này rất thấp nhưng không phải là không thể


Tôi chỉ có cách như ở bài 3 và tôi cho là ổn nhất. Tuy nhiên nếu bạn thấy cách của bạn ổn hơn thì cứ dùng, không có vấn đề gì cả

Anh ndu, Em đã thử tạo 1 vòng lặp với 10 lần lặp, nhưng nó vẫn không trùng tên File. 10 lần lặp, nhưng File nó tạo được có 3,4 File à.Vẫn đúng số giây, nó mới tạo File.

 

[ndu96081631]

Anh ndu, Em đã thử tạo 1 vòng lặp với 10 lần lặp, nhưng nó vẫn không trùng tên File. 10 lần lặp, nhưng File nó tạo được có 3,4 File à.Vẫn đúng số giây, nó mới tạo File.

Như tôi đã nói ở trên:

Đương nhiên xác xuất xảy ra tình huống này rất thấp nhưng không phải là không thể

Vậy trong trường hợp máy bạn cực mạnh, save file trong nháy mắt thì xác xuất này sẽ cao ngay!
Lập trình phải nói đến tính chính xác, không thể trong chờ chuyện hên xui!

 

[Huynh linh 0209]

Dim sTime As String
sTime = "#" & Format(Now(), "dd/mm/yyyy#hh:mm:ss")
filepdf = ThisWorkbook.Path & "\" & Range("G10") & sTime & ".pdf"

Mọi người ơi giúp em với sao em làm theo câu lệnh này không ra vậy. nó chạy không được không à
Em muốn thêm ngày tháng vào câu lệnh này nè:
filepdf = ThisWorkbook.Path & "\" & Range("G10") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

 

[Quang_Hải]

Mọi người ơi giúp em với sao em làm theo câu lệnh này không ra vậy. nó chạy không được không à
Em muốn thêm ngày tháng vào câu lệnh này nè:
filepdf = ThisWorkbook.Path & "\" & Range("G10") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

filepdf = ThisWorkbook.Path & "\" & Range("G10") & "_" & date
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

 

[Huynh linh 0209]

filepdf = ThisWorkbook.Path & "\" & Range("G10") & "_" & date
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

Không được anh ơ. Nó vẫn báo lỗi á. có cách nào khác không anh

 

[Quang_Hải]

Không được anh ơ. Nó vẫn báo lỗi á. có cách nào khác không anh

Chắc là bạn không khai báo biến. Vậy thêm 1 câu khai báo xem sao. Code chạy tốt trên máy tính của mình

Dim filepdf As String
filepdf = ThisWorkbook.Path & "\" & Range("G10") & "_" & Date
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

 

[Huynh linh 0209]

Chắc là bạn không khai báo biến. Vậy thêm 1 câu khai báo xem sao. Code chạy tốt trên máy tính của mình

Dim filepdf As String
filepdf = ThisWorkbook.Path & "\" & Range("G10") & "_" & Date
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

Em lại sửa vào nhưng cũng báo lỗi. Em gửi cái flie cho anh tham khảo chỉ giúp em với

 

[Quang_Hải]

Em lại sửa vào nhưng cũng báo lỗi. Em gửi cái flie cho anh tham khảo chỉ giúp em với

Đành phải đánh võ rừng thử. Hên xui nha

Sub LUUDONTHUOC()
Dim filepdf
filepdf = ThisWorkbook.Path & "\" & Range("C5") & "_" & Date & ".pdf"
With CreateObject("scripting.filesystemobject")
If .FileExists(filepdf) Then Kill filepdf
End With
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf
End Sub

 

[Huynh linh 0209]

Đành phải đánh võ rừng thử. Hên xui nha

Sub LUUDONTHUOC()
Dim filepdf
filepdf = ThisWorkbook.Path & "\" & Range("C5") & "_" & Date & ".pdf"
With CreateObject("scripting.filesystemobject")
If .FileExists(filepdf) Then Kill filepdf
End With
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf
End Sub

lẠI KHONG ĐƯỢC NỮA NÓ ÁO MÀU VÀNG CÁI DÒNG NÀY: ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf. KHÔNG À

 

[be_09]

lẠI KHONG ĐƯỢC NỮA NÓ ÁO MÀU VÀNG CÁI DÒNG NÀY: ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf. KHÔNG À

Thử thay bằng dòng này.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF

Bạn nên đọc kỹ nội quy để tránh vi phạm.

 

[batman1]

Mọi người ơi giúp em với sao em làm theo câu lệnh này không ra vậy. nó chạy không được không à
Em muốn thêm ngày tháng vào câu lệnh này nè:
filepdf = ThisWorkbook.Path & "\" & Range("G10") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

Vấn đề tương tự bạn hỏi bên kia và tôi cũng đã trả lời bên kia.

https://www.giaiphapexcel.com/diend...df-khi-xuất-từ-file-excell.141212/post-908667

 

[bigbig8x]

Bạn viết 1 hàm tự tạo để làm việc này là được rồi. Ví dụ:
- Bạn có đường dẫn file ThisWorkbook.Path & "\" & Range("G10") & ".pdf"
- Bạn không biết đường dẫn này có tồn tại hay không
- Vậy bạn viết 1 hàm tự tạo, chẳng hạn tên là CreateSaveFileName có tác dụng kiểm tra đường dẫn trên, nếu chưa tồn tại thì để nguyên, tồn tại rồi thì bằng cách gì đó thêm các hậu tố (1)... (2)... (3) vào đến khi nào tạo ra được đường dẫn khả dụng thì thôi

Private Function CreateSaveFileName(ByVal FileName As String) As String
  Dim n As Long
  Dim sFolder As String, sFile As String, sExt As String, sTmpFile As String
  sTmpFile = FileName
  With CreateObject("Scripting.FileSystemObject")
    sExt = .GetExtensionName(FileName)
    sFolder = .GetParentFolderName(FileName)
    sFile = .GetBaseName(FileName)
    Do While .FileExists(sTmpFile) = True
      n = n + 1
      sTmpFile = .BuildPath(sFolder, sFile & "(" & n & ")." & sExt)
    Loop
    CreateSaveFileName = sTmpFile
  End With
End Function

Giờ áp dụng bạn chỉ cần thế này:

Dim filepdf  as string
filepdf = CreateSaveFileName(ThisWorkbook.Path & "\" & Range("G10") & ".pdf")
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

Vậy là xong thôi!
----------------------
(code viết sơ qua, không biết có xuất hiện lỗi tào lao nào không? Mời kiểm tra thử nhé)

Code quá ngon luôn! Cám ơn bác ạ!

 

[thaong]

Em chào các anh, chị!
- Mong được mọi người trên diễn đàn GPE vui lòng giúp em đoạn code VBA tự động xuất file báo cáo (sheet 3) ra PDF chi tiết theo tên từng mã số nhân viên tại ô F3 và xóa file pdf trong 5 ngày hoặc cho phép lưu trùng tên. Ví dụ: 0002.pdf, 0003.pdf
- Chi tiết trong file đính kèm.
Xin cảm ơn mọi người!

 

[thaong]

Em chào các anh, chị!
- Mong được mọi người trên diễn đàn GPE vui lòng giúp em đoạn code VBA tự động xuất file báo cáo (sheet 3) ra PDF chi tiết theo tên từng mã số nhân viên tại ô F3 và xóa file pdf trong 5 ngày hoặc cho phép lưu trùng tên. Ví dụ: 0002.pdf, 0003.pdf
- Chi tiết trong file đính kèm.
Xin cảm ơn mọi người!

File trên em đã thử làm 1 đoạn code nhưng vẫn bị lỗi là không xuất ra toàn bộ file pdf theo từng mã nhân viên mà chỉ xuất ra 1 file báo cáo mà còn bị sai email trên báo cáo và bị lỗi mất công thức ngay ô chứa email (nên em phải sử dụng data validation và ô trung gian).
Rất mong các anh chị giúp đỡ. Em cám ơn.

 

[HUONGHCKT]

File trên em đã thử làm 1 đoạn code nhưng vẫn bị lỗi là không xuất ra toàn bộ file pdf theo từng mã nhân viên mà chỉ xuất ra 1 file báo cáo mà còn bị sai email trên báo cáo và bị lỗi mất công thức ngay ô chứa email (nên em phải sử dụng data validation và ô trung gian).
Rất mong các anh chị giúp đỡ. Em cám ơn.

Thử xem. Có phải thế này không?
Vẫn code của bạn Tôi thêm đoạn code của anh @ndu96081631.
Cứ khi nhấn nút Loc Du Lieu thì sheet BaoCao đã được xuất sang 1 file pdf có tên trùng với mã số của nhân viên đang có mặt trên Sheet Bao Cao.(file PDF này sẽ được lưu ở cùng Folder với file Excel). Nếu file pdf đã có tên (trùng tên) thì file pdf cũ sẽ bị xóa.

 

[thaong]

Thử xem. Có phải thế này không?
Vẫn code của bạn Tôi thêm đoạn code của anh @ndu96081631.
Cứ khi nhấn nút Loc Du Lieu thì sheet BaoCao đã được xuất sang 1 file pdf có tên trùng với mã số của nhân viên đang có mặt trên Sheet Bao Cao.(file PDF này sẽ được lưu ở cùng Folder với file Excel). Nếu file pdf đã có tên (trùng tên) thì file pdf cũ sẽ bị xóa.

File in ra 2 trang bạn có thể giúp in 1 trang từ cột B đến cột I không nếu lọc từng nhân viên và có thể tự động in hàng loạt theo mã nhân viên bằng 1 nút ấn. Cám ơn bạn rất nhiều.

 

[HUONGHCKT]

1/File in ra 2 trang bạn có thể giúp in 1 trang từ cột B đến cột I không nếu lọc từng nhân viên và có thể

1/File in ra 2 trang là do định dạng(căn lề của sheet BAO CAO). Bạn chỉnh lại lề sheet BAO CAO cho vừa 1 trang, thì khi ra file PDF cũng chỉ là 1 trang.

2/tự động in hàng loạt theo mã nhân viên bằng 1 nút ấn. Cám ơn bạn rất nhiều.

2/Tôi không biết viết code để in file PDF.
Tôi chỉ biết làm tự động tạo ra hàng loạt file PDF theo mã nhân viên.
Nhấn nút LỌC DỮ LIỆU để hiện form. Bạn hãy chọn mã số trong Combobox Từ và mã số đến trong combobox Den và nhấn nút Print và xem kết quả. hãy thử lại với mã số khác.
Khi chon dấu tich trong checkbox In toàn bộ và nhấn nút Print thì sẽ tạo ra hàng loạt file PDF theo mã nhân viên.

 

[thaong]

1/File in ra 2 trang là do định dạng(căn lề của sheet BAO CAO). Bạn chỉnh lại lề sheet BAO CAO cho vừa 1 trang, thì khi ra file PDF cũng chỉ là 1 trang.

2/Tôi không biết viết code để in file PDF.
Tôi chỉ biết làm tự động tạo ra hàng loạt file PDF theo mã nhân viên.
Nhấn nút LỌC DỮ LIỆU để hiện form. Bạn hãy chọn mã số trong Combobox Từ và mã số đến trong combobox Den và nhấn nút Print và xem kết quả. hãy thử lại với mã số khác.
Khi chon dấu tich trong checkbox In toàn bộ và nhấn nút Print thì sẽ tạo ra hàng loạt file PDF theo mã nhân viên.

File bị lỗi khi chọn mã số, còn khi in toàn bộ danh sách thì chỉ được 10 mã nhân viên khác nhau nhưng cùng 1 bảng báo cáo. Bạn có thể xem lại giúp mình. Cám ơn bạn rất nhiều.

 

[HUONGHCKT]

View attachment 273116
File bị lỗi khi chọn mã số, còn khi in toàn bộ danh sách thì chỉ được 10 mã nhân viên khác nhau nhưng cùng 1 bảng báo cáo. Bạn có thể xem lại giúp mình. Cám ơn bạn rất nhiều.

Chỉnh lại. xem file đính kèm.

 

[thaong]

Chỉnh lại. xem file đính kèm.

File pdf in ra lại giống nhau, mặc dù mã số và lúc ấn lọc báo cáo chạy khác nhau đối với trường hợp in toàn bộ.

 

[HUONGHCKT]

File pdf in ra lại giống nhau, mặc dù mã số và lúc ấn lọc báo cáo chạy khác nhau đối với trường hợp in toàn bộ.

Chỉnh tiếp. Hy vọng lần này đúng ý.
Tôi chưa Test kỹ, Bạn test kỹ báo lại kết quả.

 

[thaong]

Chỉnh tiếp. Hy vọng lần này đúng ý.
Tôi chưa Test kỹ, Bạn test kỹ báo lại kết quả.

Báo cáo khi in toàn bộ thì không bị lỗi và các báo cáo đã đúng với từng mã nhân viên, nhưng in từ mã số đến mã số lại bị lỗi. Bạn xem lại giúp mình phần dữ liệu có email bên cột A sheet 2 mới chạy qua báo cáo (cell không có email thì không báo cáo).
Mình gửi lại file, file bạn gửi đã xóa công thức tại cột A sheet 2.
Cám ơn bạn nhiều.

 

[HUONGHCKT]

View attachment 273163
Báo cáo khi in toàn bộ thì không bị lỗi và các báo cáo đã đúng với từng mã nhân viên, nhưng in từ mã số đến mã số lại bị lỗi. Bạn xem lại giúp mình phần dữ liệu có email bên cột A sheet 2 mới chạy qua báo cáo (cell không có email thì không báo cáo).
Mình gửi lại file, file bạn gửi đã xóa công thức tại cột A sheet 2.
Cám ơn bạn nhiều.

Bạn xem file. Hy vọng đã đúng ý.
Chúc vui, khỏe, an toàn.

 

[thaong]

Bạn xem file. Hy vọng đã đúng ý.
Chúc vui, khỏe, an toàn.

File đã chạy rất chuẩn. Cám ơn bạn rất nhiều.