Berarti tinggal kondisi ketika Excel table masih kosong bukan ?
1. Tepat dibawah baris dim, sisipi dengan baris kode berikut :
dim lAdaIsi as long
lAdaIsi=abs( len( sheets("nama sheet gabung").range("a2").value ) <> 0 )
2. Sebelum masukkan proses delete (baris kode delete) ke dalam blok if
berikut :
if ladaisi<>0 then
'letakkan baris delete disini
endif
3. pada baris kode paste values, bunyi :
.end(xlup).offset(1).blabla
diubah menjadi :
.end(xlup).offset( lAdaIsi ).blabla
Regards,
Kid
2017-03-31 15:01 GMT+07:00 Eira I Arie cheivory_bri...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Yth. Mr. Kid
>
> Langkah arahan Mr. Kid sudah saya lakukan :
>
> 1. Langkah 1 = sudah dilakukan
> 2. Langkah 2 = baris record semua sudah di hapus tetapi menyisakan
> baris record kosong excel table (selain header)
> 3. Langkah 3 = sudah dilakukan
> 4. Langkah 4 = sudah dilakukan dengan macro copasvalues contoh 2
> 5. Langkah 5 = sudah dilakukan
>
>
> Problemnya :
>
> 1. Saat proses gabung, baris record hasil gabung mulai muncul di A3
> (setelah sisa satu baris record kosong excel table yang dihapus pada
> langkah 2) - Jadi, hasil gabung tidak menempati excel table ..
> 2. Saat proses hapus, terjadi debug .. tetapi jika record hasil gabung
> saya tempatkan manual di excel table (mulai A2 atau setelah header excel
> table) maka, proses hapus berjalan sukses ..
>
>
> Sekian Mr. Kid, mohon solusinya.
> Terima kasih
>
>
> On Friday, March 24, 2017 10:18 AM, "'Mr. Kid' mr.nm...@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> 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
>
>
>
>
>
>
>
>
>
