Coba ganti scriptnya :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 0If Not Intersect(Target, Range("L13:L17")) IsNothing 
ThenSheet1.Range("A" & (Target.Row - 6)).Value =Cells(Target.Row, Target.Column 
- 2).ValueSheet1.Range("B" & (Target.Row - 6)).Value =Cells(Target.Row, 
Target.Column - 1).ValueSheet1.Range("C" & (Target.Row - 6)).Value 
=Cells(Target.Row, Target.Column).ValueOn Error Resume NextIf Target.Value < 7 
ThenSheet1.Range("A" & (Target.Row - 6)).Value =""Sheet1.Range("B" & 
(Target..Row - 6)).Value =""Sheet1.Range("C" & (Target.Row - 6)).Value =""If 
Target.Value = "" ThenSheet1.Range("A" & (Target.Row - 6)).Value 
=""Sheet1.Range("B" & (Target.Row - 6)).Value =""Sheet1.Range("C" & (Target.Row 
- 6)).Value =""ElseEnd IfEnd IfEnd IfEnd Sub

TerimaKasih





 

    Pada Senin, 9 April 2018 14:15, "Cari Kebenaran cahayailm...@gmail.com 
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
 

     Assalamu'alaikum warahmatullahi wabarakatuh
Kepada Para Master dan segenap anggota
Saya ingin mengcopy data antar cell dalam worksheet dengan ketentuan sebagai 
berikut: 
apabila sayamengetikkan nilai di atas 6 pada salah satu cell yang ada di range 
L13 sampaidengan L17, maka dari cell yang bersangkutan berikut 2 celldisebelah 
kanannya akan tercopy (VALUE) secara otomatis ke range A7sampai C7 (dibawah 
baris yang sudah terisi data).  Dan apabila baris A21 sampai dengan C7 sudah 
terisi data(record), maka perintah (code VBA) tidak boleh dijalankan lagi. VBA 
Code yangada cuma bisa di 1 cell saja , yaitu cell "L13".
Atas perhatian dan bantuannya, saya mengucapkan terima kasih
Wassalamu'alaikum warahmatullahi wabarakatuh 


  #yiv1642468460 #yiv1642468460 -- #yiv1642468460ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1642468460 
#yiv1642468460ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1642468460 
#yiv1642468460ygrp-mkp #yiv1642468460hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv1642468460 #yiv1642468460ygrp-mkp #yiv1642468460ads 
{margin-bottom:10px;}#yiv1642468460 #yiv1642468460ygrp-mkp .yiv1642468460ad 
{padding:0 0;}#yiv1642468460 #yiv1642468460ygrp-mkp .yiv1642468460ad p 
{margin:0;}#yiv1642468460 #yiv1642468460ygrp-mkp .yiv1642468460ad a 
{color:#0000ff;text-decoration:none;}#yiv1642468460 #yiv1642468460ygrp-sponsor 
#yiv1642468460ygrp-lc {font-family:Arial;}#yiv1642468460 
#yiv1642468460ygrp-sponsor #yiv1642468460ygrp-lc #yiv1642468460hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1642468460 
#yiv1642468460ygrp-sponsor #yiv1642468460ygrp-lc .yiv1642468460ad 
{margin-bottom:10px;padding:0 0;}#yiv1642468460 #yiv1642468460actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1642468460 
#yiv1642468460activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1642468460
 #yiv1642468460activity span {font-weight:700;}#yiv1642468460 
#yiv1642468460activity span:first-child 
{text-transform:uppercase;}#yiv1642468460 #yiv1642468460activity span a 
{color:#5085b6;text-decoration:none;}#yiv1642468460 #yiv1642468460activity span 
span {color:#ff7900;}#yiv1642468460 #yiv1642468460activity span 
.yiv1642468460underline {text-decoration:underline;}#yiv1642468460 
.yiv1642468460attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv1642468460 .yiv1642468460attach div a 
{text-decoration:none;}#yiv1642468460 .yiv1642468460attach img 
{border:none;padding-right:5px;}#yiv1642468460 .yiv1642468460attach label 
{display:block;margin-bottom:5px;}#yiv1642468460 .yiv1642468460attach label a 
{text-decoration:none;}#yiv1642468460 blockquote {margin:0 0 0 
4px;}#yiv1642468460 .yiv1642468460bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv1642468460 
.yiv1642468460bold a {text-decoration:none;}#yiv1642468460 dd.yiv1642468460last 
p a {font-family:Verdana;font-weight:700;}#yiv1642468460 dd.yiv1642468460last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1642468460 
dd.yiv1642468460last p span.yiv1642468460yshortcuts 
{margin-right:0;}#yiv1642468460 div.yiv1642468460attach-table div div a 
{text-decoration:none;}#yiv1642468460 div.yiv1642468460attach-table 
{width:400px;}#yiv1642468460 div.yiv1642468460file-title a, #yiv1642468460 
div.yiv1642468460file-title a:active, #yiv1642468460 
div.yiv1642468460file-title a:hover, #yiv1642468460 div.yiv1642468460file-title 
a:visited {text-decoration:none;}#yiv1642468460 div.yiv1642468460photo-title a, 
#yiv1642468460 div.yiv1642468460photo-title a:active, #yiv1642468460 
div.yiv1642468460photo-title a:hover, #yiv1642468460 
div.yiv1642468460photo-title a:visited {text-decoration:none;}#yiv1642468460 
div#yiv1642468460ygrp-mlmsg #yiv1642468460ygrp-msg p a 
span.yiv1642468460yshortcuts 
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1642468460 
.yiv1642468460green {color:#628c2a;}#yiv1642468460 .yiv1642468460MsoNormal 
{margin:0 0 0 0;}#yiv1642468460 o {font-size:0;}#yiv1642468460 
#yiv1642468460photos div {float:left;width:72px;}#yiv1642468460 
#yiv1642468460photos div div {border:1px solid 
#666666;min-height:62px;overflow:hidden;width:62px;}#yiv1642468460 
#yiv1642468460photos div label 
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1642468460
 #yiv1642468460reco-category {font-size:77%;}#yiv1642468460 
#yiv1642468460reco-desc {font-size:77%;}#yiv1642468460 .yiv1642468460replbq 
{margin:4px;}#yiv1642468460 #yiv1642468460ygrp-actbar div a:first-child 
{margin-right:2px;padding-right:5px;}#yiv1642468460 #yiv1642468460ygrp-mlmsg 
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1642468460 
#yiv1642468460ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1642468460 
#yiv1642468460ygrp-mlmsg select, #yiv1642468460 input, #yiv1642468460 textarea 
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv1642468460 
#yiv1642468460ygrp-mlmsg pre, #yiv1642468460 code {font:115% 
monospace;}#yiv1642468460 #yiv1642468460ygrp-mlmsg * 
{line-height:1.22em;}#yiv1642468460 #yiv1642468460ygrp-mlmsg #yiv1642468460logo 
{padding-bottom:10px;}#yiv1642468460 #yiv1642468460ygrp-msg p a 
{font-family:Verdana;}#yiv1642468460 #yiv1642468460ygrp-msg 
p#yiv1642468460attach-count span {color:#1E66AE;font-weight:700;}#yiv1642468460 
#yiv1642468460ygrp-reco #yiv1642468460reco-head 
{color:#ff7900;font-weight:700;}#yiv1642468460 #yiv1642468460ygrp-reco 
{margin-bottom:20px;padding:0px;}#yiv1642468460 #yiv1642468460ygrp-sponsor 
#yiv1642468460ov li a {font-size:130%;text-decoration:none;}#yiv1642468460 
#yiv1642468460ygrp-sponsor #yiv1642468460ov li 
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv1642468460 
#yiv1642468460ygrp-sponsor #yiv1642468460ov ul {margin:0;padding:0 0 0 
8px;}#yiv1642468460 #yiv1642468460ygrp-text 
{font-family:Georgia;}#yiv1642468460 #yiv1642468460ygrp-text p {margin:0 0 1em 
0;}#yiv1642468460 #yiv1642468460ygrp-text tt {font-size:120%;}#yiv1642468460 
#yiv1642468460ygrp-vital ul li:last-child {border-right:none 
!important;}#yiv1642468460 

   
  • [belajar-excel] Copy... Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
    • Bls: [belajar-e... Toby kenzo tobyke...@yahoo.co.id [belajar-excel]
      • Re: [belaja... Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
        • Bls: [b... Toby kenzo tobyke...@yahoo.co.id [belajar-excel]
          • Re:... Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
            • ... 'Mr. Kid' mr.nm...@gmail.com [belajar-excel]
    • Re: [belajar-ex... Sony Ario sony.ar...@gmail.com [belajar-excel]
    • Re: [belajar-ex... 'Mr. Kid' mr.nm...@gmail.com [belajar-excel]

Kirim email ke