Wa'alaikumussalam Wr. Wb.
Baris ini :
rngData.Offset(lOffset).Resize(lNeed, 3).Copy rngHasil.Offset(lRows)
akan mengalami kegagalan bila data (rngData) memiliki jumlah baris yang
banyak yang membuat jumlah baris data ditambah nilai lRows akan melebihi
jumlah baris Excel.
Coba ubah ubah menjadi :
rngData.Resize(lNeed, 3).Offset(lOffset).Copy rngHasil.Offset(lRows)
agar mengiuti jumlah yang dikehendaki dan bukan mengikuti jumlah baris data
seluruhnya.
Wassalamu'alaikum Wr. Wb.,
Kid.
2013/3/3 Selvrida Kusumawati <[email protected]>
> **
>
>
> Assalammu 'alaikum Om Kid
>
> Selvri sangat berterima kasih atas bantuannya. Semoga senantiasa membawa
> keberkahan.
>
> Om... di PC Selvri yang datanya banyak ada error disini..
> rngData.Offset(lOffset).Resize(lNeed, 3).Copy rngHasil.Offset(lRows)
>
> run time error 1004 - pas Selvri sorot ada angka lOffset = 15320,
>
> Selvri ada sedikit tambahkan satu kolom kriteria di sheet parameter.
>
> Terus logikanya formula bantu ini gimana seh om..
> "=IF(COUNTIF( INDEX(_myData_ ,0,1),A2) ,MATCH(A2, INDEX(_myData_ ,0,1),0)-
> 1,0)"
>
> Terima kasih banyak dan wassalammu 'alaikum wr wb
> Nb :
> "Maaf lampirannya melebihi kuota, tidak bisa dilampirkan di millist"
>
>
>
>
>
