Micosoft Excel: Remove Leading Space With Macro

Here is script for remove leading space in Microsoft Excel with macro:

SubRemoveLeadingSpace() 'Updateby20131129 DimRng AsRange DimWorkRng AsRange OnErrorResumeNext xTitleId = "KutoolsforExcel" SetWorkRng = Application.Selection SetWorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) ForEachRng InWorkRng     Rng.Value = VBA.LTrim(Rng.Value) Next EndSub

Source: https://www.extendoffice.com/documents/excel/667-excel-remove-first-space.html

 

Selamat mencoba. Semoga bermanfaat.

 

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:

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…