cần giúp đỡ về xuất ra PDF theo điều kiện (1 người xem)

[vova2209]

Sub Pdf_SoHoa() 'Chon xuat bien ban tu doan den doan can in
Dim I As Long, Er As Long
Dim fP, eP
fP = Range("C1").Value: eP = Range("C2").Value 'Xuat Tu dau - Den dau
Er = Sheet21.Range("A65535").End(xlUp).row 'Ma~ du liêu List tông?
If fP < Application.Min(Sheet21.Range("A3:A" & Er)) Then
MsgBox ("Sô' biên ban dâu` nho ho*n sô' biên ban hiên. có")
Exit Sub
End If
If eP > Application.Max(Sheet21.Range("A3:A" & Er)) Then 'Ma~ du liêu List tông?
MsgBox ("Sô' biên ban cuôi' lon' ho*n sô' biên ban hiên. có")
Exit Sub
End If
If Not IsNumeric(fP) Or Not IsNumeric(fP) Then
MsgBox ("Sô' biên ban không phai dang sô'")
Exit Sub
End If
For I = fP To eP
Range("O8").Value = I 'ô ma~
ActiveSheet.ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & Range("O8")
Next I
End Sub

Em muốn xuất file ra pdf chỉ định từ số 100 đến 110, nhưng trong bảng chỉ có stt từ 100, 102, 103, 104, 110: Là có 5 biên bản sẽ được xuất ra giống như hàm ở ô O8 =OFFSET('3.DV Cong'!$A$3;$O$9-100, phải sửa code lại như nào mong được giúp đỡ

 

[quick87]

View attachment 184478
Em muốn xuất file ra pdf chỉ định từ số 100 đến 110, nhưng trong bảng chỉ có stt từ 100, 102, 103, 104, 110: Là có 5 biên bản sẽ được xuất ra giống như hàm ở ô O8 =OFFSET('3.DV Cong'!$A$3;$O$9-100, phải sửa code lại như nào mong được giúp đỡ

Bạn sửa công thức tại ô O8 thành:

=IFERROR(VLOOKUP($O$9,'3.DV Cong'!$A$4:$A$15,1,0),MAX(C1,MIN($O$9,'3.DV Cong'!$A$4:$A$15)))

Code trong modules chỉnh lại thành:

Sub Pdf_SoHoa()   'Chon xuat bien ban tu doan den doan can in

    Dim I As Long, Er As Long
    Dim fP, eP
    
  fP = Range("C1").Value: eP = Range("C2").Value 'Xuat Tu dau - Den dau
    Er = Sheet21.Range("A65535").End(xlUp).row 'Ma~ du liêu List tông?
    If fP < Application.Min(Sheet21.Range("A3:A" & Er)) Then
        MsgBox ("Sô' biên ban dâu` nho ho*n sô' biên ban hiên. có")
        Exit Sub
    End If
    If eP > Application.Max(Sheet21.Range("A3:A" & Er)) Then 'Ma~ du liêu List tông?
        MsgBox ("Sô' biên ban cuôi' lon' ho*n sô' biên ban hiên. có")
        Exit Sub
    End If
    If Not IsNumeric(fP) Or Not IsNumeric(fP) Then
        MsgBox ("Sô' biên ban không phai dang sô'")
        Exit Sub
    End If
    For I = fP To eP
        Range("O9").Value = I 'ô ma~
        ActiveSheet.ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & Range("O8")
    Next I
End Sub

Code của bạn tôi chỉnh tại dòng:

Range("O9").Value = I 'ô ma~

Chúc bạn thành công !

 

[vova2209]

Bạn sửa công thức tại ô O8 thành:

=IFERROR(VLOOKUP($O$9,'3.DV Cong'!$A$4:$A$15,1,0),MAX(C1,MIN($O$9,'3.DV Cong'!$A$4:$A$15)))

Code trong modules chỉnh lại thành:

Sub Pdf_SoHoa()   'Chon xuat bien ban tu doan den doan can in

    Dim I As Long, Er As Long
    Dim fP, eP
   
  fP = Range("C1").Value: eP = Range("C2").Value 'Xuat Tu dau - Den dau
    Er = Sheet21.Range("A65535").End(xlUp).row 'Ma~ du liêu List tông?
    If fP < Application.Min(Sheet21.Range("A3:A" & Er)) Then
        MsgBox ("Sô' biên ban dâu` nho ho*n sô' biên ban hiên. có")
        Exit Sub
    End If
    If eP > Application.Max(Sheet21.Range("A3:A" & Er)) Then 'Ma~ du liêu List tông?
        MsgBox ("Sô' biên ban cuôi' lon' ho*n sô' biên ban hiên. có")
        Exit Sub
    End If
    If Not IsNumeric(fP) Or Not IsNumeric(fP) Then
        MsgBox ("Sô' biên ban không phai dang sô'")
        Exit Sub
    End If
    For I = fP To eP
        Range("O9").Value = I 'ô ma~
        ActiveSheet.ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & Range("O8")
    Next I
End Sub

Code của bạn tôi chỉnh tại dòng:


Chúc bạn thành công !

ok! cảm ơn anh nhiều, đúng như mong ước rồi ạ