Saya coba memberikan solusi lain , dengan cara Filter dan Copy :
Sub kopiRange()
Sheets("Booking").Select
Range("A1:C8343").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$C$8345").AutoFilter Field:=2, Criteria1:= _
">=" & Sheets("hasil").Range("b2"), Operator:=xlAnd,
Criteria2:="<=" & Sheets("hasil").Range("b3")
Sheets("Booking").Select
Range("A1:A8343,C1:C8343").Select
Dim r As Range
Set r = Selection
r.Copy (Sheets("hasil").Range("e6"))
End Sub
--- In [email protected], "Mr. Kid" <mr.nmkid@...> wrote:
>
> Dear Lilik,
> Dengan 1 kolom bantu di data, kemudian dibuat named range yang
dinamis.
> Summary menggunakan pivot table saja. Mungkin untuk data sampai
ratusan ribu
> baris akan mulai terasa berat kalkulasi formula di kolom bantunya.
>
> Jika inginnya pakai formula, untuk data sampai ribuan (meski kurang
dari
> pulahan ribu) bisa jadi akan terasa berat kalkulasinya.
> Jika dengan VBA mungkin bisa lebih cepat.
>
> Andai saja data berasal dari suatu database yang bisa dikoneksi.
Sekedar
> berandai.
>
> Regards.
> Kid.
>
> 2011/7/20 lilik marhaendra lilik.marhaendra@...
>
> > **
> > Dear Teman-Teman,
> >
> > Mohon bantuannya ya, saya ingin membuat rangkuman nama-nama orang
dalam satu bulan dari daftar book yang saya lampirkan berikut,
> > hasil yang saya inginkan ada pada sheet Hasil, trmksh ya teman-teman...
> >
> > Regards,
> > Lilik Marhaendra
