Memisahkan Excel Sheet Kedalam File Terpisah

copy paste code berikut ke visual basic module excel ( ALT+F11)

Sub SplitEachWorksheet()

Dim FPath As String

FPath = Application.ActiveWorkbook.Path

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For Each ws In ThisWorkbook.Sheets

    ws.Copy

    Application.ActiveWorkbook.SaveAs Filename:=FPath & "\" & ws.Name & ".xlsx"

    Application.ActiveWorkbook.Close False

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

Menggabungkan File excel Menjadi 1

jika ingin menggabungkan beberapa file excel yang punya banyak sheet, menjadi 1 file bisa menggunakan VB dengan code berikut :

Sub mergeFiles()
    'Merges all files in a folder to a main file.
    
    'Define variables:
    Dim numberOfFilesChosen, i As Integer
    Dim tempFileDialog As FileDialog
    Dim mainWorkbook, sourceWorkbook As Workbook
    Dim tempWorkSheet As Worksheet
    
    Set mainWorkbook = Application.ActiveWorkbook
    Set tempFileDialog = Application.FileDialog(msoFileDialogFilePicker)
    
    'Allow the user to select multiple workbooks
    tempFileDialog.AllowMultiSelect = True
    
    numberOfFilesChosen = tempFileDialog.Show
    
    'Loop through all selected workbooks
    For i = 1 To tempFileDialog.SelectedItems.Count
        
        'Open each workbook
        Workbooks.Open tempFileDialog.SelectedItems(i)
        
        Set sourceWorkbook = ActiveWorkbook
        
        'Copy each worksheet to the end of the main workbook
        For Each tempWorkSheet In sourceWorkbook.Worksheets
            tempWorkSheet.Copy after:=mainWorkbook.Sheets(mainWorkbook.Worksheets.Count)
        Next tempWorkSheet
        
        'Close the source workbook
        sourceWorkbook.Close
    Next i
    
End Sub

dan untuk mendapatkan nama sheet dari File excel bisa menggunakan add formula dan Index

buat rumus "sheetnames" atau bebas apa saja namanya

=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),"")

kemudian menggunakan indek

INDEX(sheetnames,urutan sheet)

membuka excel dengan Link dari Files lain #REF

untuk membuka excel yang memiliki link value dari files lain agar tidak #REF, maka bisa menghapus links dari file lain tersebut dengan cara :

1. Copy files ke folder lain atau langsung ke no 2.
2. Rename menjadi “namafiles.zip” (ubah dar “namafiles.xlsx”)
3. Open file menggunakan WinZip atau Winrar
4. buka xl subfolder didalam filesnya
5. Delete “externalLinks” folder
6. Rename kembali file ke “namafiles.xlsx”
7. Open files dan choose to repair sheet

saat repair, excel akan memberitahu bahwa ada link dari files lain yang rusak, dan memperbaikinya. done!

Membuka Folder masuk ke Search

Apabila menemukan masalah saat Klik 2 kali pada Folder harusnya membuka folder, tapi yang terjadi malah masuk ke search windows. Hal ini disebabkan karena ada modifikasi pada File Types di Folder Option. Untuk mengembalikannya Coba cara di bawah ini

Buka Regedit

pada HKEY_CLASSES_ROOT\Directory\Shell

&

pada HKEY_CLASSES_ROOT\Driver\Shell

Seharusnya Nilai Default = none

jika terjadi perubahan atau nilainya menghilang, kembalikan saja ke posisi semula dengan mengedit nilai Default menjadi none

semoga membantu..

Mengembalikan Icon Yang Hilang

Untuk mengembalikan semua Icon folder pada Explorer yang hilang atau kacau walaupun sudah mengubah pada folder option namun tetap tidak berubah, atau sudah mengganti pada costumize folder icon, padahal iconnya ada & file shell32.dll pada c:\windows\system32 normal bisa mencoba cara berikut :

– Download PowerToys Tweaker UI dari microsoft nih linknya Download Power Toys Tweaker UI

– Masuk Safe Mode untuk lebih aman dalam bekerja

– Instal tweaker UI yang baru saja di download

– Open Tweaker UI

– Klik repair

– Klik Rebuild Icons

– Klik repair Now

dan Voila..hasilnya bisa langsung dilihat. restar komputer dan masuk ke windows Normal. Semoga membantu!!

Slow Network Transfer Windows 7

Dapet masalah, waktu transfer dari Win XP Ke Win 7 Berjalan Normal dengan kecepatan diatas 10/Mbps

Namun Sebaliknya dari Win 7 ke Win XP kecepatan hanya 200/Kbps. beberapa Solusi bisa coba dan bervariasi juga bekerja pada setiap komputer/laptop sebagai berikut :

* Disable RDC ( Remote Differensial Compression)

– Buka Control Panel

– Buka Program & Features

– Buka Turn Windows Features On or Off

– Hilangkan pilihan Remote Differensial Compression

OK

* Setting Speed & Duplex Manual

– Buka Control Panel

– Buka Network & Sharing Center

– Buka Changes Adapter Setting

– Klik Kanan Pada Network Adapter (Local Area Network)

– Klik Properties

– Klik Configure

– Klik Advance

– Cari Value Speed & Duplex

– Ganti Auto Negotiation menjadi

1- 10MB full duplix (Slow Transfer).
2- 10MB half duplix (fast Transfer relevant to the 10MB speed).
3- 100MB full duplix (Slow Transfer).
4- 100MB half duplix (fast Transfer).
5- 1 Gigabit (auto) (fast transfer).

terkadang yang lebih bagus di setting 100MB half duplix (fast Transfer)

*Disable Autotuninglevel

Open CMD

klik On Icon CMD and run as Administrator

type   :  netsh int tcp set global autotuninglevel=disabled

(untuk mengembalikan fungsi ini  :  netsh int tcp set global autotuninglevel=normal)

selamat mencoba, jika punya tutorial lain silahkan tinggalkan comment

Remove Mount Password Ubuntu

Buka terminal and masukan Command Dibawah ini :

sudo gedit /usr/share/polkit-1/actions/org.freedesktop.devicekit.disks.policy

cari Baris action id:

org.freedesktop.devicekit.disks.filesystem-mount-system-internal

Didalam Action tersebut cari Baris dibawah ini:

auth_admin_keep

Rubah dengan :

yes

Save File dan setelah ini tidak akan meminta mount password lagi

NB: Ulangi Proses setelah Update security karena biasanya pada saat update security, policynya akan kembali ke default

Menambah Ukuran Kertas Custom printer Dot Matrix Win XP & Vista

Untuk menambah UKuran Kertas Sendiri / Custom pada printer Dot Matrix (Printer yang Pake Pita) Pada Windows XP & Vista yang tidak memiliki option custom paper bisa menggunakan cara dibawah ini :

1. Buka Control Panel
2. Buka Printer & Faxes
3. Klik File
4. Klik Server Properties (Alternatif klik kanan di kolom kosong, klik Server properties)
5. Pada Kolom Forms, Klik Create New Form
6. Pada Form Description tentukan berapa Ukuran Kertas yang Diinginkan
7. OK

Semoga membantu buat yang punya Ukuran kertas sendiri seperti Slip gaji, Dll

DOS Full Screen On VIsta Or Windows 7

Jika adan ingin menjalankan Program DOS Pada Windows VISTA / 7 dengan segala cara untuk modifikasi seeting di windows bakal bikin windows semakin kacau, jadi untuk menghemat tenaga, jika ingin menjalankan program DOS 16bit di Windows Vista atau 7 lebih baik gunakan Program tambahan Seperti XP MODE dari Microsoft atau Lebih simple DOSBOX Download Here

selamat mencoba
(tutorial menyusul)

Enable Sharing Access Password Pada Windows Vista & 7

Pada saat Ingin mengakses komputer dalam Workgroup atau Domain, akan timbul kolom username & password, jika saat sudah memasukan username & password yang sesuai selalu gagal, cobalah cara dibawah ini untuk mengaktifkan access ke dalam Jaringan.

1. Buka Administrative Tools.

NOTE: Pada Start Menu atau Control Panel (Klik Classic View).

2. Click on Local Security Policy.

3. Di Panel sebelah kiri, click Local Policies.

4. Di Panel sebelah kiri, click Security Options.

5. Pada panel sebelah kanan bawah, click Network security: LAN manager authentication level.

6. Click drop down box, dan click Send LM & NTLM – use NTLMv2 session security if negotiated.

7. Click OK.

8. Restart the computer

Atau Cara Ke 2

1. Buka Start Menu.

2. Pada kolom Start Search area, ketik regedit dan tekan Enter.

3. Click Continue pada UAC prompt.(jika masih Aktif)

4. Pada regedit, masuk ke folder:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa

5. Pada panel kanan, klik kanan LmCompatibilityLevel dan click Modify.
NOTE: jika key tersebut tidak ada, buat DWORD value dengan nama LmCompatibilityLevel

6. Set key tersebut dengan nilai 1

7. Reboot

Semoga membantu.