Hai Ari, Coba begini : 1. blok seluruh cells di sheet gabung -> atur agar fill color adalah No Fill -> hapus seluruh conditional formatting yang ada di sheet gabung 2. blok baris records dari Excel table di sheet gabung (tanpa header di seluruh kolom Excel table) -> lakukan delete table rows 3. save workbook
4. Cara copy paste values : sheets("nama sheet yang mau dicopy").range("a1").currentregion.offset(1).copy with sheets("nama sheet gabung") .cells( .rows.count , 1 ).end(xlup).offset(1).pastespecial xlpastevalues end with 5. Cara hapus seluruh records dalam Excel table (misal Excel table di sheet gabung yang header-nya mulai dari A1) with sheets("nama sheet gabung").range("a1").currentregion .offset(1).resize( .rows.count -1 ).delete xlshiftup end with *** Setelah 5 langkah di atas dikerjakan, barulah memikirkan perbaikan proses copy yang di paste values beserta proses delete excel table rows >> Jika hanya sheet tertentu saja yang akan di-copy lalu di-paste values ke sheet gabung, maka perlu menentukan pola penamaan sheet-nya. Contoh 1 : sheet yang digabung hanya yang berawalah kata 'sheet' dim sht as worksheet with sheets("nama sheet gabung") for each sht in thisworkbook.worksheets if lcase(left(sht.name,5))="sheet" then sht.range("a1").currentregion.offset(1).copy .cells( .rows.count , 1 ).end(xlup).offset(1).pastespecial xlpastevalues endif next sht end with Contoh 2 : sheet yang digabung adalah selain yang bernama 'Gabung','a1','a2','a3','kid' dim sht as worksheet, sShtName as string sshtname="\gabung\a1\a2\a3\kid\" with sheets("nama sheet gabung") for each sht in thisworkbook.worksheets if instr(sshtname,"\" & lcase(sht.name) & "\")=0 then sht.range("a1").currentregion.offset(1).copy .cells( .rows.count , 1 ).end(xlup).offset(1).pastespecial xlpastevalues endif next sht end with Regards, Kid On Thu, Mar 23, 2017 at 10:32 AM, Eira I Arie cheivory_bri...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote: > > > Yth. Pak HK dan Pak Lukman > > file terlampir dari milis ini juga (sudah ditambahkan baris code > "copypastevalue" arahan Pak HK) .. > > Problemnya begini , Jika misalnya : > > 1. pada sheet 1 , di kolom A diberi Conditional Formatting > 2. pada sheet 2 , di kolom C diberi warna sell kuning di beberapa data > 3. pada sheet gabung , dibuat excel table untuk wadah > > > setelah diproses gabung , dalam sheet gabung terdapat Conditional > Formatting (sesuai di sheet 1) dan warna sell (sesuai sheet 2). > keinginannya hanya "copy value" . ternyata hasilnya masih terdapat CF dan > warna sell seperti contoh terlampir .. > > terkadang , setelah proses tombol hapus, lalu proses gabung lagi maka, > pada sheet gabung, format excel table menjadi hilang (jadinya range) .. > > mohon solusi atas permasalahan di atas .. > > > Terima kasih > > Ari > > > On Wednesday, March 22, 2017 7:46 PM, "lkm jktind lkmjkt...@gmail.com > [belajar-excel]" <belajar-excel@yahoogroups.com> wrote: > > > > Pak cheivory_bridge. > > tolog lampirkan contoh file nya . > yang lengkap ya. > > > > Salam > > > > Lukman. > > > > NB : Ada waktu luang dikit . > > > > > On Wed, Mar 22, 2017 at 3:26 PM, hendrik karnadi hendrikkarn...@yahoo.com > [belajar-excel] <belajar-excel@yahoogroups.com> wrote: > > > Coba tambahkan 2 perintah berikut ini: > > Set rngGabung = Sheets("Gabung").Range("A2"). CurrentRegion > > rngGabung.Value = rngGabung.value > > seblm Application.CutCopyMode = False > > Salam, > HK > > > Sent from Yahoo Mail on Android > <https://overview.mail.yahoo.com/mobile/?.src=Android> > > > Yth. Pakar Excel > > Mohon bantuannya , > > Saya dapat barisan code macro berikut (dari milis ini juga) : > > Sub Gabung() > Dim rngGabung As Range > Dim sh As Worksheet > Dim rngsh As Range > Dim brs As Long > Set rngGabung = Sheets("Gabung").Range("A2"). CurrentRegion > Set rngGabung = rngGabung.Offset(1, 0).Resize(rngGabung.Rows.Count - 1) > Application.ScreenUpdating = False > > rngGabung.ClearContents > > For Each sh In Worksheets > If sh.Name <> "Gabung" Then > If sh.Name <> "nim_nama" Then > If sh.Name <> "a2" Then > If sh.Name <> "pivot_table" Then > Set rngsh = sh.Range("A2").CurrentRegion > Set rngsh = rngsh.Offset(1, > 0).Resize(rngsh.Rows.Count - 1) > brs = WorksheetFunction.CountA( > Sheets("Gabung").Columns("A:A" )) > rngsh.Copy Sheets("Gabung").Range("A" & brs + 1) > End If > End If > End If > End If > Next sh > > Application.CutCopyMode = False > Application.ScreenUpdating = True > End Sub > > Barisan code macro tersebut jika diterapkan hasilnya "copy paste" .. > keinginan saya bagaimana biar hasilnya "copy VALUE" saja, mohon bantuannya > merevisi barisan code macro tersebut .. > > Terima kasih > > ari > > > > > >