Assamulaikum master saya mau mengkopy beberapa sheet dalam satu file menajadi sebuah workbookbaru bagaimana perintah VBA seandainya kita tinggal Klik sebuat tombal di tolbar ( Buat hasil analisis )
vba yang sya tukis :
Dim sFilename As String
sFilename = Sheet3.Range("mapel").Value & "-" & Sheet3.Range("kelas").Value & " - " & Sheet3.Range("nagu") & ".Xlsx" 'You can give a nem to save
Sheet9.Copy
Sheet10.Copy
Sheet11.Copy
Sheet19.Copy
Sheet1.Copy
'Saving the Workbook
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sFilename
Sheet9.Range("a1:bc193").Copy
Sheet9.Range("a1:bc193").PasteSpecial Paste:=xlPasteValues
ActiveSheet.Name = "Nilai" & "-" & Sheet3.Range("nagu").Value
End Sub
setelah di klik tombalnya hasil sheet terpisah menjadi lima File bagaimana supaya menjadi satu file
terima kasih