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
#yiv0275534446 -- #yiv0275534446ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0275534446
#yiv0275534446ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0275534446
#yiv0275534446ygrp-mkp #yiv0275534446hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv0275534446 #yiv0275534446ygrp-mkp #yiv0275534446ads
{margin-bottom:10px;}#yiv0275534446 #yiv0275534446ygrp-mkp .yiv0275534446ad
{padding:0 0;}#yiv0275534446 #yiv0275534446ygrp-mkp .yiv0275534446ad p
{margin:0;}#yiv0275534446 #yiv0275534446ygrp-mkp .yiv0275534446ad a
{color:#0000ff;text-decoration:none;}#yiv0275534446 #yiv0275534446ygrp-sponsor
#yiv0275534446ygrp-lc {font-family:Arial;}#yiv0275534446
#yiv0275534446ygrp-sponsor #yiv0275534446ygrp-lc #yiv0275534446hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0275534446
#yiv0275534446ygrp-sponsor #yiv0275534446ygrp-lc .yiv0275534446ad
{margin-bottom:10px;padding:0 0;}#yiv0275534446 #yiv0275534446actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0275534446
#yiv0275534446activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0275534446
#yiv0275534446activity span {font-weight:700;}#yiv0275534446
#yiv0275534446activity span:first-child
{text-transform:uppercase;}#yiv0275534446 #yiv0275534446activity span a
{color:#5085b6;text-decoration:none;}#yiv0275534446 #yiv0275534446activity span
span {color:#ff7900;}#yiv0275534446 #yiv0275534446activity span
.yiv0275534446underline {text-decoration:underline;}#yiv0275534446
.yiv0275534446attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv0275534446 .yiv0275534446attach div a
{text-decoration:none;}#yiv0275534446 .yiv0275534446attach img
{border:none;padding-right:5px;}#yiv0275534446 .yiv0275534446attach label
{display:block;margin-bottom:5px;}#yiv0275534446 .yiv0275534446attach label a
{text-decoration:none;}#yiv0275534446 blockquote {margin:0 0 0
4px;}#yiv0275534446 .yiv0275534446bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv0275534446
.yiv0275534446bold a {text-decoration:none;}#yiv0275534446 dd.yiv0275534446last
p a {font-family:Verdana;font-weight:700;}#yiv0275534446 dd.yiv0275534446last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0275534446
dd.yiv0275534446last p span.yiv0275534446yshortcuts
{margin-right:0;}#yiv0275534446 div.yiv0275534446attach-table div div a
{text-decoration:none;}#yiv0275534446 div.yiv0275534446attach-table
{width:400px;}#yiv0275534446 div.yiv0275534446file-title a, #yiv0275534446
div.yiv0275534446file-title a:active, #yiv0275534446
div.yiv0275534446file-title a:hover, #yiv0275534446 div.yiv0275534446file-title
a:visited {text-decoration:none;}#yiv0275534446 div.yiv0275534446photo-title a,
#yiv0275534446 div.yiv0275534446photo-title a:active, #yiv0275534446
div.yiv0275534446photo-title a:hover, #yiv0275534446
div.yiv0275534446photo-title a:visited {text-decoration:none;}#yiv0275534446
div#yiv0275534446ygrp-mlmsg #yiv0275534446ygrp-msg p a
span.yiv0275534446yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0275534446
.yiv0275534446green {color:#628c2a;}#yiv0275534446 .yiv0275534446MsoNormal
{margin:0 0 0 0;}#yiv0275534446 o {font-size:0;}#yiv0275534446
#yiv0275534446photos div {float:left;width:72px;}#yiv0275534446
#yiv0275534446photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv0275534446
#yiv0275534446photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0275534446
#yiv0275534446reco-category {font-size:77%;}#yiv0275534446
#yiv0275534446reco-desc {font-size:77%;}#yiv0275534446 .yiv0275534446replbq
{margin:4px;}#yiv0275534446 #yiv0275534446ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv0275534446 #yiv0275534446ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0275534446
#yiv0275534446ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0275534446
#yiv0275534446ygrp-mlmsg select, #yiv0275534446 input, #yiv0275534446 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv0275534446
#yiv0275534446ygrp-mlmsg pre, #yiv0275534446 code {font:115%
monospace;}#yiv0275534446 #yiv0275534446ygrp-mlmsg *
{line-height:1.22em;}#yiv0275534446 #yiv0275534446ygrp-mlmsg #yiv0275534446logo
{padding-bottom:10px;}#yiv0275534446 #yiv0275534446ygrp-msg p a
{font-family:Verdana;}#yiv0275534446 #yiv0275534446ygrp-msg
p#yiv0275534446attach-count span {color:#1E66AE;font-weight:700;}#yiv0275534446
#yiv0275534446ygrp-reco #yiv0275534446reco-head
{color:#ff7900;font-weight:700;}#yiv0275534446 #yiv0275534446ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv0275534446 #yiv0275534446ygrp-sponsor
#yiv0275534446ov li a {font-size:130%;text-decoration:none;}#yiv0275534446
#yiv0275534446ygrp-sponsor #yiv0275534446ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv0275534446
#yiv0275534446ygrp-sponsor #yiv0275534446ov ul {margin:0;padding:0 0 0
8px;}#yiv0275534446 #yiv0275534446ygrp-text
{font-family:Georgia;}#yiv0275534446 #yiv0275534446ygrp-text p {margin:0 0 1em
0;}#yiv0275534446 #yiv0275534446ygrp-text tt {font-size:120%;}#yiv0275534446
#yiv0275534446ygrp-vital ul li:last-child {border-right:none
!important;}#yiv0275534446
