[belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox [1 Attachment]

classic Classic list List threaded Threaded
18 messages Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox [1 Attachment]

Milis Belajar Excel mailing list



<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">









 

 



 


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

   
     

   
    __._,_.___

            View attachments on the web
 
     

   
       
        Posted by: Danny Prasetyo <[hidden email]>        
     
     

   
     
       
         
                          Reply via web post
                     
          •
         
           
               Reply to sender            
         
          •
         
           
              Reply to group            
         
          •
         
            Start a New Topic
         
          •
         
                            Messages in this topic
                (1)
                     
       
     
   

       

           
       
             
       
           
           
                Have you tried the highest rated email app?
                With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.
           
       
             
     
   







   
     


      ============================================================
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: [hidden email]
posting ke milis, kirimkan ke: [hidden email]
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@.../ 
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/ 
menghubungi moderators & owners: [hidden email]
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : [hidden email]
---------------------------------------------------------------------      


   
 

 




    Visit Your Group

     
           
      New Members
      4
   
                                             
 



 
   • Privacy  • Unsubscribe  • Terms of Use  





   

 
 
 
 



     




     

  .


   

 

__,_._,___






 







COBA.xlsm (44K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox [1 Attachment]

Milis Belajar Excel mailing list
Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid


2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email]
[belajar-excel] <[hidden email]>:

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

re-COBA.xlsm (38K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
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' [hidden email] [belajar-excel]" <[hidden email]> menulis:


     Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid


2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email]>:

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

  #yiv1284238593 #yiv1284238593 -- #yiv1284238593ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1284238593 #yiv1284238593ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1284238593 #yiv1284238593ygrp-mkp #yiv1284238593hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1284238593 #yiv1284238593ygrp-mkp #yiv1284238593ads {margin-bottom:10px;}#yiv1284238593 #yiv1284238593ygrp-mkp .yiv1284238593ad {padding:0 0;}#yiv1284238593 #yiv1284238593ygrp-mkp .yiv1284238593ad p {margin:0;}#yiv1284238593 #yiv1284238593ygrp-mkp .yiv1284238593ad a {color:#0000ff;text-decoration:none;}#yiv1284238593 #yiv1284238593ygrp-sponsor #yiv1284238593ygrp-lc {font-family:Arial;}#yiv1284238593 #yiv1284238593ygrp-sponsor #yiv1284238593ygrp-lc #yiv1284238593hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1284238593 #yiv1284238593ygrp-sponsor #yiv1284238593ygrp-lc .yiv1284238593ad {margin-bottom:10px;padding:0 0;}#yiv1284238593 #yiv1284238593actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1284238593 #yiv1284238593activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1284238593 #yiv1284238593activity span {font-weight:700;}#yiv1284238593 #yiv1284238593activity span:first-child {text-transform:uppercase;}#yiv1284238593 #yiv1284238593activity span a {color:#5085b6;text-decoration:none;}#yiv1284238593 #yiv1284238593activity span span {color:#ff7900;}#yiv1284238593 #yiv1284238593activity span .yiv1284238593underline {text-decoration:underline;}#yiv1284238593 .yiv1284238593attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1284238593 .yiv1284238593attach div a {text-decoration:none;}#yiv1284238593 .yiv1284238593attach img {border:none;padding-right:5px;}#yiv1284238593 .yiv1284238593attach label {display:block;margin-bottom:5px;}#yiv1284238593 .yiv1284238593attach label a {text-decoration:none;}#yiv1284238593 blockquote {margin:0 0 0 4px;}#yiv1284238593 .yiv1284238593bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1284238593 .yiv1284238593bold a {text-decoration:none;}#yiv1284238593 dd.yiv1284238593last p a {font-family:Verdana;font-weight:700;}#yiv1284238593 dd.yiv1284238593last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1284238593 dd.yiv1284238593last p span.yiv1284238593yshortcuts {margin-right:0;}#yiv1284238593 div.yiv1284238593attach-table div div a {text-decoration:none;}#yiv1284238593 div.yiv1284238593attach-table {width:400px;}#yiv1284238593 div.yiv1284238593file-title a, #yiv1284238593 div.yiv1284238593file-title a:active, #yiv1284238593 div.yiv1284238593file-title a:hover, #yiv1284238593 div.yiv1284238593file-title a:visited {text-decoration:none;}#yiv1284238593 div.yiv1284238593photo-title a, #yiv1284238593 div.yiv1284238593photo-title a:active, #yiv1284238593 div.yiv1284238593photo-title a:hover, #yiv1284238593 div.yiv1284238593photo-title a:visited {text-decoration:none;}#yiv1284238593 div#yiv1284238593ygrp-mlmsg #yiv1284238593ygrp-msg p a span.yiv1284238593yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1284238593 .yiv1284238593green {color:#628c2a;}#yiv1284238593 .yiv1284238593MsoNormal {margin:0 0 0 0;}#yiv1284238593 o {font-size:0;}#yiv1284238593 #yiv1284238593photos div {float:left;width:72px;}#yiv1284238593 #yiv1284238593photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv1284238593 #yiv1284238593photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1284238593 #yiv1284238593reco-category {font-size:77%;}#yiv1284238593 #yiv1284238593reco-desc {font-size:77%;}#yiv1284238593 .yiv1284238593replbq {margin:4px;}#yiv1284238593 #yiv1284238593ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1284238593 #yiv1284238593ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1284238593 #yiv1284238593ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1284238593 #yiv1284238593ygrp-mlmsg select, #yiv1284238593 input, #yiv1284238593 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1284238593 #yiv1284238593ygrp-mlmsg pre, #yiv1284238593 code {font:115% monospace;}#yiv1284238593 #yiv1284238593ygrp-mlmsg * {line-height:1.22em;}#yiv1284238593 #yiv1284238593ygrp-mlmsg #yiv1284238593logo {padding-bottom:10px;}#yiv1284238593 #yiv1284238593ygrp-msg p a {font-family:Verdana;}#yiv1284238593 #yiv1284238593ygrp-msg p#yiv1284238593attach-count span {color:#1E66AE;font-weight:700;}#yiv1284238593 #yiv1284238593ygrp-reco #yiv1284238593reco-head {color:#ff7900;font-weight:700;}#yiv1284238593 #yiv1284238593ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1284238593 #yiv1284238593ygrp-sponsor #yiv1284238593ov li a {font-size:130%;text-decoration:none;}#yiv1284238593 #yiv1284238593ygrp-sponsor #yiv1284238593ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1284238593 #yiv1284238593ygrp-sponsor #yiv1284238593ov ul {margin:0;padding:0 0 0 8px;}#yiv1284238593 #yiv1284238593ygrp-text {font-family:Georgia;}#yiv1284238593 #yiv1284238593ygrp-text p {margin:0 0 1em 0;}#yiv1284238593 #yiv1284238593ygrp-text tt {font-size:120%;}#yiv1284238593 #yiv1284238593ygrp-vital ul li:last-child {border-right:none !important;}#yiv1284238593

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
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 [hidden email]
[belajar-excel] <[hidden email]> 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' [hidden email]
> [belajar-excel]" <[hidden email]> menulis:
>
>
>
> Hai Danny,
>
> File terlampir sekadar contoh saja.
>
> Regards,
> Kid
>
>
> 2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email]
> [belajar-excel] <[hidden email]>:
>
>
> 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...
>
>
>
>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox [1 Attachment]

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
Dear Danny,
Mungkin file ini bisa membantu.
TerimaKasih

    Pada Sabtu, 22 Juli 2017 0:16, "Danny Prasetyo [hidden email] [belajar-excel]" <[hidden email]> 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...   #yiv7958006126 #yiv7958006126 -- #yiv7958006126ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7958006126 #yiv7958006126ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7958006126 #yiv7958006126ygrp-mkp #yiv7958006126hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7958006126 #yiv7958006126ygrp-mkp #yiv7958006126ads {margin-bottom:10px;}#yiv7958006126 #yiv7958006126ygrp-mkp .yiv7958006126ad {padding:0 0;}#yiv7958006126 #yiv7958006126ygrp-mkp .yiv7958006126ad p {margin:0;}#yiv7958006126 #yiv7958006126ygrp-mkp .yiv7958006126ad a {color:#0000ff;text-decoration:none;}#yiv7958006126 #yiv7958006126ygrp-sponsor #yiv7958006126ygrp-lc {font-family:Arial;}#yiv7958006126 #yiv7958006126ygrp-sponsor #yiv7958006126ygrp-lc #yiv7958006126hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7958006126 #yiv7958006126ygrp-sponsor #yiv7958006126ygrp-lc .yiv7958006126ad {margin-bottom:10px;padding:0 0;}#yiv7958006126 #yiv7958006126actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7958006126 #yiv7958006126activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7958006126 #yiv7958006126activity span {font-weight:700;}#yiv7958006126 #yiv7958006126activity span:first-child {text-transform:uppercase;}#yiv7958006126 #yiv7958006126activity span a {color:#5085b6;text-decoration:none;}#yiv7958006126 #yiv7958006126activity span span {color:#ff7900;}#yiv7958006126 #yiv7958006126activity span .yiv7958006126underline {text-decoration:underline;}#yiv7958006126 .yiv7958006126attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7958006126 .yiv7958006126attach div a {text-decoration:none;}#yiv7958006126 .yiv7958006126attach img {border:none;padding-right:5px;}#yiv7958006126 .yiv7958006126attach label {display:block;margin-bottom:5px;}#yiv7958006126 .yiv7958006126attach label a {text-decoration:none;}#yiv7958006126 blockquote {margin:0 0 0 4px;}#yiv7958006126 .yiv7958006126bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7958006126 .yiv7958006126bold a {text-decoration:none;}#yiv7958006126 dd.yiv7958006126last p a {font-family:Verdana;font-weight:700;}#yiv7958006126 dd.yiv7958006126last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7958006126 dd.yiv7958006126last p span.yiv7958006126yshortcuts {margin-right:0;}#yiv7958006126 div.yiv7958006126attach-table div div a {text-decoration:none;}#yiv7958006126 div.yiv7958006126attach-table {width:400px;}#yiv7958006126 div.yiv7958006126file-title a, #yiv7958006126 div.yiv7958006126file-title a:active, #yiv7958006126 div.yiv7958006126file-title a:hover, #yiv7958006126 div.yiv7958006126file-title a:visited {text-decoration:none;}#yiv7958006126 div.yiv7958006126photo-title a, #yiv7958006126 div.yiv7958006126photo-title a:active, #yiv7958006126 div.yiv7958006126photo-title a:hover, #yiv7958006126 div.yiv7958006126photo-title a:visited {text-decoration:none;}#yiv7958006126 div#yiv7958006126ygrp-mlmsg #yiv7958006126ygrp-msg p a span.yiv7958006126yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7958006126 .yiv7958006126green {color:#628c2a;}#yiv7958006126 .yiv7958006126MsoNormal {margin:0 0 0 0;}#yiv7958006126 o {font-size:0;}#yiv7958006126 #yiv7958006126photos div {float:left;width:72px;}#yiv7958006126 #yiv7958006126photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv7958006126 #yiv7958006126photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7958006126 #yiv7958006126reco-category {font-size:77%;}#yiv7958006126 #yiv7958006126reco-desc {font-size:77%;}#yiv7958006126 .yiv7958006126replbq {margin:4px;}#yiv7958006126 #yiv7958006126ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7958006126 #yiv7958006126ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7958006126 #yiv7958006126ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7958006126 #yiv7958006126ygrp-mlmsg select, #yiv7958006126 input, #yiv7958006126 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7958006126 #yiv7958006126ygrp-mlmsg pre, #yiv7958006126 code {font:115% monospace;}#yiv7958006126 #yiv7958006126ygrp-mlmsg * {line-height:1.22em;}#yiv7958006126 #yiv7958006126ygrp-mlmsg #yiv7958006126logo {padding-bottom:10px;}#yiv7958006126 #yiv7958006126ygrp-msg p a {font-family:Verdana;}#yiv7958006126 #yiv7958006126ygrp-msg p#yiv7958006126attach-count span {color:#1E66AE;font-weight:700;}#yiv7958006126 #yiv7958006126ygrp-reco #yiv7958006126reco-head {color:#ff7900;font-weight:700;}#yiv7958006126 #yiv7958006126ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7958006126 #yiv7958006126ygrp-sponsor #yiv7958006126ov li a {font-size:130%;text-decoration:none;}#yiv7958006126 #yiv7958006126ygrp-sponsor #yiv7958006126ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7958006126 #yiv7958006126ygrp-sponsor #yiv7958006126ov ul {margin:0;padding:0 0 0 8px;}#yiv7958006126 #yiv7958006126ygrp-text {font-family:Georgia;}#yiv7958006126 #yiv7958006126ygrp-text p {margin:0 0 1em 0;}#yiv7958006126 #yiv7958006126ygrp-text tt {font-size:120%;}#yiv7958006126 #yiv7958006126ygrp-vital ul li:last-child {border-right:none !important;}#yiv7958006126

   

COBA_Toby.xlsm (40K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
Terima kasih banyak Mr. Kid atas bantuannya.

    Pada Minggu, 23 Juli 2017 4:57, "'Mr. Kid' [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email] > menulis:


     Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid


2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email] >:

     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

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
Sangat membantu mas Toby.Terima kasih atas bantuannya.

    Pada Minggu, 23 Juli 2017 12:06, "Toby kenzo [hidden email] [belajar-excel]" <[hidden email]> menulis:


     Dear Danny,
Mungkin file ini bisa membantu.
TerimaKasih

    Pada Sabtu, 22 Juli 2017 0:16, "Danny Prasetyo [hidden email] [belajar-excel]" <[hidden email]> 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

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
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' [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email] > menulis:


     Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid


2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email] >:

     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

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Bls: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email] > menulis:
>
>
>  
> Hai Danny,
>
> File terlampir sekadar contoh saja.
>
> Regards,
> Kid
>
>
> 2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email] >:
>  
> 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...
>
>
>
>
>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: Bls: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
Contoh 1
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    Else
    If cboDT.Value = "" Then    MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"    End If    End If
End Sub


Contoh 2
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_"            Else
            If cboDT.Value = "" Then            MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"            End If
            End If                End With    End IfEnd Sub

Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid

    Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' [hidden email] [belajar-excel]" <[hidden email]> menulis:


     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 [hidden email] [belajar-excel] <[hidden email]> wrote:


    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' [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email] > menulis:


     Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid


2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email] >:

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








  #yiv6245144220 #yiv6245144220 -- #yiv6245144220ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6245144220 #yiv6245144220ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6245144220 #yiv6245144220ygrp-mkp #yiv6245144220hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6245144220 #yiv6245144220ygrp-mkp #yiv6245144220ads {margin-bottom:10px;}#yiv6245144220 #yiv6245144220ygrp-mkp .yiv6245144220ad {padding:0 0;}#yiv6245144220 #yiv6245144220ygrp-mkp .yiv6245144220ad p {margin:0;}#yiv6245144220 #yiv6245144220ygrp-mkp .yiv6245144220ad a {color:#0000ff;text-decoration:none;}#yiv6245144220 #yiv6245144220ygrp-sponsor #yiv6245144220ygrp-lc {font-family:Arial;}#yiv6245144220 #yiv6245144220ygrp-sponsor #yiv6245144220ygrp-lc #yiv6245144220hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6245144220 #yiv6245144220ygrp-sponsor #yiv6245144220ygrp-lc .yiv6245144220ad {margin-bottom:10px;padding:0 0;}#yiv6245144220 #yiv6245144220actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6245144220 #yiv6245144220activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6245144220 #yiv6245144220activity span {font-weight:700;}#yiv6245144220 #yiv6245144220activity span:first-child {text-transform:uppercase;}#yiv6245144220 #yiv6245144220activity span a {color:#5085b6;text-decoration:none;}#yiv6245144220 #yiv6245144220activity span span {color:#ff7900;}#yiv6245144220 #yiv6245144220activity span .yiv6245144220underline {text-decoration:underline;}#yiv6245144220 .yiv6245144220attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6245144220 .yiv6245144220attach div a {text-decoration:none;}#yiv6245144220 .yiv6245144220attach img {border:none;padding-right:5px;}#yiv6245144220 .yiv6245144220attach label {display:block;margin-bottom:5px;}#yiv6245144220 .yiv6245144220attach label a {text-decoration:none;}#yiv6245144220 blockquote {margin:0 0 0 4px;}#yiv6245144220 .yiv6245144220bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6245144220 .yiv6245144220bold a {text-decoration:none;}#yiv6245144220 dd.yiv6245144220last p a {font-family:Verdana;font-weight:700;}#yiv6245144220 dd.yiv6245144220last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6245144220 dd.yiv6245144220last p span.yiv6245144220yshortcuts {margin-right:0;}#yiv6245144220 div.yiv6245144220attach-table div div a {text-decoration:none;}#yiv6245144220 div.yiv6245144220attach-table {width:400px;}#yiv6245144220 div.yiv6245144220file-title a, #yiv6245144220 div.yiv6245144220file-title a:active, #yiv6245144220 div.yiv6245144220file-title a:hover, #yiv6245144220 div.yiv6245144220file-title a:visited {text-decoration:none;}#yiv6245144220 div.yiv6245144220photo-title a, #yiv6245144220 div.yiv6245144220photo-title a:active, #yiv6245144220 div.yiv6245144220photo-title a:hover, #yiv6245144220 div.yiv6245144220photo-title a:visited {text-decoration:none;}#yiv6245144220 div#yiv6245144220ygrp-mlmsg #yiv6245144220ygrp-msg p a span.yiv6245144220yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6245144220 .yiv6245144220green {color:#628c2a;}#yiv6245144220 .yiv6245144220MsoNormal {margin:0 0 0 0;}#yiv6245144220 o {font-size:0;}#yiv6245144220 #yiv6245144220photos div {float:left;width:72px;}#yiv6245144220 #yiv6245144220photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv6245144220 #yiv6245144220photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6245144220 #yiv6245144220reco-category {font-size:77%;}#yiv6245144220 #yiv6245144220reco-desc {font-size:77%;}#yiv6245144220 .yiv6245144220replbq {margin:4px;}#yiv6245144220 #yiv6245144220ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6245144220 #yiv6245144220ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6245144220 #yiv6245144220ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6245144220 #yiv6245144220ygrp-mlmsg select, #yiv6245144220 input, #yiv6245144220 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6245144220 #yiv6245144220ygrp-mlmsg pre, #yiv6245144220 code {font:115% monospace;}#yiv6245144220 #yiv6245144220ygrp-mlmsg * {line-height:1.22em;}#yiv6245144220 #yiv6245144220ygrp-mlmsg #yiv6245144220logo {padding-bottom:10px;}#yiv6245144220 #yiv6245144220ygrp-msg p a {font-family:Verdana;}#yiv6245144220 #yiv6245144220ygrp-msg p#yiv6245144220attach-count span {color:#1E66AE;font-weight:700;}#yiv6245144220 #yiv6245144220ygrp-reco #yiv6245144220reco-head {color:#ff7900;font-weight:700;}#yiv6245144220 #yiv6245144220ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6245144220 #yiv6245144220ygrp-sponsor #yiv6245144220ov li a {font-size:130%;text-decoration:none;}#yiv6245144220 #yiv6245144220ygrp-sponsor #yiv6245144220ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6245144220 #yiv6245144220ygrp-sponsor #yiv6245144220ov ul {margin:0;padding:0 0 0 8px;}#yiv6245144220 #yiv6245144220ygrp-text {font-family:Georgia;}#yiv6245144220 #yiv6245144220ygrp-text p {margin:0 0 1em 0;}#yiv6245144220 #yiv6245144220ygrp-text tt {font-size:120%;}#yiv6245144220 #yiv6245144220ygrp-vital ul li:last-child {border-right:none !important;}#yiv6245144220

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Bls: Bls: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
Contoh 1 msgbox tok saja
Tidak usah pakai if yg Anda buat

Sent from my smart enough phone

> On Jul 25, 2017, at 11:40, Danny Prasetyo [hidden email] [belajar-excel] <[hidden email]> wrote:
>
> Contoh 1
>
> 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
>     Else
>
>     If cboDT.Value = "" Then
>     MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
>     End If
>     End If
>
> End Sub
>
>
>
> Contoh 2
>
> 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_"
>             Else
>
>             If cboDT.Value = "" Then
>             MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
>             End If
>             End If
>        
>         End With
>     End If
> End Sub
>
>
> Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid
>
>
> Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' [hidden email] [belajar-excel]" <[hidden email]> menulis:
>
>
>  
> 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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email] > menulis:
>>
>>
>>  
>> Hai Danny,
>>
>> File terlampir sekadar contoh saja.
>>
>> Regards,
>> Kid
>>
>>
>> 2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email] >:
>>  
>> 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...
>>
>>
>>
>>
>>
>>
>
>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
 

Kalo rumus nya selain With bagaimana Mr. Kid? Agar dapat memudahkan saya. 
Terkirim: 25 Juli 2017 12.38
Balas ke: [hidden email]
Hal: Re: Bls: Bls: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

 

Contoh 1 msgbox tok saja
Tidak usah pakai if yg Anda buat

Sent from my smart enough phone

On Jul 25, 2017, at 11:40, Danny Prasetyo [hidden email] [belajar-excel] <[hidden email]> wrote:

 

Contoh 1

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
    Else

    If cboDT.Value = "" Then
    MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
    End If
    End If

End Sub



Contoh 2

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_"
            Else

            If cboDT.Value = "" Then
            MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
            End If
            End If
        
        End With
    End If
End Sub


Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid


Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' [hidden email] [belajar-excel]" <[hidden email]> menulis:


 
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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email] > menulis:


 
Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid


2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email] >:
 
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... 








__._,_.___

Posted by: Danny Prasetyo <[hidden email]>
Reply via web post [hidden email] [hidden email] Start a New Topic Messages in this topic (12)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

============================================================
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: [hidden email]
posting ke milis, kirimkan ke: [hidden email]
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@.../
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: [hidden email]
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : [hidden email]
---------------------------------------------------------------------

.

__,_._,___
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
hmmm...
ada apa dengan with ?

'dengan with
*with *sheets(1)        'pada sheet ke-1 dalam tab sheet
       *.*range("a1").value="Kid"       'tulis teks 'Kid' pada range A1 di
sheet ke-1
       *.*range("c3").value="Kid"       'tulis teks 'Kid' pada range c3 di
sheet ke-1
       *.*range("b7").value="Kid"       'tulis teks 'Kid' pada range b7 di
sheet ke-1
*end with*

'tanpa with
      sheets(1)*.*range("a1").value="Kid"       'tulis teks 'Kid' pada
range A1 di sheet ke-1
      sheets(1)*.*range("c3").value="Kid"       'tulis teks 'Kid' pada
range c3 di sheet ke-1
      sheets(1)*.*range("b7").value="Kid"       'tulis teks 'Kid' pada
range b7 di sheet ke-1

blok With ... End With untuk memudahkan penulisan baris kode

Contoh lain :
'tanpa with
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Font.Bold = True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Font.Underline =
True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Interior.Color =
vbRed

'dengan with
With Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)
    *.*Font.Bold = True
    *.*Font.Underline = True
    *.*Interior.Color = vbRed
End With

Gimana ?
Tidak ada apa-apa dengan with bukan ?

Regards,
Kid



2017-07-25 16:40 GMT+07:00 Danny Prasetyo [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Kalo rumus nya selain With bagaimana Mr. Kid? Agar dapat memudahkan saya.
> *Dari:* [hidden email]
> *Terkirim:* 25 Juli 2017 12.38
> *Kepada:* [hidden email]
> *Balas ke:* [hidden email]
> *Hal:* Re: Bls: Bls: [belajar-excel] Hapus baris terpilih dengan 1
> kriteria menggunakan combobox
>
>
>
> Contoh 1 msgbox tok saja
> Tidak usah pakai if yg Anda buat
>
> Sent from my smart enough phone
>
> On Jul 25, 2017, at 11:40, Danny Prasetyo [hidden email]
> [belajar-excel] <[hidden email]> wrote:
>
>
>
> Contoh 1
>
> 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
>     Else
>
>     If cboDT.Value = "" Then
>     MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
>     End If
>     End If
>
> End Sub
>
>
>
> Contoh 2
>
> 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_"
>             Else
>
>             If cboDT.Value = "" Then
>             MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
>             End If
>             End If
>
>         End With
>     End If
> End Sub
>
>
> Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid
>
>
> Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' [hidden email]
> [belajar-excel]" <[hidden email]> menulis:
>
>
>
> 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 [hidden email]
> [belajar-excel] <[hidden email]> 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' [hidden email]
> [belajar-excel]" <[hidden email]> 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 [hidden email]
> [belajar-excel] <[hidden email]> 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' [hidden email]
> [belajar-excel]" <[hidden email] > menulis:
>
>
>
> Hai Danny,
>
> File terlampir sekadar contoh saja.
>
> Regards,
> Kid
>
>
> 2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email]
> [belajar-excel] <[hidden email] >:
>
>
> 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...
>
>
>
>
>
>
>
>
>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
 

Oh begitu toh maksud penggunaan With
Baru ngeh saya selama belajar vba hahahaha... 

Oke deh saya coba lagi, 
Terima kasih Mr. Kid... 
Terkirim: 25 Juli 2017 16.58
Balas ke: [hidden email]
Hal: Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

 

hmmm...
ada apa dengan with ?

'dengan with
with sheets(1)        'pada sheet ke-1 dalam tab sheet
       .range("a1").value="Kid"       'tulis teks 'Kid' pada range A1 di sheet ke-1
       .range("c3").value="Kid"       'tulis teks 'Kid' pada range c3 di sheet ke-1
       .range("b7").value="Kid"       'tulis teks 'Kid' pada range b7 di sheet ke-1
end with

'tanpa with
      sheets(1).range("a1").value="Kid"       'tulis teks 'Kid' pada range A1 di sheet ke-1
      sheets(1).range("c3").value="Kid"       'tulis teks 'Kid' pada range c3 di sheet ke-1
      sheets(1).range("b7").value="Kid"       'tulis teks 'Kid' pada range b7 di sheet ke-1

blok With ... End With untuk memudahkan penulisan baris kode

Contoh lain :
'tanpa with
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Font.Bold = True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Font.Underline = True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Interior.Color = vbRed

'dengan with
With Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)
    .Font.Bold = True
    .Font.Underline = True
    .Interior.Color = vbRed
End With

Gimana ?
Tidak ada apa-apa dengan with bukan ?

Regards,
Kid



2017-07-25 16:40 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email]>:
 

Kalo rumus nya selain With bagaimana Mr. Kid? Agar dapat memudahkan saya. 
Terkirim: 25 Juli 2017 12.38
Balas ke: [hidden email]
Hal: Re: Bls: Bls: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

 

Contoh 1 msgbox tok saja
Tidak usah pakai if yg Anda buat

Sent from my smart enough phone

On Jul 25, 2017, at 11:40, Danny Prasetyo [hidden email] [belajar-excel] <[hidden email]> wrote:

 

Contoh 1

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
    Else

    If cboDT.Value = "" Then
    MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
    End If
    End If

End Sub



Contoh 2

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_"
            Else

            If cboDT.Value = "" Then
            MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
            End If
            End If
        
        End With
    End If
End Sub


Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid


Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' [hidden email] [belajar-excel]" <[hidden email]> menulis:


 
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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email] > menulis:


 
Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid


2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email] >:
 
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... 









__._,_.___

Posted by: Danny Prasetyo <[hidden email]>
Reply via web post [hidden email] [hidden email] Start a New Topic Messages in this topic (14)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

============================================================
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: [hidden email]
posting ke milis, kirimkan ke: [hidden email]
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@.../
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: [hidden email]
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : [hidden email]
---------------------------------------------------------------------

.

__,_._,___
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
hmmm...
saya juga baru ngeh kalo situ menduganya si with bikin ulah

2017-07-25 17:11 GMT+07:00 Danny Prasetyo [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Oh begitu toh maksud penggunaan With
> Baru ngeh saya selama belajar vba hahahaha...
>
> Oke deh saya coba lagi,
> Terima kasih Mr. Kid...
> *Dari:* [hidden email]
> *Terkirim:* 25 Juli 2017 16.58
> *Kepada:* [hidden email]
> *Balas ke:* [hidden email]
> *Hal:* Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria
> menggunakan combobox
>
>
>
> hmmm...
> ada apa dengan with ?
>
> 'dengan with
> *with *sheets(1)        'pada sheet ke-1 dalam tab sheet
>        *.*range("a1").value="Kid"       'tulis teks 'Kid' pada range A1
> di sheet ke-1
>        *.*range("c3").value="Kid"       'tulis teks 'Kid' pada range c3
> di sheet ke-1
>        *.*range("b7").value="Kid"       'tulis teks 'Kid' pada range b7
> di sheet ke-1
> *end with*
>
> 'tanpa with
>       sheets(1)*.*range("a1").value="Kid"       'tulis teks 'Kid' pada
> range A1 di sheet ke-1
>       sheets(1)*.*range("c3").value="Kid"       'tulis teks 'Kid' pada
> range c3 di sheet ke-1
>       sheets(1)*.*range("b7").value="Kid"       'tulis teks 'Kid' pada
> range b7 di sheet ke-1
>
> blok With ... End With untuk memudahkan penulisan baris kode
>
> Contoh lain :
> 'tanpa with
> Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Font.Bold = True
> Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Font.Underline =
> True
> Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Interior.Color =
> vbRed
>
> 'dengan with
> With Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)
>     *.*Font.Bold = True
>     *.*Font.Underline = True
>     *.*Interior.Color = vbRed
> End With
>
> Gimana ?
> Tidak ada apa-apa dengan with bukan ?
>
> Regards,
> Kid
>
>
>
> 2017-07-25 16:40 GMT+07:00 Danny Prasetyo [hidden email]
> [belajar-excel] <[hidden email]>:
>
>>
>>
>> Kalo rumus nya selain With bagaimana Mr. Kid? Agar dapat memudahkan saya.
>> *Dari:* [hidden email]
>> *Terkirim:* 25 Juli 2017 12.38
>> *Kepada:* [hidden email]
>> *Balas ke:* [hidden email]
>> *Hal:* Re: Bls: Bls: [belajar-excel] Hapus baris terpilih dengan 1
>> kriteria menggunakan combobox
>>
>>
>>
>> Contoh 1 msgbox tok saja
>> Tidak usah pakai if yg Anda buat
>>
>> Sent from my smart enough phone
>>
>> On Jul 25, 2017, at 11:40, Danny Prasetyo [hidden email]
>> [belajar-excel] <[hidden email]> wrote:
>>
>>
>>
>> Contoh 1
>>
>> 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
>>     Else
>>
>>     If cboDT.Value = "" Then
>>     MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
>>     End If
>>     End If
>>
>> End Sub
>>
>>
>>
>> Contoh 2
>>
>> 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_"
>>             Else
>>
>>             If cboDT.Value = "" Then
>>             MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
>>             End If
>>             End If
>>
>>         End With
>>     End If
>> End Sub
>>
>>
>> Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid
>>
>>
>> Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' [hidden email]
>> [belajar-excel]" <[hidden email]> menulis:
>>
>>
>>
>> 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 [hidden email]
>> [belajar-excel] <[hidden email]> 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' [hidden email]
>> [belajar-excel]" <[hidden email]> 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 [hidden email]
>> [belajar-excel] <[hidden email]> 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' [hidden email]
>> [belajar-excel]" <[hidden email] > menulis:
>>
>>
>>
>> Hai Danny,
>>
>> File terlampir sekadar contoh saja.
>>
>> Regards,
>> Kid
>>
>>
>> 2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email]
>> [belajar-excel] <[hidden email] >:
>>
>>
>> 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...
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
 

Hahahaha tau aja nih MR. Kid 

Regards,

Danny Prasetyo, S.E., M.M.
Terkirim: 25 Juli 2017 5.21 PM
Balas ke: [hidden email]
Hal: Re: Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

 

hmmm...
saya juga baru ngeh kalo situ menduganya si with bikin ulah

2017-07-25 17:11 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email]>:
 

Oh begitu toh maksud penggunaan With
Baru ngeh saya selama belajar vba hahahaha... 

Oke deh saya coba lagi, 
Terima kasih Mr. Kid... 
Terkirim: 25 Juli 2017 16.58
Balas ke: [hidden email]
Hal: Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

 

hmmm...
ada apa dengan with ?

'dengan with
with sheets(1)        'pada sheet ke-1 dalam tab sheet
       .range("a1").value="Kid"       'tulis teks 'Kid' pada range A1 di sheet ke-1
       .range("c3").value="Kid"       'tulis teks 'Kid' pada range c3 di sheet ke-1
       .range("b7").value="Kid"       'tulis teks 'Kid' pada range b7 di sheet ke-1
end with

'tanpa with
      sheets(1).range("a1").value="Kid"       'tulis teks 'Kid' pada range A1 di sheet ke-1
      sheets(1).range("c3").value="Kid"       'tulis teks 'Kid' pada range c3 di sheet ke-1
      sheets(1).range("b7").value="Kid"       'tulis teks 'Kid' pada range b7 di sheet ke-1

blok With ... End With untuk memudahkan penulisan baris kode

Contoh lain :
'tanpa with
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Font.Bold = True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Font.Underline = True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Interior.Color = vbRed

'dengan with
With Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)
    .Font.Bold = True
    .Font.Underline = True
    .Interior.Color = vbRed
End With

Gimana ?
Tidak ada apa-apa dengan with bukan ?

Regards,
Kid



2017-07-25 16:40 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email]>:
 

Kalo rumus nya selain With bagaimana Mr. Kid? Agar dapat memudahkan saya. 
Terkirim: 25 Juli 2017 12.38
Balas ke: [hidden email]
Hal: Re: Bls: Bls: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

 

Contoh 1 msgbox tok saja
Tidak usah pakai if yg Anda buat

Sent from my smart enough phone

On Jul 25, 2017, at 11:40, Danny Prasetyo [hidden email] [belajar-excel] <[hidden email]> wrote:

 

Contoh 1

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
    Else

    If cboDT.Value = "" Then
    MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
    End If
    End If

End Sub



Contoh 2

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_"
            Else

            If cboDT.Value = "" Then
            MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
            End If
            End If
        
        End With
    End If
End Sub


Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid


Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' [hidden email] [belajar-excel]" <[hidden email]> menulis :


 
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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email] > menulis:


 
Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid


2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email] >:
 
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... 










__._,_.___

Posted by: Danny Prasetyo <[hidden email]>
Reply via web post [hidden email] [hidden email] Start a New Topic Messages in this topic (16)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

============================================================
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: [hidden email]
posting ke milis, kirimkan ke: [hidden email]
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@.../
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: [hidden email]
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : [hidden email]
---------------------------------------------------------------------

.

__,_._,___
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
hehehe...

tempo hari ada contoh runtime seperti ini : (tentu masih ingat kan ya)
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).*entirerow*.Delete
                cboDT.RowSource = "_lstDT_"
            End If
        End With
    End If
End Sub

lalu, pinginnya hanya baris di kolom tabel data yang terbuang (ter .delete)
maka jadi begini :
 (*latar kuning di bold*, dipilih jumlah kolomnya dengan resize,
lalu delete area kecil range tersebut akan membuat range di baris-baris
berikutnya terangkat ke atas [shiftup])
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

lalu pingin lagi untuk tampilkan pesan, ketika user belum memilih salah
satu baris yang akan dibuang.
> kata kuncinya adalah :
      Blok if terluar diubah dari blok if endif menjadi if else endif.
Msgbox Anda diletakkan pada area else.

Maka jadinya secara bertahap begini :
1. Blok if terluar diubah dari blok if endif menjadi if else endif.
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
  * else   *'jadilah blok if terluar menjadi IF ELSE ENDIF

    End If
End Sub

2. Msgbox Anda diletakkan pada area else.
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
  * else   *'jadilah blok if terluar menjadi IF ELSE ENDIF
        msgbox "mbok yao pilih dulu record yang akan dibuang to
ya...",vbinformation,"ini bunyi pesennya"
    End If
End Sub

Jadi deh....

**** Kok bisa ?  ****
1. properti bernama ListIndex
     Nilainya akan -1 jika belum ada yang terpilih
     Nilainya akan BUKAN -1 (lebih dari -1 [ > -1 ] )  jika ada item yang
terpilih
     Catatan : item ke-1 dalam daftar memiliki ListIndex bernilai 0
(disebut base 0)

2. Jadi, bunyi baris IF :
            lRec = cboDT.ListIndex + 1    'listindex disimpan ke variabel
lrec dan diubah menjadi base 1 (karena akan dipakai untuk merujuk range
yang base 1)
            If lRec > 0 Then
    memiliki bahasa manusia :
           "tulung simpenin listindex yang sudah ditambah 1 (supaya jadi
base 1) ke variabel lRec, trus,
             kalau user memilih salah satu item dari daftar ( lRec > 0 )
maka lakukan sesuatu sesuai perintah saya yang berikutnya dalam area ini ya"

3. Berarti, kalau si baris IF (nomor 2) itu tidak terpenuhi, maka akan
masuk ke area lawannya, yaitu area ELSE yang dapat diartikan sebagai :
          lRec<=0  atau user belum memilih item apapun dari dalam daftar


*** simpelnya ***
ListIndex bisa digunakan untuk memeriksa 'Apakah user sudah memilih salah
satu item atau belum'
ListIndex = -1 (base 0) berarti *belum *ada item dalam daftar yang dipilih
ListIndex > -1 (base 0) berarti *sudah *ada item dalam daftar yang dipilih
ListIndex = 0 (base 0) berarti user sudah memilih item ke-1 yang memiliki
nilai index item adalah 0 (base 0)
ListIndex = 5 (base 0) berarti user sudah memilih item ke-6 yang memiliki
nilai index item adalah 5 (base 0)

*** memanfaatkan listindex untuk merujuk ke suatu baris range tertentu ***
Misal header di A5, maka record ke-1 di A6, listindex = 0 (base 0)
    sheets("nama sheet").range("a5").offset( 1 + cbo.ListIndex
).value="Kid"     'nulis ke record ke-1 bunyi teks 'Kid' ketika listindex=0
(base 0)

nah...
selebihnya dicoba sendiri ya...

Regards,
Kid







2017-07-25 17:43 GMT+07:00 Danny Prasetyo [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Hahahaha tau aja nih MR. Kid
>
> Regards,
>
> Danny Prasetyo, S.E., M.M.
> *Dari:* [hidden email]
> *Terkirim:* 25 Juli 2017 5.21 PM
> *Kepada:* [hidden email]
> *Balas ke:* [hidden email]
> *Hal:* Re: Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria
> menggunakan combobox
>
>
>
> hmmm...
> saya juga baru ngeh kalo situ menduganya si with bikin ulah
>
> 2017-07-25 17:11 GMT+07:00 Danny Prasetyo [hidden email]
> [belajar-excel] <[hidden email]>:
>
>>
>>
>> Oh begitu toh maksud penggunaan With
>> Baru ngeh saya selama belajar vba hahahaha...
>>
>> Oke deh saya coba lagi,
>> Terima kasih Mr. Kid...
>> *Dari:* [hidden email]
>> *Terkirim:* 25 Juli 2017 16.58
>> *Kepada:* [hidden email]
>> *Balas ke:* [hidden email]
>> *Hal:* Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria
>> menggunakan combobox
>>
>>
>>
>> hmmm...
>> ada apa dengan with ?
>>
>> 'dengan with
>> *with *sheets(1)        'pada sheet ke-1 dalam tab sheet
>>        *.*range("a1").value="Kid"       'tulis teks 'Kid' pada range A1
>> di sheet ke-1
>>        *.*range("c3").value="Kid"       'tulis teks 'Kid' pada range c3
>> di sheet ke-1
>>        *.*range("b7").value="Kid"       'tulis teks 'Kid' pada range b7
>> di sheet ke-1
>> *end with*
>>
>> 'tanpa with
>>       sheets(1)*.*range("a1").value="Kid"       'tulis teks 'Kid' pada
>> range A1 di sheet ke-1
>>       sheets(1)*.*range("c3").value="Kid"       'tulis teks 'Kid' pada
>> range c3 di sheet ke-1
>>       sheets(1)*.*range("b7").value="Kid"       'tulis teks 'Kid' pada
>> range b7 di sheet ke-1
>>
>> blok With ... End With untuk memudahkan penulisan baris kode
>>
>> Contoh lain :
>> 'tanpa with
>> Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Font.Bold = True
>> Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Font.Underline
>> = True
>> Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Interior.Color
>> = vbRed
>>
>> 'dengan with
>> With Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)
>>     *.*Font.Bold = True
>>     *.*Font.Underline = True
>>     *.*Interior.Color = vbRed
>> End With
>>
>> Gimana ?
>> Tidak ada apa-apa dengan with bukan ?
>>
>> Regards,
>> Kid
>>
>>
>>
>> 2017-07-25 16:40 GMT+07:00 Danny Prasetyo [hidden email]
>> [belajar-excel] <[hidden email]>:
>>
>>>
>>>
>>> Kalo rumus nya selain With bagaimana Mr. Kid? Agar dapat memudahkan
>>> saya.
>>> *Dari:* [hidden email]
>>> *Terkirim:* 25 Juli 2017 12.38
>>> *Kepada:* [hidden email]
>>> *Balas ke:* [hidden email]
>>> *Hal:* Re: Bls: Bls: [belajar-excel] Hapus baris terpilih dengan 1
>>> kriteria menggunakan combobox
>>>
>>>
>>>
>>> Contoh 1 msgbox tok saja
>>> Tidak usah pakai if yg Anda buat
>>>
>>> Sent from my smart enough phone
>>>
>>> On Jul 25, 2017, at 11:40, Danny Prasetyo [hidden email]
>>> [belajar-excel] <[hidden email]> wrote:
>>>
>>>
>>>
>>> Contoh 1
>>>
>>> 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
>>>     Else
>>>
>>>     If cboDT.Value = "" Then
>>>     MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
>>>     End If
>>>     End If
>>>
>>> End Sub
>>>
>>>
>>>
>>> Contoh 2
>>>
>>> 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_"
>>>             Else
>>>
>>>             If cboDT.Value = "" Then
>>>             MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
>>>             End If
>>>             End If
>>>
>>>         End With
>>>     End If
>>> End Sub
>>>
>>>
>>> Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid
>>>
>>>
>>> Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' [hidden email]
>>> [belajar-excel]" <[hidden email]> menulis:
>>>
>>>
>>>
>>> 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 [hidden email]
>>> [belajar-excel] <[hidden email]> 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' [hidden email]
>>> [belajar-excel]" <[hidden email]> 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 [hidden email]
>>> [belajar-excel] <[hidden email]> 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' [hidden email]
>>> [belajar-excel]" <[hidden email] > menulis:
>>>
>>>
>>>
>>> Hai Danny,
>>>
>>> File terlampir sekadar contoh saja.
>>>
>>> Regards,
>>> Kid
>>>
>>>
>>> 2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email]
>>> [belajar-excel] <[hidden email] >:
>>>
>>>
>>> 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...
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

Milis Belajar Excel mailing list
 

Wah terima kasih banyak Mr. Kid sudah mau membantu. Saya coba besok deh, mood nya lagi hilang nih hahha. 

Sekali lagi terima kasih Mr. Kid, sudah mau memberikan penjelasan detail dan membantu. 

Makasih juga buat mas TobyKenzo... 

Regards,

Danny Prasetyo
Terkirim: 25 Juli 2017 6.49 PM
Balas ke: [hidden email]
Hal: Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

 

hehehe...

tempo hari ada contoh runtime seperti ini : (tentu masih ingat kan ya)
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).entirerow.Delete
                cboDT.RowSource = "_lstDT_"
            End If
        End With
    End If
End Sub

lalu, pinginnya hanya baris di kolom tabel data yang terbuang (ter .delete)
maka jadi begini :
 (latar kuning di bold, dipilih jumlah kolomnya dengan resize,
lalu delete area kecil range tersebut akan membuat range di baris-baris berikutnya terangkat ke atas [shiftup])
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

lalu pingin lagi untuk tampilkan pesan, ketika user belum memilih salah satu baris yang akan dibuang.
> kata kuncinya adalah :
      Blok if terluar diubah dari blok if endif menjadi if else endif. Msgbox Anda diletakkan pada area else.

Maka jadinya secara bertahap begini :
1. Blok if terluar diubah dari blok if endif menjadi if else endif.
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
   else   'jadilah blok if terluar menjadi IF ELSE ENDIF

    End If
End Sub

2. Msgbox Anda diletakkan pada area else.
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
   else   'jadilah blok if terluar men jadi IF ELSE ENDIF
        msgbox "mbok yao pilih dulu record yang akan dibuang to ya...",vbinformation,"ini bunyi pesennya"
    End If
End Sub

Jadi deh....

*** Kok bisa ?  ***
1. properti bernama ListIndex
     Nilainya akan -1 jika belum ada yang terpilih
     Nilainya akan BUKAN -1 (lebih dari -1 [ > -1 ] )  jika ada item yang terpilih
     Catatan : item ke-1 dalam daftar memiliki ListIndex bernilai 0 (disebut base 0)

2. Jadi, bunyi baris IF :
            lRec = cboDT.ListIndex + 1    'listindex disimpan ke variabel lrec dan diubah menjadi base 1 (karena akan dipakai untuk merujuk range yang base 1)
            If lRec > 0 Then
    memiliki bahasa manusia :
           "tulung simpenin listindex yang sudah ditambah 1 (supaya jadi base 1) ke variabel lRec, trus,
             kalau user memilih salah satu item dari daftar ( lRec > 0 ) maka lakukan sesuatu sesuai perintah saya yang berikutnya dalam area ini ya"

3. Berarti, kalau si baris IF (nomor 2) itu tidak terpenuhi, maka akan masuk ke area lawannya, yaitu area ELSE yang dapat diartikan sebagai :
          lRec<=0  atau user belum memilih item apapun dari dalam daftar


*** simpelnya ***
ListIndex bisa digunakan untuk memeriksa 'Apakah user sudah memilih salah satu item atau belum'
ListIndex = -1 (base 0) berarti belum ada item dalam daftar yang dipilih
ListIndex > -1 (base 0) berarti sudah ada item dalam daftar yang dipilih
ListIndex = 0 (base 0) berarti user sudah memilih item ke-1 yang memiliki nilai index item adalah 0 (base 0)
ListIndex = 5 (base 0) berarti user sudah memilih item ke-6 yang memiliki nilai index item adalah 5 (base 0)

*** memanfaatkan listindex untuk merujuk ke suatu baris range tertentu ***
Misal header di A5, maka record ke-1 di A6, listindex = 0 (base 0)
    sheets("nama sheet").range("a5").offset( 1 + cbo.ListIndex ).value="Kid"     'nulis ke record ke-1 bunyi teks 'Kid' ketika listindex=0 (base 0)

nah...
selebihnya dicoba sendiri ya...

Regards,
Kid







2017-07-25 17:43 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email]>:
 

Hahahaha tau aja nih MR. Kid 

Regards,

Danny Prasetyo, S.E., M.M.
Terkirim: 25 Juli 2017 5.21 PM
Balas ke: [hidden email]
Hal: Re: Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

 

hmmm...
saya juga baru ngeh kalo situ menduganya si with bikin ulah

2017-07-25 17:11 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email]>:
 

Oh begitu toh maksud penggunaan With
Baru ngeh saya selama belajar vba hahahaha... 

Oke deh saya coba lagi, 
Terima kasih Mr. Kid... 
Terkirim: 25 Juli 2017 16.58
Balas ke: [hidden email]
Hal: Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

 

hmmm...
ada apa dengan with ?

'dengan with
with sheets(1)        'pada sheet ke-1 dalam tab sheet
       .range("a1").value="Kid"       'tulis teks 'Kid' pada range A1 di sheet ke-1
       .range("c3").value="Kid"       'tulis teks 'Kid' pada range c3 di sheet ke-1
       .range("b7").value="Kid"       'tulis teks 'Kid' pada range b7 di sheet ke-1
end with

'tanpa with
      sheets(1).range("a1").value="Kid"       'tulis teks 'Kid' pada range A1 di sheet ke-1
      sheets(1).range("c3").value="Kid"       'tulis teks 'Kid' pada range c3 di sheet ke-1
      sheets(1).range("b7").value="Kid"       'tulis teks 'Kid' pada range b7 di sheet ke-1

blok With ... End With untuk memudahkan penulisan baris kode

Contoh lain :
'tanpa with
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Font.Bold = True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Font.Underline = True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Interior.Color = vbRed

'dengan with
With Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)
    .Font.Bold = True
    .Font.Underline = True
    .Interior.Color = vbRed
End With

Gimana ?
Tidak ada apa-apa dengan with bukan ?

Regards,
Kid



2017-07-25 16:40 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email]>:
 

Kalo rumus nya selain With bagaimana Mr. Kid? Agar dapat memudahkan saya. 
Terkirim: 25 Juli 2017 12.38
Balas ke: [hidden email]
Hal: Re: Bls: Bls: [belajar-excel] Hapus baris terpilih dengan 1 kriteria menggunakan combobox

 

Contoh 1 msgbox tok saja
Tidak usah pakai if yg Anda buat

Sent from my smart enough phone

On Jul 25, 2017, at 11:40, Danny Prasetyo [hidden email] [belajar-excel] <[hidden email]> wrote:

 

Contoh 1

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
    Else

    If cboDT.Value = "" Then
    MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
    End If
    End If

End Sub



Contoh 2

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_"
            Else

            If cboDT.Value = "" Then
   &nb sp;        MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
            End If
            End If
        
        End With
    End If
End Sub


Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid


Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' [hidden email] [belajar-excel]" <[hidden email]> menulis:


 
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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel]" <[hidden email] > menulis:


 
Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid


2017-07-21 20:20 GMT+07:00 Danny Prasetyo [hidden email] [belajar-excel] <[hidden email] >:
 
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... 











__._,_.___

Posted by: Danny Prasetyo <[hidden email]>
Reply via web post [hidden email] [hidden email] Start a New Topic Messages in this topic (18)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

============================================================
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: [hidden email]
posting ke milis, kirimkan ke: [hidden email]
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@.../
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: [hidden email]
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : [hidden email]
---------------------------------------------------------------------

.

__,_._,___
Loading...