Dear Roni.
KLik kanan pada tombol Edit. (ingat harus pada designMode), pilih View Code
Ketik cekript:
Dim a As Integer
Dim b As Double
For a = 1 To 7
b = Sheets("SLIP").Range("A" & a + 1) + 1
Sheets("DATABASE").Range("D" & b) = Sheets("SLIP").Range("D" & a + 1)
Next a
Regard
Nang Agus
On 9/16/2019 13:14, y.ron...@yahoo.com [belajar-excel] wrote:
Dear All,
Mohon dibantu untuk Ketika Tombol EDIT di klik Maka sheet SLIP pada No
1 dan 15 akan teredit dan hasilnya akan muncul di Sheet DATABASE.
Terimakasih
Terlampir Filenya
Regards,
Roni
