Selamat siang suhu suhu saya bikin vba di excel untuk save ke pdf dan copy paste ke 2 sheet berbeda secara bersamaan, sebelumnya tidak ada masalah, namun sekarang ada error .
runtime error '1004': application-defined or object-defined error
apakah karena rownya sudah mencapai belasan ribu?
mohon pencerahannya suhu sekalian
Private Sub SAVE_Click()
Application.ScreenUpdating = False
vFN = Application.GetSaveAsFilename( _
FileFilter:="Portable Document (*.pdf), *.pdf", _
Title:="Simpan dokumen sebagai...", _
InitialFileName:=ThisWorkbook.Path & "\namadokumen.pdf")If vFN <> False Then
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vFN, _
OpenAfterPublish:=True
End IfRange(Range("A3"), Range("A3000").End(xlUp)).Select
Selection.Copy
With Sheets("REKAP").Range("A" & Rows.Count).End(xlUp).Offset(3)
.PasteSpecial (xlPasteAll)
.PasteSpecial (xlPasteValuesAndNumberFormats)
End With
With Sheets("REKAP 22").Range("A" & Rows.Count).End(xlUp).Offset(3)
.PasteSpecial (xlPasteValuesAndNumberFormats)
End With
Range("D1:F1").ClearContents
Range("D2:F2").ClearContents
Range("c12:c1000").ClearContents
Range("A1").Select
End Sub