Bls: [belajar-excel] Copy paste data menurut posisi cell

2018-04-10 Terurut Topik Toby kenzo tobyke...@yahoo.co.id [belajar-excel] 
Yang anda inginkan sebenarnya seperti apa...Coba kirim filenya lagi dan hasil 
yang anda inginkan semuanya biar teman-teman disini juga mengerti..

TerimaKasih
 

Pada Rabu, 11 April 2018 6:52, "Cari Kebenaran cahayailm...@gmail.com 
[belajar-excel]"  menulis:
 

     Pak Toby Kenzo, terima kasih atas responnya. 
Code saya ubah jadi seperti berikut ini:
Private Sub Worksheet_Change(ByVal Target As Range)If Not 
Application.Intersect(Range("L13:L17"), Range(Target..Address)) Is Nothing 
ThenIf Range(Target.Address) > 0 
ThenWorksheets("INVOICE").Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1, 
-2)).CopyWorksheets("INVOICE").Cells(21, 1).End(xlUp).Offset(1, 0).PasteSpecial 
xlPasteValuesApplication.CutCopyMode = FalseRange(Target.Address).Offset(0, -1) 
= ""Range(Target.Address).Offset(0, 0) = 
""Worksheets("INVOICE").Range("K12").SelectEnd IfEnd IfEnd Sub

Yang belum terpecahkan adalah: apabila  baris ke 21 sudah terisi, pinginnya 
aktivitas copy paste berhenti karena sudah tidak tempat kosong lagi. Ini 
sebagai antisipasi salah input . Code VBA ini yang masih belum bisa saya susun. 
Terima kasih 
On Tue, Apr 10, 2018 at 4:55 PM, Toby kenzo tobyke...@yahoo.co.id 
[belajar-excel]  wrote:

     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]"  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 


  

  

  #yiv5868833588 #yiv5868833588 -- #yiv5868833588ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5868833588 
#yiv5868833588ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5868833588 
#yiv5868833588ygrp-mkp #yiv5868833588hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv5868833588 #yiv5868833588ygrp-mkp #yiv5868833588ads 
{margin-bottom:10px;}#yiv5868833588 #yiv5868833588ygrp-mkp .yiv5868833588ad 
{padding:0 0;}#yiv5868833588 #yiv5868833588ygrp-mkp .yiv5868833588ad p 
{margin:0;}#yiv5868833588 #yiv5868833588ygrp-mkp .yiv5868833588ad a 
{color:#ff;text-decoration:none;}#yiv5868833588 #yiv5868833588ygrp-sponsor 
#yiv5868833588ygrp-lc {font-family:Arial;}#yiv5868833588 
#yiv5868833588ygrp-sponsor #yiv5868833588ygrp-lc #yiv5868833588hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5868833588 
#yiv5868833588ygrp-sponsor #yiv5868833588ygrp-lc .yiv5868833588ad 
{margin-bottom:10px;padding:0 0;}#yiv5868833588 #yiv5868833588actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5868833588 
#yiv5868833588activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5868833588
 #yiv5868833588activity span {font-weight:700;}#yiv5868833588 
#yiv5868833588activity span:first-child 
{text-transform:uppercase;}#yiv5868833588 #yiv5868833588activity span a 
{color:#5085b6;text-decoration:none;}#yiv5868833588 #yiv5868833588activity span 
span {color:#ff7900;}#yiv5868833588 #yiv5868833588activity span 
.yiv5868833588underline {text-decoration:underline;}#yiv5868833588 
.yiv5868833588attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv5868833588 .yiv5868833588attach div a 
{text-decoration:none;}#yiv5868833588 .yiv5868833588attach img 
{border:none;padding-right:5px;}#yiv5868833588 .yiv5868833588attach label 
{display:block;margin-bottom:5px;}#yiv5868833588 .yiv5868833588attach label a

Bls: [belajar-excel] Copy paste data menurut posisi cell

2018-04-10 Terurut Topik Toby kenzo tobyke...@yahoo.co.id [belajar-excel] 
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]"  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:#ff;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