Tombol Save & Clear menggunakan Macro

[andi nugroho]

Dear Bapak / Ibu

Mohon dibantu untuk membuat macro tombol save di worksheet "persekot" agar bisa tersimpan di worksheet "Output". Dan tombol clear untuk mengosongkan isian di worksheet "persekot" untuk input transaksi berikutnya..

Best Regards.

Andi NP

[Nang Agus]

Dear Adi Nugroho ...
Mencoba untuk membuat macro simpan yaa...
1. cari nomor baris kosong di sheet OUTPUT
br = Sheets("OUTPUT").Range("B40000").End(xlUp).Row + 1
2. isi nomornya dahulu
Sheets("OUTPUT").Range("B" & br) = br - 4
3. Kopi data dari sheet Persekot Tanda Terima
Sheets("Persekot Tanda Terima").Range("D4").Copy
4. Paste hasilnya di sheet OUTPUT
Sheets("OUTPUT").Range("C" & br).PasteSpecial xlPasteValues
5. Matikan perintah copy
Application.CutCopyMode = False
6. Ulang langkah 3 - 5 sampai semua data selesai dikopi.
Selamat mencoba

Regard
Nang Agus.

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to milis-belajar-e...@googlegroups.com.
To view this discussion visit https://groups.google.com/d/msgid/milis-belajar-excel/CAF1_LEZ%2BisWKFOkBpB7%3D4_qRTo16q7SMy8Ado4fO2EjsxDbMZw%40mail.gmail.com.

[flavalicious2011]

Dear Pak Nang Agus dkk

Terima kasih pak..Apakah bisa dibantu dengan excel nya.

q" tombol save di worksheet "persekot" agar bisa tersimpan di worksheet "Output". Dan tombol clear untuk mengosongkan isian di worksheet "persekot" untuk input transaksi berikutnya"uq

Regards

Andi

[Sony Ario]

Dear Andi,

Berikut saya bantu dengan update macro nya. Silahkan update bila perlu.

Wass

Sony

To view this discussion visit https://groups.google.com/d/msgid/milis-belajar-excel/d79a758f-7376-41b6-b7d2-30eae1527275n%40googlegroups.com.

[utthank abe]

Sub Simpan()
    'deklarasikan variabel
    Dim Nomor As Long
    Dim TelahTerimaDari As String
    Dim TanggalTerima As Long 'antsipasi perubahan posisi bulan dan tanggal
    Dim Pembayaran As String
    Dim JumlahUang As Double
    Dim Penerima As String
    Dim TmpTgl As Integer
    Dim BarisAkhir As Long
    Dim ArrData
   
    'Persiapkan data
    With Sheets("Persekot Tanda Terima")
        TelahTerimaDari = .Range("D4").Value2
        TmpTgl = InStr(1, .Range("H10").Value2, ",") 'cari posisi koma
        TanggalTerima = CLng(CDate(Trim(Mid(.Range("H10").Value2, TmpTgl + 1)))) 'konversi ke tipe long
        Pembayaran = .Range("D6").Value2
        JumlahUang = .Range("D7").Value2
        Penerima = .Range("H14").Value2
    End With
   
    'Kopi Data
    With Sheets("OUTPUT")
        BarisAkhir = .Range("B" & .Rows.Count).End(xlUp).Row + 1
        ArrData = Array(BarisAkhir - 4, TelahTerimaDari, TanggalTerima, Pembayaran, JumlahUang, Penerima)
        .Range("B" & BarisAkhir).Resize(, 6).Value2 = ArrData
    End With
    Hapus
End Sub

Sub Hapus()
    'Perhatikan cell yang merge
    With Sheets("Persekot Tanda Terima")
        .Range("D4:J10,H14:J14").ClearContents
    End With
End Sub