cara Copy Sheet

  1. 4 tahun lalu

    waluyo

    28 Mar 2020 Kubu Raya Kalbar + 236 Poin

    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

  2. Masdad

    31 Mar 2020 Terverifikasi Demak + 2.198 Poin

    Mungkin maksudnya hasilnya yang 5 file itu, harusnya hanya ada 1 file dengan 5 sheet gitu ya?
    Coba gunakan kode VBA berikut ini

    Sub anali()
    Dim sFilename As String
    Dim nWB As Workbook
    sFilename = Sheet3.Range("mapel").Value & "-" & Sheet3.Range("kelas").Value & " - " & Sheet3.Range("nagu") & ".xlsx" 'You can give a nem to save
    Set nWB = Workbooks.Add
    Application.ScreenUpdating = False
        Sheet9.Copy After:=nWB.Sheets(1)
        Sheet10.Copy After:=nWB.Sheets(2)
        Sheet11.Copy After:=nWB.Sheets(3)
        Sheet19.Copy After:=nWB.Sheets(4)
        Sheet1.Copy After:=nWB.Sheets(5)
        
        nWB.Sheets(1).Delete
        Application.DisplayAlerts = False
        nWB.SaveAs ThisWorkbook.Path & "\" & sFilename
        
        Sheet9.Range("a1:bc193").Copy
        Sheet9.Range("a1:bc193").PasteSpecial Paste:=xlPasteValues
        ActiveSheet.Name = "Nilai" & "-" & Sheet3.Range("nagu").Value
    Application.ScreenUpdating = True
    End Sub

 

atau Mendaftar untuk ikut berdiskusi!