3 Golongan diakhirat yang mukanya bercahaya

Assalamualaikum… Wr, Wb.
Sekedar share untuk sahabat-sahabat semua, karena bertepatan bulan ini adalah Ramadhan maka saya akan menulis mengenai 3 golongan yang di akhirat nanti mukanya akan bercahaya dan para malaikat kagum melihatnya, siapa sajakah golongan itu:

1. Golongan/jamaah yang mukanya bercahaya bagaikan bintang, golongan ini adalah orang-orang yang semasa hidupnya ketika mendengarkan kumandang azan langsung mengambil wudhu dan menuju ketempat sholat.

2. Golongan/jamaah yang mukanya bercahaya bagaikan bulan, golongan ini adalah orang-orang yang semasa hidupnya ketika kumandang azan belum di kumandangkan mereka sudah mengambil wudhu dan bersiap untuk sholat.

3. Golongan/jamaah yang mukanya bercahaya bagaikan matahari, golongan ini adalah orang-orang yang semasa hidupnya ketika kumandang azan belum dikumandangkan mereka sudah mengambil wudhu dan mendengarkannya di dalam masjid dan sudah siap untuk menjalankan sholat berjamaah.

Demikian tausiyah yang saya dapatkan dari ustadz kemarin, semoga bermanfaat dan dapat menambah keimanan & ketakwaan kita kepada Allah SWT. Amiin..

Wassalam..

Mengetahui Filename dari Workbook yang aktif Excel VBA

Berikut ini adalah tip cepat bagaimana caranya mendapatkan nama dari filename file excel/workbook yang sedang aktif.

Menampilkan full name dan letak path:

Sub displayFullName()
    MsgBox ActiveWorkbook.FullName, vbOKOnly
End Sub

Menampilkan nama workbook saja:

Sub displayWorkbookName()
    MsgBox ActiveWorkbook.Name, vbOKOnly 
End Sub

Demikian, selamat mencoba…, semoga bermanfaat..

Import data dari tabel SQL ke Excel dengan VBA Macro

Kali ini saya akan share bagaimana caranya mengimport data dari tabel SQL server ke Worksheet Microsoft Excel melalui VBA Macro. Bagi yang sudah terbiasa dengan Visual Basic 6.0 mungkin hal ini tidak terlalu sulit karena pada dasarnya memiliki metode yang sama yaitu menggunakan object ADO. Oke langsung saja ke codingnya:

Crystal Report – Load Report Failed on ASP.Net Page deployed in IIS 7 – Windows Server 2008 x64

Ketika saya mencoba untuk menjalankan program yang saya buat menggunakan ASP.NET + Crystal Report pada computer client saya selalu mendapati error “Load Report Failed” padahal program ini tidak ada masalah jika saya running dari komputer saya (Development).

Usut punya usut ternyata hal tersebut dikarenakan user IIS tidak memiliki hak akses ke temporary folder dan application pool. Berikut solusi yang saya dapatkan dari blog sebelah:

Export Datatable ke SQL Server VB.NET

Pada postingan kali ini saya akan share cara mengeksport data dari datatable ke tabel pada SQL server, misalnya saya contohkan disini kita mempunyai database dengan nama ‘dbTes’ kemudian terdapat satu tabel dengan nama T_User dengan struktur:

UserAccount varchar(20)
Password varchar(20)

Oke langsung saja, berikut coding untuk exportnya menggunakan VB.NET

Mengatasi error “you have been denied access to this machine” pada IIS server

Ketika saya mengaccess IIS server 5.1 menggunakan MMC snap-in, Saya selalu mendapati pesan error seperti ini:
“You have been denied access to this machine”.

Padahal saya login menggunakan user Administrator, usut punya usut dengan mbah google ternyata saya salah dalam konfigurasi DCOM, berikut solusi yang saya dapatkan:

Refresh data pada Pivot Table Macro Excel 2007

Barangkali kawan-kawan sudah biasa dengan namanya pemrograman macro pada excel, kali ini saya akan share mengenai cara mengupdate data pada pivot table. langsung saja cekidot..

'Refresh satu pivot Table pada sheet yang sedang aktif
Sub SinglePivot()
    Dim pt As PivotTable
    Set pt = ActiveSheet.PivotTables("PivotTable1")
    pt.RefreshTable
End Sub

'Refresh semua Pivot Tables pada  sheet yang sedang aktif
Sub AllWorksheetPivots()
    Dim pt As PivotTable
    For Each pt In ActiveSheet.PivotTables
        pt.RefreshTable
    Next pt
End Sub

'Refresh Pivot Tables tertentu pada sheet yang sedang aktif
Sub ChosenPivots()
    Dim pt As PivotTable
    For Each pt In ActiveSheet.PivotTables
        Select Case pt.Name
            Case "PivotTable1", "PivotTable4", "PivotTable8"
                .RefreshTable
            Case Else
        End Select
    Next pt
End Sub

'Refresh semua Pivot Tables pada seluruh Workbook
Sub AllWorkbookPivots()
    Dim pt As PivotTable
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        For Each pt In ws.PivotTables
            pt.RefreshTable
        Next pt
    Next ws
End Sub

Selamat mencoba, semoga bermanfaat..

Cara Filter Data Dan Mengcopynya Macro Excel 2007

Dear kawan-kawan semuanya…, lama sudah tidak posting di blog ini. kali ini saya akan sharing mengenai pemprograman macro excel. langsung saja, sesuai dengan judul yaitu cara memfilter data kemudia mengcopy hasil filter tersebut ke range lain atau sheet lain..

Berikut codenya:

Sub FilterAndCopy()
Dim z As Long
Sheets("Sheet1").Activate
'untuk unfilter data jika sheet dalam keadaan di filter
If Sheets("Sheet1").FilterMode Then
    Sheets("Sheet1").ShowAllData
End If

'Clear isi sheet 2
Sheets("Sheet2").Cells.Clear

'Filter kolom C dengan criteria "56"
Sheets("Sheet1").Range("C1").AutoFilter Field:=3, Criteria1:="56"

'Copy filtered value ke sheet 2
Sheets("Sheet1").AutoFilter.Range.Copy Sheets("Sheet2").Range("A1")

If Sheets("Sheet1").FilterMode Then
    Sheets("Sheet1").ShowAllData
End If

Sheets("Sheet2").Activate

End Sub

Demikian semoga bermanfaat…