Senin, 24 Juli 2017

[belajar-excel] Digest Number 4244

7 Messages

Digest #4244

Messages

Sun Jul 23, 2017 10:45 pm (PDT) . Posted by:

"Danny Prasetyo"

Terima kasih banyak Mr. Kid atas bantuannya.

Pada Minggu, 23 Juli 2017 4:57, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Hai Danny,

Bunyi .entirerow.delete diubah menjadi .resize( 1 , jumlah_kolom_tabel ).delete xlshiftup
jumlah_kolom_tabel diisi angka

Regards,
Kid

On Sat, Jul 22, 2017 at 1:58 PM, Danny Prasetyo aydprasetyo@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Terima kasih Mr. Kid atas bantuannya.
Tapi setelah saya coba, ada beberapa hal ingin saya tanyakan lagi,- pada form, saat saya ingin menghapus dengan cara menuliskan kode, malah tidak terjadi apa2. Saya harus meng-klik data dari list yang tertera terlebih dahulu agar dapat terhapus.- yang saya inginkan hanya baris dalam tabel saja yang terhapus, bukan 1 baris dari ujung kiri ke ujung kanan.
Bagaimana solusinya? Dan terima kasih sebelumnya.
Salam,
Danny Prasetyo

Pada Sabtu, 22 Juli 2017 11:21, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com > menulis:


  Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid

2017-07-21 20:20 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:

  Kode vba yang saya edit kok malah error yaa, dan proses nya berbelit2, karna saya harus mengkonversi value dari combobox dulu ke dalam cell, dan dari cell dimasukkan ke dalam textbox. 
Tolong dibantu yaa para master, agar tidak error dan proses nya tidak berbelit hehehe...
Ini saya kirimkan file nya.Terima kasih sebelumnya..

#yiv3128194573 #yiv3128194573 -- #yiv3128194573ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3128194573 #yiv3128194573ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3128194573 #yiv3128194573ygrp-mkp #yiv3128194573hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3128194573 #yiv3128194573ygrp-mkp #yiv3128194573ads {margin-bottom:10px;}#yiv3128194573 #yiv3128194573ygrp-mkp .yiv3128194573ad {padding:0 0;}#yiv3128194573 #yiv3128194573ygrp-mkp .yiv3128194573ad p {margin:0;}#yiv3128194573 #yiv3128194573ygrp-mkp .yiv3128194573ad a {color:#0000ff;text-decoration:none;}#yiv3128194573 #yiv3128194573ygrp-sponsor #yiv3128194573ygrp-lc {font-family:Arial;}#yiv3128194573 #yiv3128194573ygrp-sponsor #yiv3128194573ygrp-lc #yiv3128194573hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3128194573 #yiv3128194573ygrp-sponsor #yiv3128194573ygrp-lc .yiv3128194573ad {margin-bottom:10px;padding:0 0;}#yiv3128194573 #yiv3128194573actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3128194573 #yiv3128194573activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3128194573 #yiv3128194573activity span {font-weight:700;}#yiv3128194573 #yiv3128194573activity span:first-child {text-transform:uppercase;}#yiv3128194573 #yiv3128194573activity span a {color:#5085b6;text-decoration:none;}#yiv3128194573 #yiv3128194573activity span span {color:#ff7900;}#yiv3128194573 #yiv3128194573activity span .yiv3128194573underline {text-decoration:underline;}#yiv3128194573 .yiv3128194573attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3128194573 .yiv3128194573attach div a {text-decoration:none;}#yiv3128194573 .yiv3128194573attach img {border:none;padding-right:5px;}#yiv3128194573 .yiv3128194573attach label {display:block;margin-bottom:5px;}#yiv3128194573 .yiv3128194573attach label a {text-decoration:none;}#yiv3128194573 blockquote {margin:0 0 0 4px;}#yiv3128194573 .yiv3128194573bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3128194573 .yiv3128194573bold a {text-decoration:none;}#yiv3128194573 dd.yiv3128194573last p a {font-family:Verdana;font-weight:700;}#yiv3128194573 dd.yiv3128194573last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3128194573 dd.yiv3128194573last p span.yiv3128194573yshortcuts {margin-right:0;}#yiv3128194573 div.yiv3128194573attach-table div div a {text-decoration:none;}#yiv3128194573 div.yiv3128194573attach-table {width:400px;}#yiv3128194573 div.yiv3128194573file-title a, #yiv3128194573 div.yiv3128194573file-title a:active, #yiv3128194573 div.yiv3128194573file-title a:hover, #yiv3128194573 div.yiv3128194573file-title a:visited {text-decoration:none;}#yiv3128194573 div.yiv3128194573photo-title a, #yiv3128194573 div.yiv3128194573photo-title a:active, #yiv3128194573 div.yiv3128194573photo-title a:hover, #yiv3128194573 div.yiv3128194573photo-title a:visited {text-decoration:none;}#yiv3128194573 div#yiv3128194573ygrp-mlmsg #yiv3128194573ygrp-msg p a span.yiv3128194573yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3128194573 .yiv3128194573green {color:#628c2a;}#yiv3128194573 .yiv3128194573MsoNormal {margin:0 0 0 0;}#yiv3128194573 o {font-size:0;}#yiv3128194573 #yiv3128194573photos div {float:left;width:72px;}#yiv3128194573 #yiv3128194573photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv3128194573 #yiv3128194573photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3128194573 #yiv3128194573reco-category {font-size:77%;}#yiv3128194573 #yiv3128194573reco-desc {font-size:77%;}#yiv3128194573 .yiv3128194573replbq {margin:4px;}#yiv3128194573 #yiv3128194573ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3128194573 #yiv3128194573ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3128194573 #yiv3128194573ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3128194573 #yiv3128194573ygrp-mlmsg select, #yiv3128194573 input, #yiv3128194573 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3128194573 #yiv3128194573ygrp-mlmsg pre, #yiv3128194573 code {font:115% monospace;}#yiv3128194573 #yiv3128194573ygrp-mlmsg * {line-height:1.22em;}#yiv3128194573 #yiv3128194573ygrp-mlmsg #yiv3128194573logo {padding-bottom:10px;}#yiv3128194573 #yiv3128194573ygrp-msg p a {font-family:Verdana;}#yiv3128194573 #yiv3128194573ygrp-msg p#yiv3128194573attach-count span {color:#1E66AE;font-weight:700;}#yiv3128194573 #yiv3128194573ygrp-reco #yiv3128194573reco-head {color:#ff7900;font-weight:700;}#yiv3128194573 #yiv3128194573ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3128194573 #yiv3128194573ygrp-sponsor #yiv3128194573ov li a {font-size:130%;text-decoration:none;}#yiv3128194573 #yiv3128194573ygrp-sponsor #yiv3128194573ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3128194573 #yiv3128194573ygrp-sponsor #yiv3128194573ov ul {margin:0;padding:0 0 0 8px;}#yiv3128194573 #yiv3128194573ygrp-text {font-family:Georgia;}#yiv3128194573 #yiv3128194573ygrp-text p {margin:0 0 1em 0;}#yiv3128194573 #yiv3128194573ygrp-text tt {font-size:120%;}#yiv3128194573 #yiv3128194573ygrp-vital ul li:last-child {border-right:none !important;}#yiv3128194573

Mon Jul 24, 2017 1:40 pm (PDT) . Posted by:

"Danny Prasetyo"

Mr. Kid, 
Saya ingin menambahkan peringatan seperti ini apabila user tidak memilih atau pilihannya tidak sesuai dengan data
If cboDT.Value = "" ThenMsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"End If
ke dalam kode vba di bawah ini

Private Sub cmdDEL_Click()    Dim lRec As Long    lRec = cboDT.ListIndex + 1    If lRec > 0 Then        With shtKid.Range("_tbldt_")            If Len(.Cells(lRec, 1).Value) <> 0 Then                .Cells(lRec, 1).Resize(1, 4).Delete xlShiftUp                cboDT.RowSource = "_lstDT_"            End If        End With    End IfEnd Sub
Bagaimana yaa caranya? 2 jam saya otak atik gak bisa bisa. Saya kurang mengerti soalnya hehehe... Mohon pencerahannya...

Pada Minggu, 23 Juli 2017 4:57, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Hai Danny,

Bunyi .entirerow.delete diubah menjadi .resize( 1 , jumlah_kolom_tabel ).delete xlshiftup
jumlah_kolom_tabel diisi angka

Regards,
Kid

On Sat, Jul 22, 2017 at 1:58 PM, Danny Prasetyo aydprasetyo@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Terima kasih Mr. Kid atas bantuannya.
Tapi setelah saya coba, ada beberapa hal ingin saya tanyakan lagi,- pada form, saat saya ingin menghapus dengan cara menuliskan kode, malah tidak terjadi apa2. Saya harus meng-klik data dari list yang tertera terlebih dahulu agar dapat terhapus.- yang saya inginkan hanya baris dalam tabel saja yang terhapus, bukan 1 baris dari ujung kiri ke ujung kanan.
Bagaimana solusinya? Dan terima kasih sebelumnya.
Salam,
Danny Prasetyo

Pada Sabtu, 22 Juli 2017 11:21, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com > menulis:


  Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid

2017-07-21 20:20 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:

  Kode vba yang saya edit kok malah error yaa, dan proses nya berbelit2, karna saya harus mengkonversi value dari combobox dulu ke dalam cell, dan dari cell dimasukkan ke dalam textbox. 
Tolong dibantu yaa para master, agar tidak error dan proses nya tidak berbelit hehehe...
Ini saya kirimkan file nya.Terima kasih sebelumnya..

#yiv8726484745 #yiv8726484745 -- #yiv8726484745ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8726484745 #yiv8726484745ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8726484745 #yiv8726484745ygrp-mkp #yiv8726484745hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8726484745 #yiv8726484745ygrp-mkp #yiv8726484745ads {margin-bottom:10px;}#yiv8726484745 #yiv8726484745ygrp-mkp .yiv8726484745ad {padding:0 0;}#yiv8726484745 #yiv8726484745ygrp-mkp .yiv8726484745ad p {margin:0;}#yiv8726484745 #yiv8726484745ygrp-mkp .yiv8726484745ad a {color:#0000ff;text-decoration:none;}#yiv8726484745 #yiv8726484745ygrp-sponsor #yiv8726484745ygrp-lc {font-family:Arial;}#yiv8726484745 #yiv8726484745ygrp-sponsor #yiv8726484745ygrp-lc #yiv8726484745hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8726484745 #yiv8726484745ygrp-sponsor #yiv8726484745ygrp-lc .yiv8726484745ad {margin-bottom:10px;padding:0 0;}#yiv8726484745 #yiv8726484745actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8726484745 #yiv8726484745activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8726484745 #yiv8726484745activity span {font-weight:700;}#yiv8726484745 #yiv8726484745activity span:first-child {text-transform:uppercase;}#yiv8726484745 #yiv8726484745activity span a {color:#5085b6;text-decoration:none;}#yiv8726484745 #yiv8726484745activity span span {color:#ff7900;}#yiv8726484745 #yiv8726484745activity span .yiv8726484745underline {text-decoration:underline;}#yiv8726484745 .yiv8726484745attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8726484745 .yiv8726484745attach div a {text-decoration:none;}#yiv8726484745 .yiv8726484745attach img {border:none;padding-right:5px;}#yiv8726484745 .yiv8726484745attach label {display:block;margin-bottom:5px;}#yiv8726484745 .yiv8726484745attach label a {text-decoration:none;}#yiv8726484745 blockquote {margin:0 0 0 4px;}#yiv8726484745 .yiv8726484745bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8726484745 .yiv8726484745bold a {text-decoration:none;}#yiv8726484745 dd.yiv8726484745last p a {font-family:Verdana;font-weight:700;}#yiv8726484745 dd.yiv8726484745last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8726484745 dd.yiv8726484745last p span.yiv8726484745yshortcuts {margin-right:0;}#yiv8726484745 div.yiv8726484745attach-table div div a {text-decoration:none;}#yiv8726484745 div.yiv8726484745attach-table {width:400px;}#yiv8726484745 div.yiv8726484745file-title a, #yiv8726484745 div.yiv8726484745file-title a:active, #yiv8726484745 div.yiv8726484745file-title a:hover, #yiv8726484745 div.yiv8726484745file-title a:visited {text-decoration:none;}#yiv8726484745 div.yiv8726484745photo-title a, #yiv8726484745 div.yiv8726484745photo-title a:active, #yiv8726484745 div.yiv8726484745photo-title a:hover, #yiv8726484745 div.yiv8726484745photo-title a:visited {text-decoration:none;}#yiv8726484745 div#yiv8726484745ygrp-mlmsg #yiv8726484745ygrp-msg p a span.yiv8726484745yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8726484745 .yiv8726484745green {color:#628c2a;}#yiv8726484745 .yiv8726484745MsoNormal {margin:0 0 0 0;}#yiv8726484745 o {font-size:0;}#yiv8726484745 #yiv8726484745photos div {float:left;width:72px;}#yiv8726484745 #yiv8726484745photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv8726484745 #yiv8726484745photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8726484745 #yiv8726484745reco-category {font-size:77%;}#yiv8726484745 #yiv8726484745reco-desc {font-size:77%;}#yiv8726484745 .yiv8726484745replbq {margin:4px;}#yiv8726484745 #yiv8726484745ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8726484745 #yiv8726484745ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8726484745 #yiv8726484745ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8726484745 #yiv8726484745ygrp-mlmsg select, #yiv8726484745 input, #yiv8726484745 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8726484745 #yiv8726484745ygrp-mlmsg pre, #yiv8726484745 code {font:115% monospace;}#yiv8726484745 #yiv8726484745ygrp-mlmsg * {line-height:1.22em;}#yiv8726484745 #yiv8726484745ygrp-mlmsg #yiv8726484745logo {padding-bottom:10px;}#yiv8726484745 #yiv8726484745ygrp-msg p a {font-family:Verdana;}#yiv8726484745 #yiv8726484745ygrp-msg p#yiv8726484745attach-count span {color:#1E66AE;font-weight:700;}#yiv8726484745 #yiv8726484745ygrp-reco #yiv8726484745reco-head {color:#ff7900;font-weight:700;}#yiv8726484745 #yiv8726484745ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8726484745 #yiv8726484745ygrp-sponsor #yiv8726484745ov li a {font-size:130%;text-decoration:none;}#yiv8726484745 #yiv8726484745ygrp-sponsor #yiv8726484745ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8726484745 #yiv8726484745ygrp-sponsor #yiv8726484745ov ul {margin:0;padding:0 0 0 8px;}#yiv8726484745 #yiv8726484745ygrp-text {font-family:Georgia;}#yiv8726484745 #yiv8726484745ygrp-text p {margin:0 0 1em 0;}#yiv8726484745 #yiv8726484745ygrp-text tt {font-size:120%;}#yiv8726484745 #yiv8726484745ygrp-vital ul li:last-child {border-right:none !important;}#yiv8726484745

Mon Jul 24, 2017 6:53 pm (PDT) . Posted by:

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

Blok if terluar diubah dari blok if endif menjadi if else endif. Msgbox Anda diletakkan pada area else.

Regards,
Kid
Sent from my smart enough phone

> On Jul 25, 2017, at 01:53, Danny Prasetyo aydprasetyo@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
> Mr. Kid,
>
> Saya ingin menambahkan peringatan seperti ini apabila user tidak memilih atau pilihannya tidak sesuai dengan data
>
> If cboDT.Value = "" Then
> MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
> End If
>
> ke dalam kode vba di bawah ini
>
> Private Sub cmdDEL_Click()
> Dim lRec As Long
> lRec = cboDT.ListIndex + 1
> If lRec > 0 Then
> With shtKid.Range("_tbldt_")
> If Len(.Cells(lRec, 1).Value) <> 0 Then
> .Cells(lRec, 1).Resize(1, 4).Delete xlShiftUp
> cboDT.RowSource = "_lstDT_"
> End If
> End With
> End If
> End Sub
>
> Bagaimana yaa caranya? 2 jam saya otak atik gak bisa bisa. Saya kurang mengerti soalnya hehehe... Mohon pencerahannya...
>
>
> Pada Minggu, 23 Juli 2017 4:57, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Danny,
>
> Bunyi .entirerow.delete diubah menjadi .resize( 1 , jumlah_kolom_tabel ).delete xlshiftup
> jumlah_kolom_tabel diisi angka
>
> Regards,
> Kid
>
>
>
>
>
>
> On Sat, Jul 22, 2017 at 1:58 PM, Danny Prasetyo aydprasetyo@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
> Terima kasih Mr. Kid atas bantuannya.
>
> Tapi setelah saya coba, ada beberapa hal ingin saya tanyakan lagi,
> - pada form, saat saya ingin menghapus dengan cara menuliskan kode, malah tidak terjadi apa2. Saya harus meng-klik data dari list yang tertera terlebih dahulu agar dapat terhapus.
> - yang saya inginkan hanya baris dalam tabel saja yang terhapus, bukan 1 baris dari ujung kiri ke ujung kanan.
>
> Bagaimana solusinya? Dan terima kasih sebelumnya.
>
> Salam,
>
> Danny Prasetyo
>
>
> Pada Sabtu, 22 Juli 2017 11:21, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com > menulis:
>
>
>
> Hai Danny,
>
> File terlampir sekadar contoh saja.
>
> Regards,
> Kid
>
>
> 2017-07-21 20:20 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:
>
> Kode vba yang saya edit kok malah error yaa, dan proses nya berbelit2, karna saya harus mengkonversi value dari combobox dulu ke dalam cell, dan dari cell dimasukkan ke dalam textbox.
>
> Tolong dibantu yaa para master, agar tidak error dan proses nya tidak berbelit hehehe...
>
> Ini saya kirimkan file nya.
> Terima kasih sebelumnya...
>
>
>
>
>
>
>

Sun Jul 23, 2017 10:51 pm (PDT) . Posted by:

"Christian. SimanjuntakTMJOAN"

DH,


Semangat Pagi


Para master mohon dibantu, saya punya masalah dengan kode ini :

Sub table()
Set datacoba = Sheets("arus kas")
ListBox1.RowSource = ""
With ListBox1
.AddItem
.List(.ListCount - 1, 0) = "NO REKENING"
.List(.ListCount - 1, 1) = "NAMA BANK"
.List(.ListCount - 1, 2) = "TANGGAL"
.List(.ListCount - 1, 3) = "BUKTI TRANS"
.List(.ListCount - 1, 4) = "SETORAN"
.List(.ListCount - 1, 5) = "BUNGA"
.List(.ListCount - 1, 6) = "PENARIKAN&quot;
.List(.ListCount - 1, 7) = "PAJAK"
.List(.ListCount - 1, 8) = "BIAYA ADM"
.List(.ListCount - 1, 9) = "SALDO"
.ColumnWidths = 90 & ";" & 70 & ";" & 70 & ";" & 90 & ";" & 70 & ";" & 70 & ";" & 70 & ";" & 70 & ";" & 70 & ";" & 70 & ";" & 70 & ";" & 90
End With
With datacoba
Set rgBase = datacoba.Range("A2:A500").SpecialCells(xlCellTypeVisible)
For Each sbase In rgBase
With ListBox1
.AddItem sbase.Value
.List(.ListCount - 1, 0) = sbase.Value
.List(.ListCount - 1, 1) = sbase.Offset(0, 1).Value
.List(.ListCount - 1, 2) = sbase.Offset(0, 3).Value
.List(.ListCount - 1, 3) = sbase.Offset(0, 5).Value
.List(.ListCount - 1, 4) = sbase.Offset(0, 6).Value
.List(.ListCount - 1, 5) = sbase.Offset(0, 7).Value
.List(.ListCount - 1, 6) = sbase.Offset(0, 8).Value
.List(.ListCount - 1, 7) = sbase.Offset(0, 9).Value
.List(.ListCount - 1, 8) = sbase.Offset(0, 10).Value
.List(.ListCount - 1, 9) = sbase.Offset(0, 11).Value
End With
Next sbase
End With
End Sub


jika mau tampilkan kolom ke 10 dengan tambahan kode :

.List(.ListCount - 1, 9) = "penerimaan&quot; pasti terjadi error


Terlampir screen shot erro nya


pertanyaan :apakah untuk rumus diatas menampilkan data sheet update ke listbox hanya bisa sampai 10 kolom setelah itu error? , tolong dibantu para master


terimakasih






Sun Jul 23, 2017 10:59 pm (PDT) . Posted by:

"Danny Prasetyo"

Sangat membantu mas Toby.Terima kasih atas bantuannya.

Pada Minggu, 23 Juli 2017 12:06, "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Dear Danny,
Mungkin file ini bisa membantu.
TerimaKasih

Pada Sabtu, 22 Juli 2017 0:16, "Danny Prasetyo aydprasetyo@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Kode vba yang saya edit kok malah error yaa, dan proses nya berbelit2, karna saya harus mengkonversi value dari combobox dulu ke dalam cell, dan dari cell dimasukkan ke dalam textbox. 
Tolong dibantu yaa para master, agar tidak error dan proses nya tidak berbelit hehehe...
Ini saya kirimkan file nya.Terima kasih sebelumnya..

#yiv6895220936 #yiv6895220936 -- #yiv6895220936ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6895220936 #yiv6895220936ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6895220936 #yiv6895220936ygrp-mkp #yiv6895220936hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6895220936 #yiv6895220936ygrp-mkp #yiv6895220936ads {margin-bottom:10px;}#yiv6895220936 #yiv6895220936ygrp-mkp .yiv6895220936ad {padding:0 0;}#yiv6895220936 #yiv6895220936ygrp-mkp .yiv6895220936ad p {margin:0;}#yiv6895220936 #yiv6895220936ygrp-mkp .yiv6895220936ad a {color:#0000ff;text-decoration:none;}#yiv6895220936 #yiv6895220936ygrp-sponsor #yiv6895220936ygrp-lc {font-family:Arial;}#yiv6895220936 #yiv6895220936ygrp-sponsor #yiv6895220936ygrp-lc #yiv6895220936hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6895220936 #yiv6895220936ygrp-sponsor #yiv6895220936ygrp-lc .yiv6895220936ad {margin-bottom:10px;padding:0 0;}#yiv6895220936 #yiv6895220936actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6895220936 #yiv6895220936activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6895220936 #yiv6895220936activity span {font-weight:700;}#yiv6895220936 #yiv6895220936activity span:first-child {text-transform:uppercase;}#yiv6895220936 #yiv6895220936activity span a {color:#5085b6;text-decoration:none;}#yiv6895220936 #yiv6895220936activity span span {color:#ff7900;}#yiv6895220936 #yiv6895220936activity span .yiv6895220936underline {text-decoration:underline;}#yiv6895220936 .yiv6895220936attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6895220936 .yiv6895220936attach div a {text-decoration:none;}#yiv6895220936 .yiv6895220936attach img {border:none;padding-right:5px;}#yiv6895220936 .yiv6895220936attach label {display:block;margin-bottom:5px;}#yiv6895220936 .yiv6895220936attach label a {text-decoration:none;}#yiv6895220936 blockquote {margin:0 0 0 4px;}#yiv6895220936 .yiv6895220936bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6895220936 .yiv6895220936bold a {text-decoration:none;}#yiv6895220936 dd.yiv6895220936last p a {font-family:Verdana;font-weight:700;}#yiv6895220936 dd.yiv6895220936last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6895220936 dd.yiv6895220936last p span.yiv6895220936yshortcuts {margin-right:0;}#yiv6895220936 div.yiv6895220936attach-table div div a {text-decoration:none;}#yiv6895220936 div.yiv6895220936attach-table {width:400px;}#yiv6895220936 div.yiv6895220936file-title a, #yiv6895220936 div.yiv6895220936file-title a:active, #yiv6895220936 div.yiv6895220936file-title a:hover, #yiv6895220936 div.yiv6895220936file-title a:visited {text-decoration:none;}#yiv6895220936 div.yiv6895220936photo-title a, #yiv6895220936 div.yiv6895220936photo-title a:active, #yiv6895220936 div.yiv6895220936photo-title a:hover, #yiv6895220936 div.yiv6895220936photo-title a:visited {text-decoration:none;}#yiv6895220936 div#yiv6895220936ygrp-mlmsg #yiv6895220936ygrp-msg p a span.yiv6895220936yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6895220936 .yiv6895220936green {color:#628c2a;}#yiv6895220936 .yiv6895220936MsoNormal {margin:0 0 0 0;}#yiv6895220936 o {font-size:0;}#yiv6895220936 #yiv6895220936photos div {float:left;width:72px;}#yiv6895220936 #yiv6895220936photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv6895220936 #yiv6895220936photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6895220936 #yiv6895220936reco-category {font-size:77%;}#yiv6895220936 #yiv6895220936reco-desc {font-size:77%;}#yiv6895220936 .yiv6895220936replbq {margin:4px;}#yiv6895220936 #yiv6895220936ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6895220936 #yiv6895220936ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6895220936 #yiv6895220936ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6895220936 #yiv6895220936ygrp-mlmsg select, #yiv6895220936 input, #yiv6895220936 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6895220936 #yiv6895220936ygrp-mlmsg pre, #yiv6895220936 code {font:115% monospace;}#yiv6895220936 #yiv6895220936ygrp-mlmsg * {line-height:1.22em;}#yiv6895220936 #yiv6895220936ygrp-mlmsg #yiv6895220936logo {padding-bottom:10px;}#yiv6895220936 #yiv6895220936ygrp-msg p a {font-family:Verdana;}#yiv6895220936 #yiv6895220936ygrp-msg p#yiv6895220936attach-count span {color:#1E66AE;font-weight:700;}#yiv6895220936 #yiv6895220936ygrp-reco #yiv6895220936reco-head {color:#ff7900;font-weight:700;}#yiv6895220936 #yiv6895220936ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6895220936 #yiv6895220936ygrp-sponsor #yiv6895220936ov li a {font-size:130%;text-decoration:none;}#yiv6895220936 #yiv6895220936ygrp-sponsor #yiv6895220936ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6895220936 #yiv6895220936ygrp-sponsor #yiv6895220936ov ul {margin:0;padding:0 0 0 8px;}#yiv6895220936 #yiv6895220936ygrp-text {font-family:Georgia;}#yiv6895220936 #yiv6895220936ygrp-text p {margin:0 0 1em 0;}#yiv6895220936 #yiv6895220936ygrp-text tt {font-size:120%;}#yiv6895220936 #yiv6895220936ygrp-vital ul li:last-child {border-right:none !important;}#yiv6895220936

Mon Jul 24, 2017 5:47 am (PDT) . Posted by:

"halak hita"

Hi mr.kid

Selamat siang dan terima kasih sudah diberikan pencerahan,

=IF(ROW()-ROW(M$5)<$M$4,MATCH(TEXT(ROW()-ROW(M$5),"00000"),_tblDT_
*[[#All],[00001]]*),0)

pak, bisa dibantu apa maksud dari rumus [[#All],[00001]]

salam
hh

2017-07-22 8:29 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Hai Hita,
>
> File terlampir adalah contoh pemanfaatan approximate match pada
> fungsi-fungsi lookup & references seperti Match, LookUp, vLookUp dan
> sebagainya.
>
> Regards,
> Kid
>
>
> 2017-07-19 16:53 GMT+07:00 halak hita halakhita1983@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear Master Excel
>>
>> Tolong dibantu bagaimana cara nya mengubah data "sheet" sebelum dengan
>> "sheet Hasil"
>>
>>
>> terima kasih sebelum nya
>>
>>
>
>

Mon Jul 24, 2017 1:42 pm (PDT) . Posted by:

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

Seluruh baris di kolom [00001] dalam object excel table _tblDT_

Coba pelajari tentang fitur object Excel Table

Sent from my smart enough phone

> On Jul 24, 2017, at 11:38, halak hita halakhita1983@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
> Hi mr.kid
>
> Selamat siang dan terima kasih sudah diberikan pencerahan,
>
> =IF(ROW()-ROW(M$5)<$M$4,MATCH(TEXT(ROW()-ROW(M$5),"00000"),_tblDT_[[#All],[00001]]),0)
>
> pak, bisa dibantu apa maksud dari rumus [[#All],[00001]]
>
>
>
> salam
> hh
>
>
> 2017-07-22 8:29 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>> Hai Hita,
>>
>> File terlampir adalah contoh pemanfaatan approximate match pada fungsi-fungsi lookup & references seperti Match, LookUp, vLookUp dan sebagainya.
>>
>> Regards,
>> Kid
>>
>>
>> 2017-07-19 16:53 GMT+07:00 halak hita halakhita1983@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>> Dear Master Excel
>>>
>>> Tolong dibantu bagaimana cara nya mengubah data "sheet" sebelum dengan "sheet Hasil"
>>>
>>>
>>> terima kasih sebelum nya
>>>
>>
>
>
============================================================
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