mungkin bisa dicoba codes di bawah ini
excuse codes nya yah, maklum baru belajar vba :)
Notes: sepertinya table bikin jadi xml error warning gitu deh, tapi IMHO
jalan sih .
semoga bisa bermanfaat untuk dijadikan referensi, silakan dikotak-kotak
seperlu nya .
' belajar VBA excel
' 5 may 2013
' wira
Sub copypastesort()
Dim cell As Long
Dim lastrow1 As Long
Dim lastrow2 As Long
'turn of filtering sheet1
Sheets("HARIAN-RECORD").Select
Range("A1").Select
Selection.AutoFilter
'turn of filtering sheet2
Sheets("N-CASHFLOW").Select
Range("A1:B1").Select
Selection.AutoFilter
'Dari sheet "Harian-Record colom A"
Sheets("HARIAN-RECORD").Select
lastrow1 = Range("A65536").End(xlUp).Row
Range("A2: A" & lastrow1).Select
Selection.Copy
'Ke Sheet "N-Cashflow di colom B"
Sheets("N-CASHFLOW").Select
Range("b2").Select
Application.DisplayAlerts = False
Selection.PasteSpecial Paste:=xlPasteValues
'delete duplicate data
ActiveSheet.Range(Selection, Selection.End(xlDown)).RemoveDuplicates
Columns:=2, Header:=xlYes
'delete baris kosong
For cell = Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
If Range("B" & cell).Value = "" Then
Rows(cell).EntireRow.Delete
End If
Next cell
'sorting
lastrow2 = Range("B65536").End(xlUp).Row
ActiveWorkbook.Worksheets("N-CASHFLOW").Sort.SortFields.Add
Key:=Range("B2:B" & lastrow2) _
, SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("N-CASHFLOW").Sort
.SetRange Range("A1:B" & lastrow2)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'done
Range("A2").Select
'5/5/2013 7:55:45 PM
End Sub
2013/5/5 agus salim <[email protected]>
> **
>
>
>
>
>
> Dear All
>
> Mohon penjelasan bagaimana caranya jika menggunakan macro atau VBA
> -Dari sheet "Harian-Record colom A" ==> Copy A2:A16
> -Ke Sheet "N-Cashflow di colom B" ==> Paste B2
> -delete duplicate data
> -delete baris kosong
> -sorting
>
> Nah bagaimana cara macro atau VBA nya....saya coba kok gak bisa ya??
> File Terlampir
>
> mohon penjelasan
>
> trimakasih
> asallim
>
>
>
>
