دوستان سلام
من یک کد پیدا کردم که باهاش می تونم اتوماتیک فیلتر کنم و پرینت بگیرم.
ولی می خوام این کد تغییر بدم و بتونم اتوماتیک فیلتر کنم و نتیجه رو به صورت یک عکس بگیرم.
میشه کسی بهم کمک کنه؟
مرسی
Sub Auto_Print_Lamp_PK()
Dim noDupes As New Collection
Dim rw As Long
Dim itm As Variant
Selection.AutoFilter Field:=2
rw = ActiveSheet.AutoFilter.Range.Row
For Each cell In ActiveSheet.AutoFilter.Range.Columns(2).Cells
If cell.Row <> rw Then
On Error Resume Next
noDupes.Add cell.Value, cell.Text
On Error GoTo 0
End If
Next
For Each itm In noDupes
Selection.AutoFilter Field:=2, Criteria1:=itm
Selection.AutoFilter Field:=2, Criteria1:=itm
ActiveSheet.PrintPreview
Next
End Sub
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)