Filtering Menggunakan Text Box (ActiveX Control) - Vba

Sahabat Excelpriv,  Pada kesempatan kali ini kita akan bersama sama membuat data filter menggunakan Text Box (ActiveX Control), Bagaimanakah cara kerjanya file tersebut?, Kita saksikan dulu gambar diatas.
Setelah melihat gambar diatas lalu kita mulai bagaimana cara mengerjakannya:

Langkah langkah pengerjaannya:
1. Download dulu kuenya supaya memudahkan kita untuk belajar!... Download disini,
2. Setelah melihat isi Kue maka kita mulai menyediakan bahan bahannya:
     - 1 Buah TextBox ActiveX Control (Menu: Developer-Insert-Text Box (ActiveX Control)
     - 1 Buah Shapes Rectangle (Menu: Insert-Shapes-Rectangle)
     - Data Table
3. Setelah bahan bahannya terkumpul lalu kita aduk dengan rata:
     - Isi Properties Textbox1 : Linked Cell Isi Dengan D5

     - Rectangle diganti namanya menjadi "Hapus"
     - Definename table dirubah menjadi nama "Kota"
      

 4.  Masukan Code Vba Untuk TextBox :
       Private Sub TextBox1_Change()
                ActiveSheet.ListObjects("Kota").Range.AutoFilter Field:=1, _
                 Criteria1:="*" & [D5] & "*", Operator:=xlFilterValues
        End Sub
5. Code Vba Rectangle (Kalo Saya DI Taro Di Module):
   Sub Rectangle1_Click()
        [D5] = ""
         ActiveSheet.ListObjects("Kota").Range.AutoFilter Field:=1
   End Sub.

6. Setelah Semua Langkah Diatas Diikuti, Mulailah Anda Rebahan... Okeh









Sekia Tutorial Kali Ini Mudah Mudahan Membantu Anda

  

Membuat Kode HTML Di Excel Dan Menampilkannya

Dear Sahabat Excelpriv Yang pada Kece, Sudah Mandi Belum?. Pastinya Bau Kalo Belum Mandi.
Okeh Sahabat ExcelPriv Kali Ini Kita Mau Share Bagaimana Menampilkan Kode HTML Di Dalam Workbook. Penasaran, Lihat Dulu Gambar Ini!

Penasaran Kan... Kan... Kan...

Nah Mari Kita Buat Bersama Sama Yuk, Langkah Langkahnya:

1. Badan Mesti Wangi Dulu... Karena Sahabat Excelpriv Dilarang bau
2. Sediakan Kopi Ples Rokok Biar Dikatakan Ganteng.. Tapi bagi Anda Yang Tidak Merokok Tak Apalah Sediakan Saja Teh Manis
3. Cemilan
4. Buka Leptop Ato Komputer Dan Buka MS. Excel dan buat spt begini

5. Ganti Caption Comand Button (Klik Kanan -Propertis) Jadi Convert Dan Klik Duakali dan tulis code Berikut

6. Terakhir Jalankan Kode Tersebut
7. Pengen Filenya: Hemmmzz... Saya bagikan Bagi Anda yang Sudah Mandi Saja... Kalo Belum Mandi Jangan Coba Anda Unduh ya..

Filenya DISINI

Membuat Highlight Kolom Dan Baris Dalam Satu Tabel Report

Dear Kawan ExcelPriv.
Pada Kesempatan hari Ini Kita Akan Membahas Bersama Sama Tentang  "Highlight Kolom Dan Baris Dalam Satu Tabel Report" Menggunakan VBA Dan CF (Conditonal Formating). Maksudnya Adalah Kita Akan Membuat Baris Dan Kolum Berwarna Mengikuti Cell Yang Kita Klik. Untuk Lebih Jelasnya Kita Lihat Tampilan Gambar Berikut

Masih Belum Faham Juga Yuk Kita Unduh Filenya DISINI .
Okeh Kawan Setelah Kita Melihat Isi File yang Diunduh Marilah Kita Bersama Sama Mengikuti Langkah Langkah Pembuatannya:
1. Siapkan Data Nya Terlebih Dahulu Berbentuk Tabel, Kalo Sudah Ada,
2.  Kita Akan Membuat Dua Buah Define Name, Lihat File Saya , Saya Membuatnya Di Cell I2 dan satu lagi di I3, Di I2 Kita Kasih Nama R_ Dan Di I3 Kita Kasih Nama C_. Karena Logika Saya R_ Untuk Menandai Row Dan C_ Untuk Menandai Column.
3. Setelah Beres Membuat Define Name Kemudian Kita Klik tab Developer->View Code, Dan Kita Membuat selectionchange Pada Worksheet yaitu Untuk Melihat Jumlah Row Dan Column Ketika Kita Mengklik Salahsatu Cell
Codenya Adalah:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [C_] = Target.Column
    [R_] = Target.Row
End Sub
 4. Kembali lagi ke Sheet1.  Kita BLok A1:F:21 Klik CF->New Rule->Use Formula Determine Which Cells To Format. Dan masukan Rumus Ini =COLUMN(A1)=C_

5. Ulangi Lagi Langkah ke4 Dan masukan Rumus Berikut =ROW(A1)=R_
6. Lihat Hasilnya....

Demikian Tutorial hari Ini... Mudah Mudahan Bermanfaat Bagi Saya Dan anda

Menampilkan Halaman Url Hasil Pencarian Di Excel

Dear Sahabat ExcelPriv.

Tutorial Kita Hari Ini Yaitu Bagaimana Cara Menampilkan Web Page Dari Sebuah URL Hasil Pencarian Di Excel Memanfaatkan Embad Microsoft Web Browser. Lihat Gambar Berikut:

 So... Mari Kita Mulai. langkah2nya sebagai berikut:

1. Buka Workbook Baru, Pada Tab Developer Pilih Insert, lalu More Controls, lalu pilih Microsoft Web Browser, dan tempatkan di dalam sheet yang terbuka

2. Tambahkan 2 Buah Command Button Active X yaitu saru untuk mencari atau untuk mengeksekusi url web dan yamg satu lagi untuk memprevius .

3. Tuliskan Sourch code berikut untuk CommanButton Pencarian atau kalo saya captionnya di rubah drngan nama cari dan name dirubah dengan tcari, Sourchnya

Private Sub tcari_Click()
    Dim Lurl As Object
    Set Lurl = Range("E2")     '<- Cell yang berisi url
    WebBrowser1.Navigate (Lurl)    '<- untuk menampilkan eksekusi url yang mau dicari
End Sub

4.  Untuk CommandButton yang kedua yaitu untuk memprevius alamat url pencarian kita rubah captionnya Jadi Prev. dan Name tprev

Private Sub tprev_Click()
    Call Sheets("sheet1").WebBrowser1.GoBack  '<-buat kembali kepencarian sebelumnya
End Sub

 4. lihat hasilnya dan savenya jamgan lupa pake xlm atau sejenisnya yang bisa membuka file macro, dan kalo untuk melihat kembali setelah workbook anda di tutup jangan lupa di enable macro supaya code vba yang di tulis diatas tadi bisa berjalan dengan baik.
 Penampakan Codenya

Sekian Tutorial Kali Ini Mudahmudahan Bisa Membantu Anda. Dan Anda Dapat Mendownload Contoh Filenya DISINI

Cara membuat Shortcut Notepad Di Desktop Menggunakan VBA

Berikut Kode Vba Untuk Membuat Shortcut Notepad Di Desktop
Silahkan Modifikasi Sendiri :

Sub CreateNotepadShortcut()
    Dim objWSH          As Object
    Dim objShortCut     As Object
    Dim strPath         As String
 
'----If Early Binding set a referece to Windows Script Host Object Module--
    'Dim objWSH As New IWshRuntimeLibrary.IWshShell_Class
    'Dim objShortCut As IWshRuntimeLibrary.IWshShortcut_Class
'==========================================================================

'----Late Binding----------------------------------------------------------
    Set objWSH = CreateObject("WScript.Shell")
'==========================================================================

    strPath = objWSH.SpecialFolders("Desktop") & "\" & "Notepad.lnk"
    Set objShortCut = objWSH.CreateShortcut(strPath)
    With objShortCut
        .TargetPath = Environ("WINDIR") & "\" & "notepad.exe"
        .Description = "Shortcut to Notepad"
        .IconLocation = "C:\Windows\System\Shell32.dll,5"
        .RelativePath = "C:\Temp"
        .WorkingDirectory = "C:\"
        .Hotkey = "Ctrl+Alt+C"
        .Save
    End With
 
    Set objWSH = Nothing
    Set objShortCut = Nothing
End Sub