Eksport Nilai

 Sub export()

Range("C4:P19").Copy

Workbooks.Add Range("B2").Select

ActiveSheet.Paste

'===memberi nama sheet hasil eksport===

Sheets(1).Name = InputBox("Ketik nama Sheet hasil eksport", "Eksport Data")

On Error Resume Next

Application.ThisWorkbook.Sheets(1).Name

'===menghapus kolom yang kosong===

Rows("4").Select

Selection.SpecialCells(xlCellTypeBlanks).Select

Selection.EntireColumn.Delete

'===menghapus baris yang kosong===

Columns("C").Select

Selection.SpecialCells(xlCellTypeBlanks).Select

Selection.EntireRow.Delete

'===memberi pesan sudah berhasil=======

MsgBox "Data berhasil diexport", vbOKOnly + vbInformation, "Hasil Export"

Range("A1").Select

End Sub