[belajar-excel] Copy paste data menurut posisi cell [1 Attachment]

classic Classic list List threaded Threaded
8 messages Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Copy paste data menurut posisi cell [1 Attachment]

cahayailmu71
Assalamu'alaikum warahmatullahi wabarakatuh


Kepada Para Master dan segenap anggota


Saya ingin mengcopy data antar cell dalam worksheet dengan ketentuan
sebagai berikut:


apabila saya mengetikkan nilai di atas 6 pada salah satu cell yang ada di
range L13 sampai dengan L17, maka dari cell yang bersangkutan berikut 2
cell disebelah kanannya akan tercopy (VALUE) secara otomatis ke range A7
sampai 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 yang ada cuma bisa di 1 cell saja , yaitu
cell "L13".


Atas perhatian dan bantuannya, saya mengucapkan terima kasih


Wassalamu'alaikum warahmatullahi wabarakatuh

Belajar Target.xlsm (22K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

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

Sony Ario
waalaikumsalaam.

Mungkin kaya gini ya ? maaf kalau belum sesuai.

Wassalam


*gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*

2018-04-09 11:17 GMT+07:00 Cari Kebenaran [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Assalamu'alaikum warahmatullahi wabarakatuh
>
>
> Kepada Para Master dan segenap anggota
>
>
> Saya ingin mengcopy data antar cell dalam worksheet dengan ketentuan
> sebagai berikut:
>
>
> apabila saya mengetikkan nilai di atas 6 pada salah satu cell yang ada di
> range L13 sampai dengan L17, maka dari cell yang bersangkutan berikut 2
> cell disebelah kanannya akan tercopy (VALUE) secara otomatis ke range A7
> sampai 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 yang ada cuma bisa di 1 cell saja , yaitu
> cell "L13".
>
>
> Atas perhatian dan bantuannya, saya mengucapkan terima kasih
>
>
> Wassalamu'alaikum warahmatullahi wabarakatuh
>
>
>
>
>

Belajar Target_rev1.xlsm (24K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

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

Toby kenzo
In reply to this post by cahayailmu71
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 [hidden email] [belajar-excel]" <[hidden email]> 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

   
Reply | Threaded
Open this post in threaded view
|

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

cahayailmu71
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 Then
If Range(Target.Address) > 0 Then
Worksheets("INVOICE").Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1,
-2)).Copy
Worksheets("INVOICE").Cells(21, 1).End(xlUp).Offset(1, 0).PasteSpecial
xlPasteValues
Application.CutCopyMode = False
Range(Target.Address).Offset(0, -1) = ""
Range(Target.Address).Offset(0, 0) = ""
Worksheets("INVOICE").Range("K12").Select
End If
End If
End 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 [hidden email]
[belajar-excel] <[hidden email]> wrote:

>
>
> Coba ganti scriptnya :
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> On Error GoTo 0
> If Not Intersect(Target, Range("L13:L17")) Is Nothing Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column - 2).Value
> Sheet1.Range("B" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column - 1).Value
> Sheet1.Range("C" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column).Value
> On Error Resume Next
> If Target.Value < 7 Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = ""
> Sheet1.Range("B" & (Target.Row - 6)).Value = ""
> Sheet1.Range("C" & (Target.Row - 6)).Value = ""
> If Target.Value = "" Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = ""
> Sheet1.Range("B" & (Target.Row - 6)).Value = ""
> Sheet1.Range("C" & (Target.Row - 6)).Value = ""
> Else
> End If
> End If
> End If
> End Sub
>
>
> TerimaKasih
>
>
>
>
>
>
>
>
> Pada Senin, 9 April 2018 14:15, "Cari Kebenaran [hidden email]
> [belajar-excel]" <[hidden email]> menulis:
>
>
>
> Assalamu'alaikum warahmatullahi wabarakatuh
>
> Kepada Para Master dan segenap anggota
>
> Saya ingin mengcopy data antar cell dalam worksheet dengan ketentuan
> sebagai berikut:
>
> apabila saya mengetikkan nilai di atas 6 pada salah satu cell yang ada di
> range L13 sampai dengan L17, maka dari cell yang bersangkutan berikut 2
> cell disebelah kanannya akan tercopy (VALUE) secara otomatis ke range A7
> sampai 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 yang ada cuma bisa di 1 cell saja , yaitu
> cell "L13".
>
> Atas perhatian dan bantuannya, saya mengucapkan terima kasih
>
> Wassalamu'alaikum warahmatullahi wabarakatuh
>
>
>
>
>
>
Kid
Reply | Threaded
Open this post in threaded view
|

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

Kid
Administrator
In reply to this post by cahayailmu71
Wa'alaikumussalam wr wb


> apabila saya *mengetikkan* nilai di atas 6 pada salah satu cell yang ada
> di range L13 sampai dengan L17, maka dari cell yang bersangkutan berikut
> 2 cell disebelah *kanannya* akan tercopy (VALUE) secara otomatis ke range
> A7 sampai C7 (*dibawah baris yang sudah terisi data*).

> mungkin maksud dari ' *kanannya*' adalah di sebelah kirinya ya...
> cara input '*mengetikkan*' ini maksudnya benar-benar meng-entry dengan
keyboard pada sebuah cells tertentu atau dimaksudkan sebagai mengubah cells
dengan berbagai cara yang memungkinkan ?
> jika maksud '*mengetikkan*' adalah meng-entry dengan keyboard, maka
relatif sulit memberi batasan terhadap user yang menggunakan paste (CTRL V)
> jika maksud '*mengetikkan*' adalah mengubah cells dengan berbagai cara
yang memungkinkan (termasuk paste), maka cukup dengan event change miliki
worksheet tersebut.
> kondisi ' nilai di atas 6' memerlukan 2 (dua) proses pemeriksaan nilai,
yaitu :
    1. apakah nilainya adalah numerik dengan IsNumeric
    2. apakah hasil konversi nilai menjadi bertipe data numerik tertentu
(seperti double jika ada nilai dibelakang koma, atau long [setara longlong
di office 64 bit] untuk bilangan bulat kurang dari 2 milyar)
> cara penyalinan ' tercopy (VALUE)' untuk kasus ini bisa dengan :
(setidaknya salah satu dari)
    1. copy lalu paste special value
    2. dengan set value di area target dengan value yang ada di area sumber
[khusus ketika diketahui luasan sumber dan targetnya]
> penentuan lokasi penyalinan 'secara otomatis ke range A7 sampai C7 (*dibawah
baris yang sudah terisi data*)', apakah hal ini mengindikasikan boleh
terjadi penyalinan yang sekadar berbeda nilai L13:L17 ?
   Contoh :
    - Pada kolom lainnya bernilai sama, di L13 pada entry ke-1 diisi 1000,
akan tersalin ke baris 7 bernilai 1000.
    - Pada entry ke-2 (ingat, kolom lainnya masih sama), di L13 di-entry
nilai 2000, maka tersalin di baris 8 bernilai 2000
    - Pada entry ke-3 (ingat, kolom lainnya masih sama), di L13 di-entry
nilai 1000, maka tersalin di baris 9 bernilai 1000
    *** artinya, baris 7 dan baris 9 akan sama persis (record terduplikasi)
   Demikiankah ?
> jika memang demikian alur penyalinannya, ada baiknya ditambahkan sebuah
kolom tanggal salin.
> jika tidak demikian, maka ketika yang tidak diijinkan adalah record
terduplikasi, maka bisa memanfaatkan remove duplicate untuk menjaga
keunikan record.
> pemanfaatan remove duplicate sekadar untuk memudahkan proses pembuatan
baris kode VBA, supaya tidak terlalu rumit memikirkan proses loop dan
pembandingan beberapa nilai kolom untuk memeriksa apakah sudah pernah ada
penyalinan data tersebut sebelumnya.


> Dan apabila baris A21 sampai dengan C7 sudah terisi data (record), maka *perintah
> (code VBA) tidak boleh dijalankan lagi*.  VBA Code yang ada cuma bisa di
> 1 cell saja , yaitu cell "L13".

> potongan kalimat yang berbunyi '*perintah (code VBA) tidak boleh
dijalankan lagi*', maksudnya adalah perintah VBA tetap berjalan, tetapi
tidak mengjalankan baris kode penyalinan data.
> syarat 'apabila baris A21 sampai dengan C7 sudah terisi data (record)'
artinya cukup periksa isi cells A21 sudah berisi data atau belum. Bukan
begitu ? Bisa buatnya kan ?

ok...
tampaknya masih ada beberapa hal yang perlu dijelaskan oleh pemilik kasus....

btw,
Bagaimana jika user memasukkan nilai yang sama di L13, L15, dan L17 secara
bersamaan dengan memilih 3 cells tersebut dan melakukan pengubahan nilai
data ? (entah paste atau entry dengan CTRL ENTER)


Wassalamu'alaikum wr wb
Kid




2018-04-09 11:17 GMT+07:00 Cari Kebenaran [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Assalamu'alaikum warahmatullahi wabarakatuh
>
>
> Kepada Para Master dan segenap anggota
>
>
> Saya ingin mengcopy data antar cell dalam worksheet dengan ketentuan
> sebagai berikut:
>
>
> apabila saya mengetikkan nilai di atas 6 pada salah satu cell yang ada di
> range L13 sampai dengan L17, maka dari cell yang bersangkutan berikut 2
> cell disebelah kanannya akan tercopy (VALUE) secara otomatis ke range A7
> sampai 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 yang ada cuma bisa di 1 cell saja , yaitu
> cell "L13".
>
>
> Atas perhatian dan bantuannya, saya mengucapkan terima kasih
>
>
> Wassalamu'alaikum warahmatullahi wabarakatuh
>
>
>
>
>
Reply | Threaded
Open this post in threaded view
|

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

Toby kenzo
In reply to this post by cahayailmu71
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 [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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 [hidden email] [belajar-excel]" <[hidden email] > 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:#0000ff;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 {text-decoration:none;}#yiv5868833588 blockquote {margin:0 0 0 4px;}#yiv5868833588 .yiv5868833588bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5868833588 .yiv5868833588bold a {text-decoration:none;}#yiv5868833588 dd.yiv5868833588last p a {font-family:Verdana;font-weight:700;}#yiv5868833588 dd.yiv5868833588last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5868833588 dd.yiv5868833588last p span.yiv5868833588yshortcuts {margin-right:0;}#yiv5868833588 div.yiv5868833588attach-table div div a {text-decoration:none;}#yiv5868833588 div.yiv5868833588attach-table {width:400px;}#yiv5868833588 div.yiv5868833588file-title a, #yiv5868833588 div.yiv5868833588file-title a:active, #yiv5868833588 div.yiv5868833588file-title a:hover, #yiv5868833588 div.yiv5868833588file-title a:visited {text-decoration:none;}#yiv5868833588 div.yiv5868833588photo-title a, #yiv5868833588 div.yiv5868833588photo-title a:active, #yiv5868833588 div.yiv5868833588photo-title a:hover, #yiv5868833588 div.yiv5868833588photo-title a:visited {text-decoration:none;}#yiv5868833588 div#yiv5868833588ygrp-mlmsg #yiv5868833588ygrp-msg p a span.yiv5868833588yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5868833588 .yiv5868833588green {color:#628c2a;}#yiv5868833588 .yiv5868833588MsoNormal {margin:0 0 0 0;}#yiv5868833588 o {font-size:0;}#yiv5868833588 #yiv5868833588photos div {float:left;width:72px;}#yiv5868833588 #yiv5868833588photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv5868833588 #yiv5868833588photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5868833588 #yiv5868833588reco-category {font-size:77%;}#yiv5868833588 #yiv5868833588reco-desc {font-size:77%;}#yiv5868833588 .yiv5868833588replbq {margin:4px;}#yiv5868833588 #yiv5868833588ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5868833588 #yiv5868833588ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5868833588 #yiv5868833588ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5868833588 #yiv5868833588ygrp-mlmsg select, #yiv5868833588 input, #yiv5868833588 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5868833588 #yiv5868833588ygrp-mlmsg pre, #yiv5868833588 code {font:115% monospace;}#yiv5868833588 #yiv5868833588ygrp-mlmsg * {line-height:1.22em;}#yiv5868833588 #yiv5868833588ygrp-mlmsg #yiv5868833588logo {padding-bottom:10px;}#yiv5868833588 #yiv5868833588ygrp-msg p a {font-family:Verdana;}#yiv5868833588 #yiv5868833588ygrp-msg p#yiv5868833588attach-count span {color:#1E66AE;font-weight:700;}#yiv5868833588 #yiv5868833588ygrp-reco #yiv5868833588reco-head {color:#ff7900;font-weight:700;}#yiv5868833588 #yiv5868833588ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5868833588 #yiv5868833588ygrp-sponsor #yiv5868833588ov li a {font-size:130%;text-decoration:none;}#yiv5868833588 #yiv5868833588ygrp-sponsor #yiv5868833588ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5868833588 #yiv5868833588ygrp-sponsor #yiv5868833588ov ul {margin:0;padding:0 0 0 8px;}#yiv5868833588 #yiv5868833588ygrp-text {font-family:Georgia;}#yiv5868833588 #yiv5868833588ygrp-text p {margin:0 0 1em 0;}#yiv5868833588 #yiv5868833588ygrp-text tt {font-size:120%;}#yiv5868833588 #yiv5868833588ygrp-vital ul li:last-child {border-right:none !important;}#yiv5868833588

   
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Copy paste data menurut posisi cell [1 Attachment]

cahayailmu71
Baik Pak. Ini saya kirim lagi filenya. Maaf kemarin salah kirim.

Saya ingin apabila TABEL 2 (A7 sampai dengan C21) sudah terisi penuh, maka
code VBA tidak dapat dijalankan lagi (dengan kata lain tidak bisa melakukan
copy paste lagi) meskipun saya memasukkan angka pada TABEL 1 (range K13
sampai dengan L17).


Saat ini masih bisa melakukan copy paste meskipun TABEL 2 sudah penuh.
Silakan masukkan angka pada range K13 sampai  L17. Dengan syarat angka pada
range L13 s/d L17 lebih besar dari 6.

Selengkapnya lihat lampiran.





On Wed, Apr 11, 2018 at 9:34 AM, Toby kenzo [hidden email]
[belajar-excel] <[hidden email]> wrote:

>
>
> 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 [hidden email]
> [belajar-excel]" <[hidden email]> 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 Then
> If Range(Target.Address) > 0 Then
> Worksheets("INVOICE").Range(ActiveCell.Offset(-1, 0),
> ActiveCell.Offset(-1, -2)).Copy
> Worksheets("INVOICE").Cells(21, 1).End(xlUp).Offset(1, 0).PasteSpecial
> xlPasteValues
> Application.CutCopyMode = False
> Range(Target.Address).Offset(0, -1) = ""
> Range(Target.Address).Offset(0, 0) = ""
> Worksheets("INVOICE").Range("K12").Select
> End If
> End If
> End 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 [hidden email]
> [belajar-excel] <[hidden email]> wrote:
>
>
> Coba ganti scriptnya :
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> On Error GoTo 0
> If Not Intersect(Target, Range("L13:L17")) Is Nothing Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column - 2).Value
> Sheet1.Range("B" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column - 1).Value
> Sheet1.Range("C" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column).Value
> On Error Resume Next
> If Target.Value < 7 Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = ""
> Sheet1.Range("B" & (Target.Row - 6)).Value = ""
> Sheet1.Range("C" & (Target.Row - 6)).Value = ""
> If Target.Value = "" Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = ""
> Sheet1.Range("B" & (Target.Row - 6))..Value = ""
> Sheet1.Range("C" & (Target.Row - 6)).Value = ""
> Else
> End If
> End If
> End If
> End Sub
>
>
> TerimaKasih
>
>
>
>
>
>
>
>
> Pada Senin, 9 April 2018 14:15, "Cari Kebenaran [hidden email]
> [belajar-excel]" <[hidden email] > menulis:
>
>
>
> Assalamu'alaikum warahmatullahi wabarakatuh
>
> Kepada Para Master dan segenap anggota
>
> Saya ingin mengcopy data antar cell dalam worksheet dengan ketentuan
> sebagai berikut:
>
> apabila saya mengetikkan nilai di atas 6 pada salah satu cell yang ada di
> range L13 sampai dengan L17, maka dari cell yang bersangkutan berikut 2
> cell disebelah kanannya akan tercopy (VALUE) secara otomatis ke range A7
> sampai 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 yang ada cuma bisa di 1 cell saja , yaitu
> cell "L13".
>
> Atas perhatian dan bantuannya, saya mengucapkan terima kasih
>
> Wassalamu'alaikum warahmatullahi wabarakatuh
>
>
>
>
>
>
>
>
>

Belajar Target.xlsm (23K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|

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

Kid
Administrator
Kalau memasukkan ke L13:L17 nya copy paste values, trus gimana ? disalin
semua atau tidak boleh input dengan copy paste values ?

2018-04-11 15:26 GMT+07:00 Cari Kebenaran [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Baik Pak. Ini saya kirim lagi filenya. Maaf kemarin salah kirim.
>
> Saya ingin apabila TABEL 2 (A7 sampai dengan C21) sudah terisi penuh,
> maka code VBA tidak dapat dijalankan lagi (dengan kata lain tidak bisa
> melakukan copy paste lagi) meskipun saya memasukkan angka pada TABEL 1
> (range K13 sampai dengan L17).
>
>
> Saat ini masih bisa melakukan copy paste meskipun TABEL 2 sudah penuh.
> Silakan masukkan angka pada range K13 sampai  L17. Dengan syarat angka
> pada range L13 s/d L17 lebih besar dari 6.
>
> Selengkapnya lihat lampiran.
>
>
>
>
>
> On Wed, Apr 11, 2018 at 9:34 AM, Toby kenzo [hidden email]
> [belajar-excel] <[hidden email]> wrote:
>
>>
>>
>> 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 [hidden email]
>> [belajar-excel]" <[hidden email]> 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 Then
>> If Range(Target.Address) > 0 Then
>> Worksheets("INVOICE").Range(ActiveCell.Offset(-1, 0),
>> ActiveCell.Offset(-1, -2)).Copy
>> Worksheets("INVOICE").Cells(21, 1).End(xlUp).Offset(1, 0).PasteSpecial
>> xlPasteValues
>> Application.CutCopyMode = False
>> Range(Target.Address).Offset(0, -1) = ""
>> Range(Target.Address).Offset(0, 0) = ""
>> Worksheets("INVOICE").Range("K12").Select
>> End If
>> End If
>> End 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 [hidden email]
>> [belajar-excel] <[hidden email]> wrote:
>>
>>
>> Coba ganti scriptnya :
>>
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>>
>> On Error GoTo 0
>> If Not Intersect(Target, Range("L13:L17")) Is Nothing Then
>> Sheet1.Range("A" & (Target.Row - 6)).Value = Cells(Target.Row,
>> Target.Column - 2).Value
>> Sheet1.Range("B" & (Target.Row - 6)).Value = Cells(Target.Row,
>> Target.Column - 1).Value
>> Sheet1.Range("C" & (Target.Row - 6)).Value = Cells(Target.Row,
>> Target.Column).Value
>> On Error Resume Next
>> If Target.Value < 7 Then
>> Sheet1.Range("A" & (Target.Row - 6)).Value = ""
>> Sheet1.Range("B" & (Target.Row - 6)).Value = ""
>> Sheet1.Range("C" & (Target.Row - 6)).Value = ""
>> If Target.Value = "" Then
>> Sheet1.Range("A" & (Target.Row - 6)).Value = ""
>> Sheet1.Range("B" & (Target.Row - 6))..Value = ""
>> Sheet1.Range("C" & (Target.Row - 6)).Value = ""
>> Else
>> End If
>> End If
>> End If
>> End Sub
>>
>>
>> TerimaKasih
>>
>>
>>
>>
>>
>>
>>
>>
>> Pada Senin, 9 April 2018 14:15, "Cari Kebenaran [hidden email]
>> <cahayailmu71@gmail..com> [belajar-excel]" <[hidden email]
>> > menulis:
>>
>>
>>
>> Assalamu'alaikum warahmatullahi wabarakatuh
>>
>> Kepada Para Master dan segenap anggota
>>
>> Saya ingin mengcopy data antar cell dalam worksheet dengan ketentuan
>> sebagai berikut:
>>
>> apabila saya mengetikkan nilai di atas 6 pada salah satu cell yang ada di
>> range L13 sampai dengan L17, maka dari cell yang bersangkutan berikut 2
>> cell disebelah kanannya akan tercopy (VALUE) secara otomatis ke range A7
>> sampai 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 yang ada cuma bisa di 1 cell saja , yaitu
>> cell "L13".
>>
>> Atas perhatian dan bantuannya, saya mengucapkan terima kasih
>>
>> Wassalamu'alaikum warahmatullahi wabarakatuh
>>
>>
>>
>>
>>
>>
>>
>>
>
>