Kamis, 12 April 2018

[belajar-excel] Digest Number 4482

5 Messages

Digest #4482
1a
1b
2
MEMBUAT LIST DARI RANGE by "M.Ade Alfarid" aderyo
3a
Add Ins Terbilang Error by "Kamirin Faqoth" kamirin_2
3b
Re: Add Ins Terbilang Error by "hendrik karnadi" hendrikkarnadi

Messages

Wed Apr 11, 2018 9:15 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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 cahayailmu71@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 tobykenzo@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 cahayailmu71@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 tobykenzo@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 cahayailmu71@gmail.com
>> <cahayailmu71@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
>>
>>
>>
>>
>>
>>
>>
>>
>
>

Wed Apr 11, 2018 9:36 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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

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

Wed Apr 11, 2018 11:44 pm (PDT) . Posted by:

"M.Ade Alfarid" aderyo

Dear,

Jika ada record data dari A3:T20 dan hendak dibuat list nya, dengan
menggunakan formula seperti apa?

Contoh:

Terimakasih,

Ade

Wed Apr 11, 2018 11:54 pm (PDT) . Posted by:

"Kamirin Faqoth" kamirin_2

Dear Member Be-Excel
Mohon bantuannya, kenapa yaa Add Ins terbilang pada komputer saya tidak berfungsi, sudah dicoba beberapa Add-Ins dengan sumber yang berbeda hasilnya sama.
Terima Kasih atas bantuannya,
Thanks,Jaka

Thu Apr 12, 2018 12:50 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Coba dishare file .xla dan dummy file Excelnya.
Salam,HK
On Thursday, 12 April 2018, 2:38:07 PM GMT+7, Kamirin Faqoth kamirin_2@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Dear Member Be-Excel
Mohon bantuannya, kenapa yaa Add Ins terbilang pada komputer saya tidak berfungsi, sudah dicoba beberapa Add-Ins dengan sumber yang berbeda hasilnya sama.
Terima Kasih atas bantuannya,
Thanks,Jaka
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar