punten.... mamang milu yeuh Sub Cofilled() Dim i As Long Dim n As Long Dim rLast As Long Dim sht As Worksheet Dim shtReport As Worksheet Const rHeaderOffset As Long = 2 Const cValues As String = "C" Const bValues As String = "B" With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With
Set shtReport = Sheets("Hasil")
With shtReport
.Range(.Cells(12, 1), .Cells(12, 3).End(xlDown)).ClearContents
End With
i = 12
For Each sht In Sheets
With sht
If sht.Name <> shtReport.Name Then
rLast = .Cells(.Rows.Count, cValues).End(xlUp).Row
For n = rLast To rHeaderOffset Step -1
If .Cells(n, cValues) = Sheets("Hasil").Range("B2") And _
.Cells(n, bValues) = Sheets("Hasil").Range("B3") Then
.Rows(n).EntireRow.Copy Destination:=shtReport.Rows(i)
i = i + 1
End If
Next n
End If
End With
Next sht
Set shtReport = Nothing
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub
Tampilkan.rar
Description: Binary data
