TRIK INOVATIF DAN GRATISAN

Mengatasi Errror Key column information is insufficient VB6

noreply@blogger.com (Bagus Swara) — Fri, 15 Apr 2016 02:12:00 +0000

Assalamualaikum wr.wb Selamat pagi sobat blogger semua hari ini saya akan berbagi trik yang berhungan dengan pemrograman VB yaitu “Key column information is insufficient or incorrect. Too many rows were affected by update.”. Error ini membuat saya pusing juga karena proses update di dalam looping hanya sebagian saja yang berhasil sedang sisanya gagal di exekusi. Setelah beberapa hari saya berhenti untuk koding hampir satu minggu saya berhenti karana stag.

setelah bertnaya ke google akhirnya apa yang saya cari akhirnya ketemu dan kunci hanya menambahkan script:

rsJuald.CursorLocation =adUseServer

Ternyata ga seberapa tapi pusingnya ga ketulungan. Semoga trik di atas bisa membantu ente semua.

Mengatasi Icon destop menjadi sama semua

noreply@blogger.com (Bagus Swara) — Sat, 17 Oct 2015 11:13:00 +0000

Assalamualaikum wr.wb
Mungkin ente pernah ada yang mengalami hal seperti gambar di atas
Kemarin laptap kemekanan saya mengalami hal seperti di atas dimana semua icon-icon yang ada di destop berugah semua menjadi icon corel draw atau media player tergantung dari open with yang dilakukan.
Setelah saya diagnosa kaya dokter aja hehehe..........ternyadi bukan hanya default icon aja yang rusak tetapi laptopnya juga terkena virus terbukti waktu saya memasukan flasdik ke laptop ternyata data saya sebagian di hide oleh virus.
Untik mengatasi hal tersebut yang pertama saya lakukan:

Pertama
Downloads aja anti virus lokal kaya smadav, selanjutnya lakukan install dan scaning secara menyeluruh (deep scaning centang semua pilihan) boleh dilakukan secara quick sccanning

Kedua
Jika komputer sudah dirasa bersih maka selajutnya adalah downloads file dibawah ini dan jalankan semua file tersebut untuk mengembalikan icon-icon agar sesuai kembali seperti semula selanjutnya lakukan restart pada komputer ayau laptop.
Jika sudah berhasil jangan lupa untuk install anti virus luar negeri.

Download Fix Icon

VB6: Can't find file 'DAO350.DLL

noreply@blogger.com (Bagus Swara) — Sat, 17 Oct 2015 10:21:00 +0000

Assalamualaikum wr.wb
Migrating from XP to Windows 8... it is very very... hmmmm... hehe..
I found an error while opening Visual Basic 6.
-----------------------------------------
Microsoft Visual Basic
-----------------------------------------
Can not find file DAO350.DLL
-----------------------------------------
OK Help
----------------------------------------
First we have to make sure that is DAO350.DLL exist.
Check on:
C:\Program Files\Common Files\microsoft shared\DAO
or
C:\Program Files (x86)\Common Files\Microsoft Shared\DAO

(just in case I copied on both folders)
Then using command prompt, run this code:
regsvr32 "C:\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL"
And this is solved my problem.
Here is the link if you need to download DAO folder.

Download DAO350.DLL

Cara Membuat Internet Shortcut Website

noreply@blogger.com (Bagus Swara) — Mon, 31 Aug 2015 08:08:00 +0000

Assalamualaikum wr.wb
Membuat Shortcut ini tentu sangat bermanfaat buat pengguna internet aktif yang sering upload file ke internet. Kita bisa langsung menyisipkan link ke dalam file archive .Rar atau Zip tanpa harus repot-repot menulisnya di notepad ataupun dokumen lainnya.

Cara kerjanya yaitu ketika seseorang klik dua kali atau klik kanan open Shortcut link tadi, maka secara otomatis akan membuka website yang sudah jadi tujuan Shortcut tersebut. Layaknya Shortcut pada PC/Laptop ketika kita klik 2 kali atau open maka akan terbuka dan mengarah ke aplikasi yang sesungguhnya. Sebenarnya banyak cara membuat Shortcut website ini, namun saya akan memberikan beberapa cara yang bisa sobat PutraKomputer.Com manfaatkan.

Cara Membuat Internet Shortcut Website atau Blog
A. Buat Shortcut dengan NotePad
1. Buka aplikasi notepad baru yang kosong.
2. Lalu didalamnya ketikkan :

[InternetShortcut]
URL=http://bagus-swara.blogspot.com/

# Ganti http://bagus-swara.blogspot.com/ dengan Link / website sobat.

3. Lalu simpan atau Save As (Pilih All Filea) dengan extensi .url
contohnya Wesite.url

4. Nanti akan ada Icon Shortcut tempat sobat simpan file tadi. Gambar Short cut menyesuaikan dengan default browser di laptop sobat. Sobat bisa juga ganti Iconnya shortcut lainya.

WIfi konek tetapi tidak bisa internet

noreply@blogger.com (Bagus Swara) — Fri, 21 Aug 2015 07:27:00 +0000

Assalamualaikum wr.wb
Solusi Wifi Konek Ke Hotspot Tapi tak bisa akses internet.Terkadang ketika sedang ingin terhubung ke hotspot, terdapat masalah seperti tidak bisa browsing padahal status menunjukkan sudah terhubung. Seperti yang saya alami beberapa waktu lalu, OS yang saya gunakan saat ini adalah windows 7 atau window XP prinsipnya sama aja. Karena hal itulah disini saya ingin berbagi pengalaman cara mengatasi Wifi Status Koneck tapi tidak bisa untuk browsing internet.

Secara umum ada 2 penyebab utamanya.
1. Terisinya "IP address" di "internet protocol" hal ini mungkin disebabkan karena sebelumnya kita memanfaatkan kabel LAN.
2. Terisinya proxy pada browser mungkin disebabkan karena sebelumnya kita koneksi dengan wifi yang menggunakan proxy.

Cara mengatasinya:
Penyebab I
1. klik "open network and sharing center" (klik ikon wifi di pojok kanan bawah )
2. Klik "Wireless Network Connection"
3. pilih "Properties"
4. pilih "internet protocol version 6" pilih "option an IPv6 address automatically" (untuk menghilangkan IP address) klik "OK"
5. pilih "internet protocol version 4" pilih "option an IPv4 address automatically" (untuk menghilangkan IP address) klik "OK"
6. Sekarang coba untuk internetan

Penyebab II
*browser mozilla
1. klik "Tools"
2. pilih "Options"
3. pilih "Advaced"
4. pilih "Network"
5. pilih "Setting"
6. pilih "No proxy" (untuk menghilangkan proxy)
7. OK
8. Sekarang coba untuk internetan

solusi mengatasi office.en-us \msvcr80.dll not found

noreply@blogger.com (Bagus Swara) — Tue, 18 Aug 2015 04:07:00 +0000

Assalamualaikum wr.wb
Apakah anda penrnah menginstall ms office dan mengalami hal seperti di atas ini.
Memang ketika menginstal microsoft office “bajakan” terdapat masalah seperti file office.en- us\msvcr80.dll not found dan windows installer cannot update one or more protected windows files.

Sebenarnya ada beberapa cara untuk menanganinya, yaitu membeli lisensi asli dari microsoft agar tidak terjadi error seperti ini , menginstal open office karena open source jadi tidak perlu repot-repot, dan terakhir kita perbaiki file yang kurang.

Ok langsung ke masalah , office.en-us \msvcr80.dll not found. Gampang saja kok, kita hanya perlu mendownload msvcr80.dll download di bwh ini..

Apabila sudah ada di office.en-us hapus dulu yang lama extrak hasil download dan copy msvcr80.dll kedalam folder office.en-us.
Selesai Dan coba instal lagi

Apabila tidak bisa juga coba copy juga, taro msvcr80.dll di C: \WINDOWS\system32 (windows 7/xp) Dan coba instal

Download office.en-us\msvcr80

Mengatasi Apache XAMPP tidak bisa start/running

noreply@blogger.com (Bagus Swara) — Wed, 05 Aug 2015 06:55:00 +0000

Assalamualaikum wr.wb
Langsung saja sobat soalnya ga ada waktu untuk basa basi ikuti langkah-langkah di bawah ini dengan teliti :

1. Buka file httpd.conf di C:\xampp\apache\conf\, kemudian buka dengan notepad

2. Cari Listen 80 kemudian ubah menjadi Listen 8080

3. Kemudian cari lagi ServerName localhost:80 lalu ubah menjadi ServerName localhost:8080

4. Save file tersebut

5. Buka file httpd-ssl.conf di C:\xampp\apache\conf\extra\

6. Cari Listen 443 kemudian ubah jadi Listen 4499

7. Cari lagi virtualhost_default_:443

kemudian ubah menjadi virtualhost_default_:4499

8. Setelah itu cari ServerName localhost:443

lalu ubah jadi ServerName localhost:4499

9. Save, kemudian jalankan xampp seperti biasa, biasanya akan muncul peringatan Apache started [Port 80]

10. Untuk mengakses xampp via web browsernya,

masuk dengan alamat ini http://localhost:8080/xampp

Malu Masuk Surga

noreply@blogger.com (Bagus Swara) — Thu, 18 Jun 2015 04:49:00 +0000

Assalamualaikum wr.wb
Dunia hanya panggung sandiwara, kata banyak orang. Ia permainan belaka, betapapun indahnya kenikmatan alam yang pasti bakal rusak ini. Dunia sekadar jembatan bagi kebahagiaan abadi di akhirat nanti. Bergiatlah ibadah dan berbuat baik, kelak kau mendapat surga. Dan teruslah durhaka dan berlaku jahat jika kau menghendaki neraka.

Berangkat dari pandangan biner ini, sebagian orang lantas membuat kesimpulan: tujuan akhir hidup di dunia ini adalah meraih kebahagiaan surgawi. Sedahsyat apapun sensasi kelezatan makanan di dunia, ia akan berhenti di lorong tenggorokan saja. Secantik dan setampan apapun wajah dan tubuh manusia, ia pasti fana dimakan usia. Sementara di surga, kondisi jauh lebih nikmat dan indah akan diperoleh selama-lamanya. Sebuah kebahagiaan yang belum pernah dilihat oleh mata, juga didengar oleh telinga (mâ lâ ‘ainun ra’at wa lâ udzunun sami‘at).

Tapi benarkah tujuan hakiki hidup adalah mendapatkan surga - dan karenanya otomatis menghindari neraka?
Suatu kali Fudlail ibn 'Iyadl berkata, "Seandainya saya diminta memilih antara dua hal, yakni dibangkitkan lalu dimasukkan surga atau tidak dibangkitkan sama sekali, saya memilih yang kedua." Fudlail malu. Tokoh sufi ternama ini merasa tak pantas menerima ganjaran pahala seandainya ia memang mendapatkannya.

Fudlail ibn ‘Iyâdl bukan sedang ingkar terhadap surga dan kebahagiaan di dalamnya. Gejolak jiwanya lah yang mendorongnya bersikap semacam itu. ‘Abdul-Malik ‘Alî al-Kalib mencatat pernyataan ulama yang juga kerap disapa Abu Ali tersebut dalam kitab Raudlatuz Zâhidîn ketika membahasan Cinta dan Malu kepada Allah.

Kecintaan Fudlail yang memuncak kepada Tuhannya menghilangkan angan-angan akan pamrih apapun. Kebaikan yang ia lakukan tak ada bandingnya dengan anugerah-Nya yang melimpah. Bahkan kesanggupannya berbuat baik sesungguhnya adalah secuil dari anugerah itu sendiri.

Suatu hari seorang laki-laki datang dan bertanya kepada Fudlail ibn ‘Iyâdl, “Wahai Abu Ali, kapan seseorang mencapai tingkat tertinggi cinta kepada Allah ta'ala?"

"Ketika bagimu sama saja: Allah memberi ataupun tidak. Saat itulah kau di puncak rasa cinta," jawab Fudlail.

Sebagaimana manusia, surga dan neraka adalah makluk. Fudlail berpandangan, Allah adalah hakikat tujuan hidup. Hal ini tercermin dalam tafsirnya terhadap kalimat “Innâ lillâhi wa innâ ilaihi râji‘ûn". Kita semua hamba Allah, dan kepada-Nya pula kita kembali. Kehambaan yang total membuahkan kesadaran bahwa diri ini tergadai hanya untuk memenuhi permintaan Sang Tuan. Tulus murni tanpa berharap imbalan sedikit pun. (Mahbib)

Sumber : http://www.nu.or.id

How to fix Print Spooler error 1068

noreply@blogger.com (Bagus Swara) — Wed, 18 Feb 2015 07:24:00 +0000

Assalamualaikum wr.wb
This short tutorial is concerning wide spread issue on windows XP machines when you see print spooler error 1068 “The dependency service or group failed to start” when starting print spooler service.
Fix for this is really simple:
Here are several ways of doing nearly the same tweak that can help to fix print spooler error 1068. Choose what you think is easier:

1) Editing registry

Click Start, Run and type “regedit” or “regedit exe” without quotes.
Press Enter. You should get to Registry Editor.
Navigate to the following branch
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Spooler On the right side look for DependOnService value and double click on it.
Remove anything you see there, and then type “RPCSS” without quotes.
Close regedit.exe and reboot.

2) Typing command in Run console

Click Start, Run and type the following in the line:
CMD /K SC CONFIG SPOOLER DEPEND= RPCSS
Press Enter. Black window with information will show up.

3) Nearly the same as previous but longer.

Click Start, Run and type the following in the line:cmd
In opened black window type this lines and press Enter after each.

Reboot.

4) From Services.msc

Click Start, Run and type the following in the line: “services.msc” (without quotes) Press Enter.
Double click the “Print Spooler” service.
Choose “Dependencies” tab and remember the services name.
In the service list window, find the dependency services and try to start them.
Please try to start the “Print Spooler” service again.

If all this methods won’t work in your case – this means your case is quite complicated and you need to use Printer Spooler Fix Wizard:

Download Fix Print Spooler

Cara Membuat Password Jaringan LAN

noreply@blogger.com (Bagus Swara) — Sat, 07 Feb 2015 00:26:00 +0000

Assalamualaikum wr.wb
Pada jaringan di komputer memang perlu untuk dilakukan pengamanan dengan cara menambahkan passwors hal ini berfungsi untuk menghindari penyalah gunaan oleh user yang tidak bertangung jawab sehinga hanya orang tertntu saja yang bisa mengakses komputer yang ada dalam jaringan komputer

Untuk melakukan hal tersebut silahkan ikuti tutorial di bawah ini:

1. Pertama-tama buka [Start] lalu pilih [Run] lalu ketikkan lusrmgr.msc lalu tekan Enter

2. Kemudian Anda akan melihat window Local Users and Groups. Di window inilah kita bisa membuat password Local Area Network ( LAN).

3. Lalu pilih folder Users di sebelah kiri dan lihat ke jendela di sebelah kanan akan menampilkan daftar user yang ada.

4. Pilih Guest yang ingin kita ganti passwordnya. Klik kanan pada Guest tersebut lalu pilih Set Password…

5. Lalu akan muncul jendela peringatan megenai resiko mengganti/mereset passwordAdministrtator. Klik Proceed untuk melanjutkan pekerjaan kita.

6. Isi password baru yang ingin kita pasang pada New Password dan konfirmasikan sekalilagi password baru tersebut pada Confirm Password.

Kegunaannya adalah:
1.Menghambat “Guest” untuk bisa masuk ke komputer kita melalui LAN, sehinggak ketika dia ingin masuk ke komputer kita akan diminta Password. Hal ini juga berpengaruh kepada akses login ke komputer / domain.
2. Dengan adanya ini, maka sharing folder yang ada di komputer kita bisa jauh lebih aman. Hanya ada orang-orang tertentu yang kita beri tahu passwordnya yang bisa akses.
3. Komputer kita yang ada di LAN bisa jauh lebih terjaga

Stardock Start8 1.41 tanpa crack

noreply@blogger.com (Bagus Swara) — Sat, 24 Jan 2015 01:07:00 +0000

Assalamualaikum wr.wb Stardock Start8 v1.41 Final - Merupakan sebuah tools yang dapat sobat gunakan untuk mengadakan fitur start menu pada Windows 8. Seperti yang sudah sobat tahu pada Windows 8, fitur start menu telah dihilangkan. Sehingga bagi sebagian sobat yang sudah terbiasa menggunakan start menu mungkin akan kebingungan. Oleh karena itu tidak ada salahnya sobat menggunakan software yang satu ini. Di software inii juga sobat dapat dengan bebas memilih jenis tampilan start menu yang sobat inginkan.

Download Stardock Start8 1.41 tanpa crack

Tidak Bisa Mengakses Folder Shared Windows Server 2003 di Windows 7

noreply@blogger.com (Bagus Swara) — Fri, 23 Jan 2015 19:15:00 +0000

Assalamualaikum wr.wb
Walaupun username dan password yang dimasukkan sudah benar selalu saja keluar peringatan bahwa Logon Failure: unknown user name or bad password seperti gambar diatas.

Sebelumnya saya berpikir bahwa hal tersebut adalah konfigurasi di windows server 2003 nya yang tidak mengijinkan untuk akses ke folder sharing, setelah sekian lama saya mengotak-atik windows server 2003 tapi tidak menemukan solusinya juga, kemudian saya iseng-iseng browsing google dan merubah konfigurasi pada local security pada windows 7 dan ternyata benar, kesalahan ada pada configurasi windows 7 nya.

Berikut langkah – langkah mengatasinya, semoga bisa membantu teman-teman semua yang mempunyai masalah seperti ini :

Solusi Pertama

1. Buka Local Security Policy Dari Administrative Tools (secpol.msc)

2. Dari jendela Local Security Policy expand Local Policies dan pilih security Options yang terletak pada panel kiri.

3. Pada panel sebelah sebelah kanan cari Network security: LAN Manager authentication level kemudian double click option tersebut, kemudian pada menu dropdown pilih yang Send LM & NTLM – use NTLMv2 session security if negotiated Klik Aplay dan OK.

4. Pada Security Option ambil pilihan Network security : Minimum session for NTLM SPP based (including secure RPC) clients : Uncheck pilihan Require 128-bit encryption lalu close window.

5. Pada Security Option ambil pilihan Network security : Minimum session for NTLM SPP based (including secure RPC) Server : Uncheck pilihan Require 128-bit encryption lalu close window.

Solusi Kedua

Firewall tidak mengizinkan file tersebut diakses oleh komputer lain, solusinya adalah mematikan / Meloloskan port tertentu agar file tersbut bisa diakses kembali.

1. Klik Start
2. Klik Control Panel
3. Klik Window Firewall
4. Klik Tab Exception
5. Pastikan file dan printer sharing tercentang

Solusi Ketiga

Beberapa virus menyerang fungsi jaringan, sehingga beberapa service tidak jalan sebagaimana mestinya, dimana service yang bersangkutan adalah sarana penunjang dari file sharing tersebut, untuk itu anda harus menjalankan servicenya.

1. Tekan windows + r (run)
2. Ketikan services.msc tekan Enter
3. Cari service name : server
4. Pastikan service server berjalan, jika tidak klik start
5. Double klik service name server
6. Klik Tab recovery
7. Pada textbox First Failure, pilih :restart service (ulangi hingga subsquent failure)
8. Klik Apply Klik OK
9. Cari service name : workstation
10. Pastikan service workstation juga berjalan, jika tidak klik start
11. Ulangi seperti recovery pada service server

Mengatasi Windows® Update Error Code 0x8024402C di Windows® 8.1

noreply@blogger.com (Bagus Swara) — Mon, 19 Jan 2015 22:32:00 +0000

Assalamualaikum wr.wb
Sempat beberapa hari yang lalu windows ane tidak dapat update dengan pesan "Windows® Update Error Code 0x8024402C" update windows ini sangat diperlukan karena utuk menutup bug-bug yang masih ada pada windows sehinga akan mengurangi kemungkinan dserangan dari hacker mauun virus, jadi bagi ente yang mempunyai lepi jangan malas-malas untuk melakukan updat.
Untuk mengatasinya ikuti ikuti beberapa langkah dibawah ini:

Solusi 1: Reset Proxy
Buka Command Prompt dengan Run as Administrator
1. ketikkan netsh winhttp reset proxy -> Enter
2. ketiklah net stop wuauserv -> Enter
3. ketiklah net star wuauserv -> Enter
4. restart PC dan coba lakukan Windows Update

Solusi 2: Restart Service
1. Buka Run
2. ketikkan services.msc -> Enter
3. cari Windows Update
4. klik kanan dan pilih properties
5. pada startup type pastikan terisi manual dan klik Start
6. lakukan hal yang sama untuk Windows Store Service (WSService)
7. Setelah itu lakukan Windows Update

Solusi 3: Ubah DNS
Terkadang masalah DNS juga bisa menjadi penyebab dari tidak terkoneksinya PC dengan Windows Server Update Services. Coba gunakan public DNS misalnya saja DNS milik Google yaitu 8.8.8.8 dan 8.8.4.4 atau gunakan DNS 4.2.2.2 dan 4.2.2.3

Solusi 4: Matikan software security saat update
Firewall, anti-spyware, antivirus, atau software security yang dengan atau tanpa sengaja memblokir koneksi dengan Windows Server Update Services.
Solusinya, coba matikan dulu berbagai software security tersebut selama proses Windows Update berlangsung. ika update dan install sudah berhasil, maka nyalakan lagi software security tersebut

Solusi 5: Cek Lisensi Windows
Cek lagi lisensi Windows, pastikan lisensi Windows kamu original. Karena Windows versi tidak ori bisa jadi sudah dimodifikasi agar tidak terkoneksi dengan server Windows update, atau telah diblokir Microsoft sehingga tidak bisa terkoneksi dengan server Windows Update

Solisu 6: Downloads toll Automatically diagnose and fix common problems with Windows Update di di sini

Windows xp unattended installation

noreply@blogger.com (Bagus Swara) — Fri, 16 Jan 2015 23:12:00 +0000

Assalamualaikum wr.wb,
THIS IS THE TUTORIAL USED TO REINSTALL YOUR WINDOWS WITHOUT USING CD.JUST U NEED TO DO IS DO BACK UP OF ALL YOUR WINDOWS CD. IN THE DRIVE WHICH YOU ARE GOING TO REINSTALL.

How To Reinstall Windows Without Losing Anything Here Is Another Possible Solution: easy way and tested:

1- Start Windows XP
2- Go to the location of your source files
3- Run WINNT32 /unattend
For example, D:\I386\winnt32 /unattend ( copy & paste this command into the RUN box, then press ENTER ) Your computer will do the rest.
Or,
Start > All Programs > Accessories > Command Prompt.
Copy & paste > D:\I386\winnt32 /unattend
Press Enter.
If you have i386 on your drive, you can replace D: ( if D: is your cd drive ) with the location of it.
I've often need to do this to repair something that had gotten corrupted and didn't want to do a clean install.

D: is the driver letter where your windows XP Cd is
if D:\I386\winnt32 /unattend doesn't work then try : d:\winnt32 /unattend.

Mengatasi Duplicate Data menggunakan VBA

noreply@blogger.com (Bagus Swara) — Wed, 26 Nov 2014 23:36:00 +0000

Assalamualaikum wr.wb
Sering kali jika melakukan input data secara sadar ataupun tidak sadar terkadang kita melakukan beberapa kesalahan seperti input data ganda sebagai contoh misalnya kita akan input data NIK (Nokor Induk Karyawan) dimana data NIK ini tidak boleh sama antara satu karyawan dengan karyawan yang lainya. Untuk mengatasi hal tersebut saya akan share code untuk validasi agar tidak terjadi duplicate data

Pertama buatlah fungsi seperti dibawah ini

Public Function DupValue(ByVal sTarget As String, sColom As String, _
sSheet As String) As Boolean
On Error GoTo ErrDupValue
Dim LR As Long
Dim myMatch As Long
Dim iTemp As Integer

DupValue = True
LR = ThisWorkbook.Sheets(sSheet).Range(sColom & Rows.Count).End(xlUp).Row
iTemp = Application.WorksheetFunction.CountIf(ThisWorkbook.Sheets(sSheet)._
Range(sColom & "2:" & sColom & LR), sTarget)

If iTemp > 0 Then
          myMatch = Application.WorksheetFunction.Match(sTarget, _
          ThisWorkbook.Sheets(sSheet).Range(sColom & "2:" & sColom & LR), 0)
          If myMatch > 0 Then
                 MsgBox "Data sudah pernah di Input Adress: " & sColom & _
                 myMatch + 1, vbOKOnly + vbInformation, "Data Ganda"
                 DupValue = False
         End If
End If
Exit Function

ErrDupValue:
          MsgBox Err.Number & " " & Err.Description, vbCritical, "Peringatan"
          DupValue = False
End Function

Cara Penggunaanya:

If DupValue(Me.txtNoBukti.Value, "A", "Sheet1") = True Then
            ..........................
           ...........................
End If

How to Use Excel VBA Autofilter

noreply@blogger.com (Bagus Swara) — Sat, 22 Nov 2014 00:25:00 +0000

Assalamualaikum wr.wb
Excel VBA (Visual Basic for Application) is a powerful programming tool integrated with MS office suite. VBA has many constructs and methods that can be applied to manipulate data in an Excel worksheet (you can look up our introductory VBA tutorial to get a feel of all that VBA can do for you). AutoFilter in VBA is an important method that gives you the capability to filter worksheets and cells to selectively choose data.

AutoFilter is applicable to a column or a set of columns. It filters data depending on the given criteria. The syntax of Autofilter looks like this

expression .AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown)

Where :
- Field- It is an integer offset of the field which contains the filter. The data type is variant, which means it can hold any data types – integers, strings, date and so on.
- Criteria1- It’s a condition based on which columns are selected.
- Operator- It specifies the type of filter. Some of the operators commonly used in Excel VBA programming are listed below.

Name	Value	Description
xlAnd	1	Logical AND of Criteria1 and Criteria2.
xlBottom10Items	4	Lowest-valued items displayed (number of items specified in Criteria1).
xlBottom10Percent	6	Lowest-valued items displayed (percentage specified in Criteria1).
xlFilterCellColor	8	Color of the cell
xlFilterDynamic	11	Dynamic filter
xlFilterFontColor	9	Color of the font
xlFilterIcon	10	Filter icon
xlFilterValues	7	Filter values
xlOr	2	Logical OR of Criteria1 or Criteria2.
xlTop10Items	3	Highest-valued items displayed (number of items specified in Criteria1).
xlTop10Percent	5	Highest-valued items displayed (percentage specified in Criteria1).

- Criteria 2- This is the secondary condition based on which columns are selected. It’s combined with criteria1 and operator to create a compound criteria.
- VisibleDropDown- It’s true by default. It’s of data type variant. If it’s true then, the Autofilter dropDropDown arrow for the filtered field is displayed. If false, the dropDropDown arrow is hidden.

Example 1: To Close All Existing AutoFilters and Create New AutoFilters

Sub AutoFilter1()
With ActiveSheet
         .AutoFilterMode = False
         .Range("A1:E1").AutoFilter
End With
End Sub

In this program .AutoFilterMode = false turns off any existing AutoFilters. Whereas .Range(“A1:E1″).AutoFilter creates an AutoFilter which is applicable to the range A1:E1 of the active worksheet.
From here on, we will reference a worksheet which has headings in the range A1: D1 and data in the range A1:D50. The headings are as follows:

Example 2: Using AutoFilter to match single criteria

Sub FilterTo1Criteria()
With Sheet1
       .AutoFilterMode = False
       .Range("A1:D1").AutoFilter
       .Range("A1:D1").AutoFilter Field:=2, Criteria1:=40
End With
End Sub

This is a simple program which extracts rows where the age of the employees is 40. The “Field” value is 2 which means it refers to the second column. Criteria is that the values in column 2 should be equal to 40. Let’s take a look at the various types of criteria that you can include in your programs.

Criteria1:=">=40"
For instances where the Field:=2 is 40 or more
Criteria1:="="
If you want to display the rows where Field:=2 is blank
Criteria1:="<>"
To display all non-blanks
Field := 1 and the Criteria1:="=B*"
If you want to filter out the names starting with a letter “B”, in the Field:=1
Criteria1:="<>*e*"
To display all names in the first column which do not contain a letter "e"
If you want to hide the filter arrow then set VisibleDropDown:=False. This is the next argument after Criteria1

Example 3: Using VBA AutoFilter to Filter out Two Matching Criteria

Sub MultipleCriteria()
With Sheet1
        .AutoFilterMode = False
        .Range("A1:D1").AutoFilter
        .Range("A1:D1").AutoFilter Field:=2, Criteria1:=">=30", _
        Operator:=xlAnd, Criteria2:="<=40"
End With
End Sub

In this program, we have specified two criteria. The operator used is the "logical And" for the 2 criteria. Thus, only those records are selected where Field:=2 is ">= 30" and "<=40".

Example 4: Using Autofilter on two different fields

Sub Filter2Fields()
With Sheet1
        .AutoFilterMode = False
       With .Range("A1:D1")
            .AutoFilter
           .AutoFilter Field:=1, Criteria1:="John"
           .AutoFilter Field:=4, Criteria1:="Finance"
      End With
End With
End Sub

In this program, we have selected records where Field:=1 is “john” whose Field:= 4 is “Finance.” It is possible to add more fields; the condition being we should not exceed the total column count of headings.

Using Dates in AutoFilter

MS Excel uses the US date format. We recommend you to change your Date settings to this format. Else you have to use the DateSerial(). The syntax looks like this

DateSerial(year, month, day)

Let’s take a look at an example that uses the data type Date to filter columns.

Example 5: Program to Filter by Date

Sub FilterDate1()
        Dim Date1 As Date
        Dim str_Date As String
        Dim l_Date As Long
        Date1 = DateSerial(2010, 12, 1)
        l_Date = Date1
        Range("A1").AutoFilter
        Range("A1").AutoFilter Field:=1, Criteria1:=">" & l_Date
End Sub

In this program, we declare Date1 as variable of type date, str_Date as variable of type string and l_Date of variable of type long. DateSerial() function converts the date passed to it into US date format. We use Autofilter to display records more recent than the given date (1/12/2010).

Using TimeSerial Function along with VBA Autofilter

TimeSerial() function returns the time in hours, minutes and seconds. The syntax looks like this

TimeSerial(hour, minute, second)

Example 6: Using Autofilter to Filter by Date and Time

Let’s take a close look at the parameters to understand them better. All the three parameters require integer data type.

Hour: any number between 0 and 23 inclusive or a numeric expression.
Minute: any numeric expression.
Second: any numeric expression.

TimeSerial(17, 28, 20) will return the serial representation of 5: 28:20 PM. TimeSerial() can be used along with the DateSerial() to return the exact time and date in a VBA program.

Example 6: Using Autofilter to Filter by Date and Time

Sub FilterDateTime()
Dim d_Date As Date
Dim db_Date As Double
If IsDate(Range("B1")) Then
        db_Date = Range("B1")
        db_Date = DateSerial(Year(db_Date), Month(db_Date), _
        Day(db_Date)) + TimeSerial(Hour(db_Date), _
        Minute(db_Date), Second(db_Date))
        Range("A1").AutoFilter
        Range("A1").AutoFilter Field:=1, Criteria1:=">" & db_Date
End If
End Sub

In this program IsDate() is used to see whether the cell contains an expression that can be converted into a date. Then the content of the cell is assigned to the db_Date variable. Next DateSerial() and TimeSerail () are combined and the result assigned to db_Date. We filter the records using Field 1 as criteria to return dates greater than db_Date.

Cara Backup / Membuat System Image di Windows 8.1

noreply@blogger.com (Bagus Swara) — Sat, 30 Aug 2014 22:58:00 +0000

Assalamualaikum wr.wb
System Image pada Windows digunakan untuk merestore kondisi Windows apabila Windows memiliki masalah. Pada Windows 7, fitur ini sebenarnya sudah ada yakni bernama "Windows 7 File Recovery”, namun di Windows 8, fitur ini hanya berubah nama dan letaknya pun agak "lebih dalam" di control panel. Membuat System Image ini cukup penting, karena kita tidak pernah tahu kapan Windows kita memiliki masalah seperti tidak bisa booting, tidak bisa masuk Windows, error MBR, dan lain sebagainya.

Ikuti langkah berikut ini untuk melakukan membuat system image:

1. Buka Charm Bar yang terletak di pojok atas kanan layar desktop dan ketik pada bagian Search "File History" ( tanpa tanda petik ) atau bisa diakses di Control Panel\System and Security\File History

2. Tunggu beberapa saat karena fitur ini sedang mencari perangkat yang digunakan untuk menyimpan backup.

3. Ketika sudah ketemu perangkat yang ingin dijadikan menyimpan backup, klik tulisan System Image Backup di pojok kiri layar desktop.

4. Jika harddisk eksternal kamu memiliki ruang yang cukup untuk menyimpan file backup, maka kamu bisa langsung mengklik Next dan kemudian klik Start Backup kemudian menunggu proses backup hingga selesai ( biasanya memakan waktu 10 - 15 menit tergantung dari besarnya file backup ).

Note :

- Lama waktu backup tergantung dari besarnya file yang dibackup dan spek komputer ente.
- Sangat direkomendasikan menggunakan Harddisk Eksternal dan bukan USB FlashDisk.
- Untuk merestore / mengembalikan file backup, ente bisa menggunakan DVD Windows yang kalian gunakan untuk installasi dan memilih menu Advanced Startup Windows

Disable JavaScript in Mozilla Firefox 23 and Later Versions

noreply@blogger.com (Bagus Swara) — Thu, 19 Jun 2014 20:43:00 +0000

Assalamualaikum wr.wb

While working with a web application project, I wanted to test how my website would render if JavaScript were disabled in Mozilla Firefox. I soon found that the option to turn it off is no longer available on the primary interface. Read on to find out how I solved this issue.

Initially, I tried searching under the options/content tab on the main menu to disable the JavaScript checkbox, which was possible with earlier versions of the browser. When I could not locate the option, I did some research and read that Mozilla Firefox had officially removed it.

Despite the change, this option has not completely been removed from Firefox browsers. We can still disable JavaScript through about:config configuration settings.

Disable JavaScript Using About:config
1. In the address bar, type about:config, and press Enter.
2. Click I’ll be careful, I promise.
3. In the search bar, search for javascript.enabled.
4. Right-click the result named javascript.enabled, and click Toggle. JavaScript is now disabled as the value is set to false.

To Re-enable JavaScript, repeat these steps, and toggle the value to true.

Kesombongan dan Dua Sumber Kemaksiatan

noreply@blogger.com (Bagus Swara) — Sat, 24 May 2014 00:37:00 +0000

Assalamualaikum wr.wb
"Tidak akan masuk surga orang yang dalam hatinya ada sifat sombong seberat dzarroh (atom yang paling kecil)." Lantas ada seseorang yang berkata: Sesungguhnya ada laki-laki yang suka berpakaian indah dan bersandal bagus. Nabi saw bersabda: “sesungguhnya Allah itu Indah dan suka keindahan. Sombong adalah menentang kebenaran dan memandang rendah orang lain (al-Hadits).

الحمد لله أحمده وسبحانه وتعالى على نعمه الغزار, أشكره على قسمه المدرار, . أشهد ان لا اله الا الله وحده لا شريك له. واشهد ان سيدنا محمدا عبده و رسوله النبي المختار. اللهم صل على سيدنا محمد وعلى أله الأطهار وأصحابه الأخيار وسلم تسليما كثيرا. أما بعد فياأيها الناس اتقوالله حق تقاته ولاتموتن الا وأنتم مسلمون. وقال الله تعالى : ولا تصعر خدك للناس ولا تمش فى الارض مرحا ان الله لايحب كل مختال فخور

Maasyiral Muslimin Rahimakumullah

Marilah kita bersama-sama meningkatkan ketaqwaan kita kepada Allah swt. sungguh hanya dengan taqwalah kita dapat mengisi kehidupan ini dengan segala sifat-sifat kebaikan dan menghindar dari sifat tercela. Diantara sifat tercela yang tidak terampuni dan merupakan waisan iblis adalah kesombongan.
Apakah sombong itu? Rasulullah saw bersabda الكبر بطر الحق وغمط الناس sombong adalah menolak kebenaran dan memandang rendah orang lain.

Meskipun jelas bahwa mausia adalah tempatnya kesalahan dan kealpaan sebagaimana ucapan ‘al-Insan mahallul khatha’ wan nisyan’ tetapi menjadi kewajiban manusia itu sendiri berusaha menghindarkan diri dari kesalahan. Terkadang manusia merasa amat berat dalam mengekang diri dari kemaksiatan karena bisikan nafsu yang tiada henti berhembus seperti angin yang terus mengelilingi kehidupan ini. Ketika itu hendaklah manusia meminta pertolongan kepada Allah swt untuk menundukkan kebiadaban nafsu yang ada dalam diri manusia sendiri. Karena hanya Allahlah yang dapat dengan mudah menyelesaikan permasalahan nafsu ini. Namun demikian, jikalau kemaksiatan sudah tidak terhindar lagi maka bersegeralah memohon pengampuanan kepada-Nya yang disertai dengan penyesalan setulus hati.

Akan tetapi jikalau kemaksiatan yang tidak terhindar itu hadir tanpa ada penyesalan karena memandang remeh suatu kemaksiatan atau rasa sombong atas tindakan kemaksiatan itu, maka sesungguhnya orang itu telah terperosok ke lubang kesalahan dua kali. Lubang pertama adalah kesalahan itu sendiri dan lubang kedua adalah kesalahan atas keberaniannya menyengaja mengerjakan sebuah kesalahan. Inilah maksiat kepada Allah yang paling besar. Inilah kedurhakaan yang pernah dilakukan oleh Iblis kepada Allah, yaitu dengan sengaja membangkang apa yang diperintahkan-Nya, padahal iblis mengerti sepenuhnya bahwa melawan perintah-Nya berarti melakukan kemakaran kepada-Nya. Inilah jenis maksiat yang tidak bisa diharapkan ampuanan dari Allah swt. na’udzubillah min dzalik.

Itulah dua macam kemaksiatan sebagaimana diterangkan oleh Sufyan as-Tsauri bahwa:

عن أبي هريرة قال : قال رسول الله - صلى الله عليه وسلم - : ( قال الله عز وجل : الكبرياء ردائي ، والعظمة إزاري ، فمن نازعني واحداً منهما قذفته في النار ) وفى رواية ولا أبالى)

Sifat sombong itu selendang-Ku, keagungan adalah busana-Ku. Barang siapa yang merebut salah satu dari-Ku, akan Ku lempar ia ke neraka. Dan Aku tidak peduli.

Oleh karenanya Allah dalam surat luqman ayat 18 dengan jelas-jelas menyatakan ketidak suakaan-Nya kepada orang yang sombong:

ولا تصعر خدك للناس ولا تمش فى الارض مرحا ان الله لايحب كل مختال فخور

Dan janganlah kamu memalingkan mukamu dari manusia (karena sombong) dan janganlah kamu berjalan di muka bumi dengan angkuh. Sesungguhnya Allah tidak menyukai orang-orang yang sombong lagi membanggakan diri.

Jelas sekali ayat di atas bahwa Allah tidak menyukai orang yang sombong. Jika demikian dapat dibayangkan bagaimana posisi orang-orang yang tidak disukai Allah di akhirat kelak, sedangkan alam ini (dunia dan akhirat) adalah milik-Nya? pastilah Allah swt memberinya tempat yang buruk.

Sumber : http://www.nu.or.id

Predator Free Edition 24.0.694

noreply@blogger.com (Bagus Swara) — Mon, 19 May 2014 22:42:00 +0000

Assalamualaikum wr.wb
Predator Free edition adalah sebuah software keamanan menggunakan metode flashdisk sebagai metode penguncian pada komputer, password akan disimpan di dalam flasdisk jika flasdisk dipasang maka secara otomatis komputer akan terkunci, dan sebaliknya jika flasdisk dipasang maka secara otomatis kompuer akan terbuka kembali. Jadi jika di ibaratkan pintu yang menggunakan security card untuk membuka dan mengunci pintunya.
Jika ente berminat silahkan di download mas bro

Downloads Predator Free Edition 24.0.694

Intenet Aman Menggunakan Hotspot Shield

noreply@blogger.com (Bagus Swara) — Wed, 14 May 2014 23:39:00 +0000

Assalamualaikum wr.wb,
Hotspot Shield adalah sebuah software yang berfungsi untuk melindungi privasi kita pada saat kita sedang surfing di internet. Mengamankan koneksi kita di kedua jaringan internet pc (private) & jaringan Internet Publik (baik menggunakan kabel maupun nirkabel). Hotspot Shield melindungi identitas kita dengan memastikan bahwa semua transaksi yang kita lakukan melalui web semuanya aman (berbelanja, mengisi formulir, download dll).

Hotspot Shield memungkinkan kita untuk dapat mengakses semua informasi secara online, memberikan kebebasan untuk mengakses seluruh konten web secara bebas dan aman. Hotspot Shield akan memberikan keamanan saat kita berselancar membuka situs-situs dan memastikan privasi kita aman pada saat online seperti password, nomor kartu kredit, dan semua data M.A Mania dijamin dengan Hotspot Shield. Beda jika kita hanya menggunakan Standar perangkat lunak antivirus karena antivirus hanya akan melindungi komputer kita saja, tetapi tidak melindungi aktivitas web kita secara online.

Fitur-fitur yang akan kita dapatkan jika menggunakan software ini antara lain adalah :
1. Memberikan keamaan saat di web, data, belanja online, dan online informasi pribadi dengan enkripsi HTTPS.
2. Melindungi diri kita dari pencurian identitas online.
3. Dapat Menyenbunyikan alamat IP kita pada saat online karena hal itu merupakan privasi kita.
4. Dapat mengAkses semua konten pribadi tanpa sensor; firewall bypass.
5. Dapat melindungi diri kita dari snoopers di hotspot Wi-Fi, hotel, bandara, kantor, dll

Downloads Hotspot Shield

Membuat Kwitansi Menggunakan VBA MS.Excel

noreply@blogger.com (Bagus Swara) — Tue, 13 May 2014 22:26:00 +0000

Assalamualaikum wr.wb
Mungkin hampir semua orang sudah mengenal dan menggunakan yang namanya Kwitansi, Bukti pembayaran ini biasanya dapat kita beli di warung kecil atau di toko yang menjual alat tulis kantor, kwitansi ini sangat berguna sekali terutama sebagai bukti pembayaran yang telah kita lakukan dan untuk jumlah tertentu diharuskan untuk menempelkan materai. Kwitansi ini dikeluarkan dan di tandatangani oleh pihak yang menerima uang dan kwitansi ini diterima oleh pihak yang mengeluarkan uang sabagai tanda bukti bahwa kita telah mengeluarkan uang.
Dari pada kita membeli kwitansi apalagi jika didunia kerja biasanya kita membutuhkan banyak sekali kwitansi maka alangkah baiknya jika membuat kwitansi sendiri mengunakan MS.Excel degan sedikit script program untuk memodifikasi kwitansi yang kita buat.

Kwitansi ini saya buat ini memiliki kelebihan:
1. Desing Kwitansi sudah disesuaikan denga ukuran ½ kertas Leters sehingga 1 lembar dapat mencetak 2 buah kwitansi (Usakan gunakan kertas Continous Form)
2. Terbilang sudah otomatis tanpa diketik sebab sudah menggunakan fungsi terbilang yang telah dibuat menggunaka script.
3. Penomoran juga otomatis sehingga nomor tidak akan terlewat
4. Setelah kita menekan tombol cetak maka data akan otomatis masuk ke sheet DATA sebagai database kita
Bagi ente yang berminat silahkan di download Mas bro …….semoga bermanfaaat.

Downloads Kwitansi VBA

Download Youtube Via Android

noreply@blogger.com (Bagus Swara) — Tue, 13 May 2014 09:27:00 +0000

Assalamualaikum wr.wb
Youtube merupakan salah satu situs terbesar yang dimiliki oleh google sebagai database video dan tempat untuk melihat serta mendownload video. Youtube sendiri saat ini sudah menjadi aplikasi bawaan ketika kita membeli handphone android. Sehingga dengan mudah kita bisa menonton video youtube langsung dari android kita.

Namun aplikasi tersebut memiliki kekurangan, yakni tidak bisa dilakukan langsung Download video di hp android sama seperti pada situs youtube yang ditampilkan di laptop atau PC. Oleh karena itu diperlukan sebuah tools atau aplikasi android yang bisa digunakan untuk mendownload video dari youtube.

Aplikasi tersebut adalah TubeMate. Aplikasi ini merupakan aplikasi yang free dan bisa anda dapatkan di Android Freeware atau di website resmi TubeMate. Aplikasi ini bekerja dengan baik pada jaringan 3G, 4G dan juga HSDPA. Dengan koneksi dan jaringan yang bagus tentunya anda bisa mendownload video sepuasnya baik itu video film, tutorial, maupun video tentang musik.

1. Lakukan proses instalasi aplikasi TubeMate dengan mengunduhnya di website resmi TubeMate (jangan lipa pilih Android Freeware) hingga aplikasi sudah terpasang pada hp android anda.
2. Jalankan aplikasi TubeMate kemudian buka situs Youtube.
3. Silahkan anda cari video di youtube yang akan anda download.
4. Setelah video terbuffer dan play, tekan tombol Save To yang berada tepat di bawah jendela video.
5. Klik tombol Download
6. Pilih resolusi video yang akan anda download.
7. Silahkan tunggu proses download video tersebut hingga selesai.

Selamat Mencoba

Daftar Frekuensi Stasiun Radio FM Di Jakarta

noreply@blogger.com (Bagus Swara) — Mon, 12 May 2014 22:50:00 +0000

Assalamualaikum wr.wb
Radio bisa menjadi hiburan yang bisa diandalkan karena murah dan mudah didapat. Walaupun tanpa tampilan visual, suara radio juga tidak kalah menghibur karena memiliki berbagai program acara yang menarik. Berikut list daftar radio yang bisa ditangkap di Wilayah Jakarta dan sekitarnya Jabodetabek Bogor Depok Tangerang Bekasi yang diiurutkan berdasarkan frekwensi gelombang chanel radio.

Mungkin frekuensi sebagian stasiun radio bisa ditangkap di kota lain yang berada berdekatan dengan DKI Jakarta atau kota besar lainnya di Indonesia. Mungkin juga ada sebagian stasiun radio yang memiliki sinyal yang tidak bagus di daerah anda sehingga suaranya kresek-kresek dan bahkan tidak bisa ditangkap sama sekali.

NO.	Stasiun Radio FM	Frekuensi (MHz)
1.	Hard Rock FM	87.6
2.	Mustang	88.0
3.	Global Radio	88.4
4.	PRO 3 RRI	88.8
5.	Green Radio	89.2
6.	I Radio	89.6
7.	Elshinta	90.0
8.	Cosmopolitan FM	90.4
9.	OZ Radio	90.8
10.	RRI PRO 1	91.2
11.	Indika FM	91.6
12.	Sonora	92.0
13.	PAS FM	92.4
14.	RRI PRO 4	92.8
15.	MD Radio	93.2
16.	Gaya FM	93.6
17.	Mersi FM	93.9
18.	Women Radio	94.3
19.	U FM	94.7
20.	KIS FM	95.1
21.	RAS FM	95.5
22.	Smart FM	95.9
23.	RPK FM	96.3
24.	Radio A	96.7
25.	Radio Dangdut Indonesia	97.1
26.	Motion Radio	97.5
27.	Female Radio	97.9
28.	Cakrawala	98.3
29.	Gen FM	98.7
30.	Delta FM	99.1
31.	RKM	99.5
32.	Ninetyniners Radio	99.9
33.	Heartline FM	100.6
34.	Megaswara	100.8
35.	Jak FM	101.0
36.	Trax FM	101.4
37.	Bahana	101.8
38.	Prambors	102.2
39.	Camajaya FM	102.6
40.	Pop FM	103.0
41.	D FM	103.4
42.	Brava Radio	103.8
43.	MS TRI FM	104.2
44.	Trijaya FM	104.6
45.	RRI PRO 2	105.0
46.	CBB FM	105.4
47.	Lite FM	105.8
48.	Bens Radio	106.2
49.	V Radio	106.6
50.	Radio Dakta	107.0
51.	Star Radio	107.3
52.	Fajri FM	99.3

How to fix limited or no connectivity Wi-Fi in Windows 8

noreply@blogger.com (Bagus Swara) — Thu, 08 May 2014 23:37:00 +0000

Assalamualaikum wr.wb
What happens when Windows 8 or 8.1 shows the following arcane message whenever you try to connect to your wireless network: This connection has limited or no connectivity. No internet access Or maybe you’ve seen this laconic message: The connection is limited

So brief.
So rude.
So limited.
By the way, yes my Wi-Fi network is actually called friedchicken and yes I am African American but - no - all African Americans don’t like Fried Chicken but I sure do!
Anyway…
The limited connectivity issue is a vexing problem partially because the error is so freggin’ nebulous and also because you can easily waste an entire day trying to fix it. What’s even more confounding is that sometimes you’ll see this error even though you have five bars of signal strength (just like me in the above graphic)
Usually most people try disconnecting and reconnecting and a few audacious neophytes try uninstalling the network adapter.
You actually don’t need to go to such bold lengths…
Here are four tricks that will almost certainly fix this problem:

1. Reset the TCP/IP stack
2. Disable Wi-Fi adapter napping
3. Enabling Metered Connection Downloads
4. Reset TCP/IP Autotuning

1. Use netsh.exe
There are a few things you can do to fix this problem but the easiest and most common solution is to use netsh to reset the TCP/IP stack to its default configuration.
The NetShell utility (netsh.exe) is a highly versatile tool that lets power users manage a myriad of computer processes right from the command line. Here’s how to put the tool to work for you:
Press the Windows Key + x + a to launch the Command Prompt with administrator rights.

Now in the black window type the following command:

netsh int ip reset C:\resetlog.txt

Then reboot the computer and retry the internet connection. It should connect fine now.

2. Wake up your Wi-Fi Adapter
If this only temporarily absolves the issue then the network adapter might be going into a sleep mode to conserve energy. Press Windows Key + w to bring up the Settings search box and type:

network and sharing center

Click on the name of your Wi-Fi network and choose the Properties button in the lower left corner under.

In the Wi-Fi Properties window click the Configure button.

Then pick the last tab called Power Management and you’ll see this option:
Allow the computer to turn off this device to save power.

Uncheck it, click OK and then login to your computer again to confirm the fix.

3. Enable Download over metered connections
If you’re iPhone, Blackberry or Galaxy S4 as a mobile hotspot, turning on Download over metered connections might just do the trick.
Press the Windows Key + w and type:

metered connections

When the Devices screen flips onto the screen, toggle the knob to On then logout and login to your computer to apply the change.

Keep in mind you should try this even if you know for sure that you aren’t using a metered connection. I know that sounds inane but for some reason turning this on fixes the problem.

4. Reset TCP/IP Autotunning
Using the following three netsh commands in Windows 8 and 8.1 might fix the issue. I haven’t corroborated the result so I don’t know if it works but it’s certainly worth a shot:

netsh int tcp set heuristics disabled

netsh int tcp set global autotuninglevel=disabled

netsh int tcp set global rss=enabled

Let me explain what all this does:

The first netsh command disables the scaling window in TCP after the second re-transmission of a SYN packet. The details are kind of abstruse so I’ll spare them but the bottom line is that sometimes Windows seems to arbitrarily change the way the TCP buffers are sized.

Executing the above netsh commands changes the TCP Window size to 65,535 and enforces the change which precludes Windows 8 from flubbing with it again.