Coba ubah bagian yang berbunyi :
With Spreadsheet1
.Range("A4:F4").Resize(lRec).Value = rngData.Value
.Range("B:B").NumberFormat = "dd MMM yyyy"
.Range("D:F").NumberFormat = "#,##0"
.Range("A:F").AutoFit
End With
menjadi :
With Spreadsheet1
.enableevents=false
with.activeworkbook.activesheet
.Range("A4:F4").Resize(lRec).Value = rngData.Value
.Range("B:B").NumberFormat = "dd MMM yyyy"
.Range("D:F").NumberFormat = "#,##0"
.Range("A:F").AutoFit
end with
.enableevents=true
End With
Jadi, object Application dalam Excel setara dengan object nama object OWC11
spreadsheet control
Perhatian, Object control OWC11 Spreadsheet tidak sama dengan Excel ,
sehingga bisa jadi ada kemampuan Excel yang tidak ada dalam object OWC11
Spreadsheet.
Wassalam,
Kid.
2013/6/19 Imam Sinurat <sin.u...@yahoo.com>
> **
>
>
> Yth. Para pakar dan rekan excelers..
>
> Mohon dibantu bagaimana cara mengedit data terpilih (hasil filter) via
> spreadsheet control di dalam userform,
> lalu mengembalikannya ke dalam tabel data asli. Saya pakai OWC versi 11.
>
> Terima kasih sebelumnya.
>
> Wassalam
> Sinurat
>
>
>
