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 tobyke...@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> 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 cahayailm...@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> 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 tobyke...@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com> 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 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 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
Description: application/vnd.ms-excel.sheet.macroenabled.12
