Be-exceler,
Misalnya saya mempunyai table di [sheet 1] dan [Sheet 2].
Table di [sheet 1] akan diupdate berdasarkan record dari [Sheet 2].
Bagaimanakah codenya (macro) agar record di [sheet 1] bisa terupdate
berdasarkan perubahan di [Sheet 2]?
Terimakasih,
-zainul-
TanyaUpdateTable.xlsx
Descri
kawans,
bantuin aku ya ..
1. ada beberapa produk yang memiliki* nama produk* berikut *spesifikasi
teknis* masing2 (memiliki range)
2. ditemukan beberapa barang *tanpa identitas nama produk* namun memiliki
informasi spesifikasi teknis tertentu
nah, bantuin dong formulanya buat ngedapetin nama produ
sekedar perbaikan (sedikit )
Sub MenormalkanTabelJilid7()
' dikodekan oleh haps, smg, 28-09-2011
' http://tech.groups.yahoo.com/group/belajar-excel/message/13121
'---
Dim TbRef As Range, TbHas As Range, RestoName As String
Dim i As
thanks mr.nmkid and haps
saya coba aplikasikan dlu, kira2 mana yg cocok dengan keperluan
sekali lagi terima kasih banyak
On 9/28/11, Kid Mr. wrote:
> Selamat pagi Pak Rizald,
>
> File terlampir mencoba menyusun data senormal mungkin. Jika nama dan
> restoran bisa diwakili oleh id yang tersimpan
Maaf ada yang lupa saya tulis, bagaimana jika tidak menggunakan macro tetapi
menggunakan formula untuk meng-sort-nya, atau dengan kata lain macro yang ada
diganti dengan formula.
//BR
Begitu banyak yg sudah anda katakan dlm sheet 1
selamat pagi rekan2,
saya punya tabel agak banyak, hasil gabung make add in rdb merge
seperti terlampir
maunya agak dimodif2 sedikit
mohon bantuannya rekan2
terima kasih
tanya tabel ga aturan.xls
Description: MS-Excel spreadsheet
Coba gunakan tabel normal lalu dibuat pivot tablenya. Sedikit berbeda
tampilannya, tetapi tidak butuh VBA dan lebih cepat.
Kid.
2011/9/27 Adhi
> Wahai para suhu excel, kasih pencerahan dong pada kasusku ini..
>
>
> = Adhi =
>
>
> --- Mods ---
> Menceritakan kasus dengan detil dan terstruktur
Sub BuatSubTotal()
Sheets("Sheet1").Select
'remove/hapus
Range("a1").Select
Selection.CurrentRegion.Select
Selection.RemoveSubtotal
' create/buat
Range("a1").Select
Selection.CurrentRegion.Select
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3), _
8 matches
Mail list logo