Mumpung masih belum tutup.
Mari dilihat-lihat lagi, ada berapa kemungkinan susunan data dari mas Zain
ini :
>> satu
Yang diupdate hanyalah kolom ke-3 artinya kolom ke-3 adalah property
dan kolom ke-1 dan ke-2 bisa jadi adalah key
>> dua
Ternyata disana ada kolom ID yang umumnya dalam kasus sepert
Justru pertanyaannya, kenapa harus dihitung sekarang lalu disimpan sebagai
data, padahal jelas itu nanti dipakai ketika dibutuhkan saja.
Kid.
2011/9/30 Darto Chandra
> **
>
>
> thank you mr.kid, coding berjalan sempurna. Masih mau minta bantuannya
> nich, untuk tabel data kolom m3 saya bikin ru
Coba array formula :
=ISNUMBER(MATCH(F3&G3,$C$3:$C$13&$D$3:$D$13,0))*1
Kid.
2011/9/30 Jonathan Susanto
> **
>
>
> Dear Be Exceller.
>
> Maaf, ada update di sample data biar lebih clear problemnya.
>
> Thanks
> Jonathan
>
>
>
re-Banding2criteria.xls
Description: MS-Excel spreadsheet
thank you mr.kid, coding berjalan sempurna. Masih mau minta bantuannya nich,
untuk tabel data kolom m3 saya bikin rumus di masing masing cell. Hal ini
menyebabkan file sizenya jadi bengkak. bisa minta bantu codingnya lagi untuk
mengisi kolom m3 secara otomatis apabila terdeteksi pcs lebih besar
Dear para pakar
bisa dibantu file terlampir dg case sbb :
file terlampir adalah untuk simulasi pengembalian dana jika ada pembatalan
dengan 2 pendekatan
perhitungan dg pendekatan harian = 70% x Dana yg dibayar x dengan
masa yang tersisa per cara bayar Bilangan pembagi
Tahunan 365
Ganti array formula di cell A3 menjadi :
=SMALL(--(INT($F$19:$F$27*1000)&(ROW($F$19:$F$27)-ROW($F$18))/100),ROW(1:1))
lalu copy ke bawah.
#REF muncul karena index baris yang disimpan di hasil array formula kolom A
(sebelum diperbaiki) melebihi jumlah range yang dirujuk oleh index.
Jadi, yang tadin
Mr Kid,
saya lampirkan pengubahan saya yang terakhir dan masih terhadang di paste
special.
mungkin ada ubahan makronya yg salah posisinya.
regards,
yudha
-
Public Sub OpenFile(strPath As String)
Dim RngRowA As Range, RngRowB As Range
Di
Thanks..Pak kid atas infonya!!!
2011/9/29 Kid Mr.
> Dear Laura,
>
> 1. Beri header, kemudian gunakan fungsi SumIF
> 2. Bagaimana jika ada pilihan memo nomor berapa yang akan diinput. Kemudian
> akan diwarnai. Jadi tidak pakai Ctrl F
>
> Thank You and Regards,
> Kid.
>
>
> 2011/9/29 Senja Laura <
Dear Para Master,*
*Saya mencoba membuat security file sederhana (biar tidak dapat di copy
paste) dengan menggunakan macro dan sudah sukses file tidak dapat terbuka
tanpa adanya file tambahan dalam satu folder (pass.txt). Namun masalahnya
adalah di Excel 2003 ketika membuka file akan ada option un
Para Exceler,
Mohon bantuannya atas masalah saya di bawah ini:
1. Bagaimana formula untuk buat login (sheet terlampir)
2. Bagaimana formula untuk mengisi bulan dan tahun pada lembar SPTnya (otomatis
terisi pada saat saya hanya mengisi pada isian di lembar "Menu")
Thanks berat atas bantuannya
Setelah dicoba beberapa hal sebelumnya, hasilnya adalah tidak ada masalah
yang timbul.
Jika ditempat anda bermasalah, maka coba ubah blok :
With book.Worksheets("ACTIVITY")
'xlApp.Intersect(.UsedRange, .Range("A1", .Cells(Rows.Count,
Columns.Count))).Copy
'mencari range yang ada
masih sama mr Kid..
errornya kena disini :
ws.Range("A" & ws.Range("A65536").End(xlUp).Row).Offset(0, 0).PasteSpecial
Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Regards,
ys
2011/9/30 Kid Mr.
> **
>
>
> Bagian :
>
> xlApp.Intersect(.UsedRange, .Ran
Bagian :
xlApp.Intersect(.UsedRange, .Range("A1", .Cells(Rows.Count,
Columns.Count))).Copy
Ganti dengan :
.UsedRange.Copy
Kid.
2011/9/30 Yudha Saptiadi
> **
>
>
> Mr.Kid...
> sudah di coba dua duanya tp
> Masih di tendang di paste specialnya
> apakah karena intersectnya juga yg harus d
Mr.Kid...
sudah di coba dua duanya tp
Masih di tendang di paste specialnya
apakah karena intersectnya juga yg harus di perbaiki makronya..??
2011/9/30 Kid Mr.
> **
>
>
> Bagian :
> With book.Worksheets("ACTIVITY")
>
> xlApp.Intersect(.UsedRange, .Range("A1", .Cells(Rows.Count,
> Col
Coba isi prosedurnya adalah :
Dim rngDT1 As Range, rngDT2 As Range
Dim lRec As Long
Set rngDT2 = Sheets("data
2").Range("a5") 'anchor lokasi data 2
lRec = WorksheetFunction.Count(rngDT2.CurrentRegion.Resize(, 1)) +
1'jumlah baris record da
Bagian :
With book.Worksheets("ACTIVITY")
xlApp.Intersect(.UsedRange, .Range("A1", .Cells(Rows.Count,
Columns.Count))).Copy
'mencari range yang ada datanya dimulai dari cell A1 supaya judul
datanya ikut ke copy
End With
* 'create folder with name cost center
Set w
Dim wbk As Workbook
Dim shtCol As Worksheet
Dim rngComb As Range, rngDT As Range
Dim lRows As Long, lRecords As Long
Dim lMonth As Long, lYear As Long
Dim sMsg As String
Application.ScreenUpdating = False
sMsg = "Penggabungan Selesai." & vbCrLf & vbCrLf & _
Kok error ya pak,variabel not defined.logikanya kan saya manggil book1 trus
copy 12 tabel pd 12 sheet seperti yg sudah. kok masih gak bisa ya??
Public Sub GabungBook1()
Dim wbk As Workbook
Set wbk = workbboks.Open("drive:D\excelku\Book1.xlsm")
Dim shtCol As Worksheet
Dim rngComb As Ra
ada 4 macam formula untuk masing masing kolom .
untuk No. Kontrak formulanya
=MID($F2;LEN(E$6)+3;FIND(F$6;$F2)-(LEN(E$6)+3))
bisa dicopy ke bawah
untuk kolom No TTS/No BKM dan kolom customer
formulanya dibuat di kolom TTS/No BKM
=REPLACE(REPLACE($F2;1;FIND(F$6;$F2)+LEN(F$6)+2;"");FIND(G$6;
+1
Selain menggunakan Collection, penggunaan Scripting Dictionary dapat dijadikan
sebagai pertimbangan.
>semoga bermanfaat
===
--- In belajar-excel@yahoogroups.com, "Kid Mr." wrote:
Object collection bisa mengurangi
Pada data terstruktur dengan delimiter, biasanya menggunakan formula berusi
fungsi Trim, Mid dan Substitute. Karena ada delimiter newline, maka
dibutuhkan sebuah proses susbtitusi karakter newline (char 10) menjadi
karakter delimiter data (pada kasus ini adalah karakter titik dua ':')
=TRIM(MID(SU
terlampir file kerjaan saya. Pada sheet menu periode january terdapat command
button menu. didalamnya terdapat tombol tutup bulan.mohon bantuannya untuk
menulis makro di tombol tersebut. Pengennya kalo tombol tersebut di pencet data
yang ada di sheet data1 dengan cell tally, T,L,P,Grade,SAK[PCS]
Sore rekan belajar excel. Mohon dibantu tentang, bagaimana memecah isi sel
menjadi isi tabel kolom.
Saya lampirkan file berikut ini.
Terima kasih atas bantuannya.
Ronald
um pokok2.xls
Description: MS-Excel spreadsheet
saya koreksi ya Mr Kids :col.Add rng.Value & "|" & rng.Offset(, 1).Value & "|"
& rng.Offset(, 2).Value, rng.Value & "|" & rng.Offset(, 1).Value
menjadi :col.Add rng.Value & "|" & rng.Offset(, 1).Value & "|" & rng.Offset(,
2).Value, rng.Offset(, 1).Value
dimana key menggunakan kolom yang berisi A
Dear Para Master
Pertama-tama Salam kenal dulu dari Neubie... :D
Panggil Saya ATO saja :D
mo Bantuannya untuk mempermudah kerjaan di kantor ni...
Saya punya Format Voucher yang saya ketik secara manual di Excel,
kendala yang saya hadapi, setelah membuat Voucher, maka saya haru melakukan
rek
Coba juga menggunakan object collection untuk join table
Public Function JoinPakeKoleksi(rngUpdateKolomPertama As Range,
rngDataLamaKolomPertama As Range) As Variant
Dim col As Collection 'selalu base 1
Dim rng As Range
Dim lRecs As Long
Dim sItem() As String 'vb6 mengg
Dear Pak Franz
terima kasih UDFnya
tapi findnya belum bisa berfungsi saya masukkan memo10 kok ngga match ya!!!
2011/9/29 Franciscus SOG
> **
>
>
> Dear Laura,
>
> Kalo begitu pake UDF angkasaja.
> Untuk Find, tidak melalui DialogBox Find tapi melalui macro.
>
> Public Function angkasaja(data As
27 matches
Mail list logo
