IN list sau khi filter tự động (1 người xem)

[hunglao]

Dear Các anh

Trương hợp nay, ở sheet "Trang dau" côt H em sort ra những giá trị "X"
Tương ứng ở cột G sẽ hiện ra các mã số và LINK

Em muốn sau khi sort ra thì excel sẽ mở các link đó và tự động in ra bằng Macro.

Em loay hay mà chưa biết làm, vậy post lên đây nhờ các anh/chi giúp

Em cảm ơn nhiều

 

[viehoai]

Dear Các anh

Trương hợp nay, ở sheet "Trang dau" côt H em sort ra những giá trị "X"
Tương ứng ở cột G sẽ hiện ra các mã số và LINK

Em muốn sau khi sort ra thì excel sẽ mở các link đó và tự động in ra bằng Macro.

Em loay hay mà chưa biết làm, vậy post lên đây nhờ các anh/chi giúp

Em cảm ơn nhiều

Mình không dùng lọc bằng AutoFillter (nhiều sẽ châm) mà lọc dùng hàm Filter2DArray
Bạn test thử rồi cho ý nhé

 

[hunglao]

Cảm ơn anh, file hoạt động tốt, nhưng một số trường hợp như em gửi đây lại báo lỗi
Anh kiểm tra giùm em

 

[viehoai]

Cảm ơn anh, file hoạt động tốt, nhưng một số trường hợp như em gửi đây lại báo lỗi
Anh kiểm tra giùm em

Do giá trị cột G không đúng với tên sheet
VD: 069-00784, sheet tên 069-784, như vậy theo cái nào?
065-00642 tên sheet lại là 065-00642+410??? đặt tên sheet không thống nhất làm sao tự động hóa được?

 

[hunglao]

Do giá trị cột G không đúng với tên sheet
VD: 069-00784, sheet tên 069-784, như vậy theo cái nào?

côt
Vì có rất nhiều giá trị ở cột G không đúng với tên sheet, nhưng em đã link sẵn ở cột G rồi, Anh xem có thay thay về đối chiếu cột G với tên sheet bằng cách mở trực tiếp link ở cột G được không

 

[viehoai]

côt
Vì có rất nhiều giá trị ở cột G không đúng với tên sheet, nhưng em đã link sẵn ở cột G rồi, Anh xem có thay thay về đối chiếu cột G với tên sheet bằng cách mở trực tiếp link ở cột G được không

Bạn thử code này xem sao nhé
[GPECODE=vb]Sub PrintSheets()
Dim Arr(), sArr()
Dim i&, ShN As String, Sh As Worksheet
Arr = Sheet3.Range("G3:H1000").Value
sArr = Filter2DArray(Arr, 2, "X", False)
For i = 1 To UBound(sArr)
ShN = Left(Arr(i, 1), 4) & CDbl(Right(Arr(i, 1), 5))
For Each Sh In Sheets
If InStr(1, ShN, Sh.Name) > 0 Then
'Sh.PrintOut , , , , , , True
Sh.PrintPreview
GoTo TiepI
End If
Next
TiepI:
Next
End Sub
[/GPECODE]
Nếu bạn muốn Hyperlink thì sử dụng code này thử nhé
[GPECODE=vb]Sub InShs()
Dim Rng As Range, t&
For Each Rng In Sheet3.Range("G3:G" & Sheet3.[g65500].End(3).Row)
If Rng.Offset(, 1).Value = "X" Then
Rng.Hyperlinks(1).Follow , AddHistory:=True
ActiveSheet.PrintPreview
End If
Next
Sheet3.Select
End Sub[/GPECODE]

 

[hunglao]

Anh nhung code vao file giùm em được ko, em nhúng mà ko được
Thank a

 

[viehoai]

Anh nhung code vao file giùm em được ko, em nhúng mà ko được
Thank a

Nhấn Alt+F11 để copy vào sao không được

 

[hunglao]

Cam ơn anh, code hoạt dộng rất tốt.