Dear Abo,
coba cekrip hapus yang kemarin diganti dengan cekrip ini:
Sub hapus()
Dim tgl As Date
Dim nomer As Variant
tgl = Sheets("sheet2").Range("A" & Worksheets("Sheet2").Range("A" &
Rows.Count).End(xlUp).Row)
If tgl = Sheets("sheet1").Range("H4") Then
nomer = "PJ/" & Format(Right(Sheets("sheet2").Range("B" &
Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row), 4) + 1, "0000")
Else
nomer = "PJ/" & Format(1, "0000")
End If
Range("H5") = nomer
Sheets("Sheet1").Range("C4:C6").ClearContents
Sheets("Sheet1").Range("H6:H6").ClearContents
Sheets("Sheet1").Range("A9:G21").ClearContents
Sheets("Sheet1").Range("F23:H23").ClearContents
End Sub
Kolom sub total tidak dihapus, Cellnya diisi dengan formula perkalian
antara quality dan harga datanya yang kosong dapat disembunyikan dengan
format cell,
Format nomor kutansi disesuaikan kebutuhan
Salam
Kenang
On Thu, Aug 6, 2015 at 7:37 PM, Cahaya Hati Abadi [email protected]
[belajar-excel] <[email protected]> wrote:
>
>
> Malam Pak Agus,
> Boleh bantu untuk bikin nomor kwitansi berdasarkan tanggal + Nomor urut,
> dan jikalau beda tanggal mulai dari no.urut 1(satu) lagi.
>
> Terima kasih.
>
> Salam hormat,
> Abo
>
>
>
>
>
>
> Pada Kamis, 6 Agustus 2015 8:22, "Cahaya Hati Abadi
> [email protected] [belajar-excel]" <[email protected]>
> menulis:
>
>
>
>
>
>
> Dear Pak Agus,
>
> Terima kasih pak, saya sudah coba pakai record macro tapi gagal terus,
> sehingga saya coba tanya ke milist.
> sekali lagi terima kasih atas bantuannya semoga bapak cepat sukses dalam
> pembellajaran yang sedang dilakukan.
>
> Salam Abo,
> Abo
>
>
>
>
> Pada Kamis, 6 Agustus 2015 11:37, "Nang Agus [email protected]
> [belajar-excel]" <[email protected]> menulis:
>
>
>
>
>
>
> Dear Abo,
>
> Bagaimana kalau cekrip menyimpan dibuat seperti ini?
>
> Option Explicit
> Sub Kopi()
> Dim i As Integer
> Dim mak As Integer
> Dim baris As Integer
> Application.ScreenUpdating = False
> mak = Application.CountA(Worksheets("Sheet1").Range("E9:E21"))
> baris = Worksheets("Sheet2").Range("A" &
> Rows.Count).End(xlUp).Offset(1).Row
> For i = 0 To mak - 1
> Worksheets("Sheet1").Range("H4").Copy
> Worksheets("Sheet2").Range("A" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("H5").Copy
> Worksheets("Sheet2").Range("B" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("C4").Copy
> Worksheets("Sheet2").Range("C" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("C5").Copy
> Worksheets("Sheet2").Range("D" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("A" & 9 + i).Copy
> Worksheets("Sheet2").Range("E" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("C" & 9 + i).Copy
> Worksheets("Sheet2").Range("F" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("D" & 9 + i).Copy
> Worksheets("Sheet2").Range("G" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("F" & 9 + i).Copy
> Worksheets("Sheet2").Range("H" & baris + i).PasteSpecial xlValues
> Worksheets("Sheet1").Range("H" & 9 + i).Copy
> Worksheets("Sheet2").Range("I" & baris + i).PasteSpecial xlValues
>
> Next i
>
> Application.ScreenUpdating = True
> End Sub
>
>
> sedangkan untuk menghapusnya boleh digunakan cekrip:
>
> Sub hapus()
> Sheets("Sheet1").Range("C4:C6").ClearContents
> Sheets("Sheet1").Range("H4:C6").ClearContents
> Sheets("Sheet1").Range("A9:G21").ClearContents
> Sheets("Sheet1").Range("F23:H23").ClearContents
> End Sub
>
> sebenarnya untuk belajar macro dapat menggunakan record macro. saya
> sendiri masih belajar dengan cara tersebut.
>
> salam
> Agus
>
> 2015-08-05 15:23 GMT+07:00 Cahaya Hati Abadi [email protected]
> [belajar-excel] <[email protected]>:
>
>
> Dear Para Master,
> Mohon bantuan untuk pertanyaan saya sesuai terlampir.
>
> Terima kasih.
>
> Salam hormat,
> Abo
>
>
>
>
>
>
>
>
