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' [email protected]
[belajar-excel]" <[email protected]> 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 [email protected] [belajar-excel]
<[email protected]> 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' [email protected]
[belajar-excel]" <[email protected]> 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 [email protected]
[belajar-excel] <[email protected]> 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' [email protected]
[belajar-excel]" <[email protected] > menulis:
Hai Danny,
File terlampir sekadar contoh saja.
Regards,
Kid
2017-07-21 20:20 GMT+07:00 Danny Prasetyo [email protected] [belajar-excel]
<[email protected] >:
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
