Cara Mudah Merubah Sheet menjadi File di Excel

Cara Mudah Merubah Sheet menjadi File di Excel Memunculkan DEVELOPER :    • Cara Memunculkan Menu Developer di Excel   rumus pisah Sheet ke File : Sub PisahkanLembaranMenjadiFile() Dim ws As Worksheet Dim newWB As Workbook Dim wsName As String Dim folderPath As String ' Ganti folderPath dengan path folder tempat Anda ingin menyimpan file yang dipisahkan. folderPath = "C:\Users\asepp\Downloads\New folder\" ' Loop melalui setiap lembaran di workbook saat ini. For Each ws In ThisWorkbook.Sheets ' Simpan nama lembaran saat ini. wsName = ws.Name ' Salin lembaran saat ini ke workbook baru. ws.Copy Set newWB = ActiveWorkbook ' Simpan workbook baru sebagai file terpisah dengan nama lembaran. newWB.SaveAs folderPath & wsName & ".xlsx" ' Tutup workbook baru tanpa menyimpan perubahan. newWB.Close SaveChanges:=False Next ws ' Tampilkan pesan selesai. MsgBox "Pemisahan selesai!", vbInformation End Sub #education #tutorial #google #excel #data #googlesheets #word #spreadsheets #powerpoint #copy #belajar #video #whatsapp #whatsapp_status #best #belajar #trim #pintar #data #ring #sum #ifs #macro #vba #windows #nilai #count #vlookup #hlookup #keyboard #windows