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 cahayailm...@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> 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
>> <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
>>
>>
>>
>>
>>
>>
>>
>>
>
>
