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

classic Classic list List threaded Threaded
1 message Options
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_"
            End If
        End With
    Else

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

End Sub

Sudah saya coba seperti ini tapi tetap tidak bisa. 




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

.

__,_._,___
Loading...