Terima kasih mas Kid atas solusi kilatnya, problem solved
Publish your photos in seconds for FREE
TRY IM TOOLPACK at http://www.imtoolpack.com/default.aspx?rc=if4
Dear Exceler,
Mas Kid dan mas Ghozi terima kasih atas solusi dynamic row nya, semua solusi
sesuai dengan penyelesaian masalah saya.
Saya ada pertanyaan baru (data sama).
Bagaimana menghindari entry data yg sama dengan 3 kriteria?
File terlampir.
salam
_
Sudah diperbaiki :
To: belajar-excel@yahoogroups.com
From: ppc...@sami.co.id
Date: Tue, 6 Dec 2011 10:05:32 +0700
Subject: Re: [belajar-excel] Debug dan restart my workbook
pak sudarsono
pada cmb_Generate terdapat code & nbsp; bila
di tuli
Coba sheet SPKL di file SPKI.xlsm diubah view-nya jadi mode normal (jangan
mode page break).
Sapa tahu ada efeknya. Hanya sapa tahu loh.
Kid.
2011/12/6 ppc lambda
> **
>
>
> Mr kid dan pak sudarsono
> terimakasih atas respon nya setelah saya pakai workbook dari Mr kid masih
> terjadi error yang
ga masalah pak Onto Seno memang benar solusi dari Mr Kid sangant cerdas dan itu
boleh dibilang sudah menyelesaikan masalah saya. Mungkin keinginan tahu saya
tidak diimbangi dengan kemampuan makro saya (saya masih harus belajar lagi)
sehingga menyulitkan saya. Sekali lagi terima kasih "BELAJAR EX
pak sudarsono
pada cmb_Generate terdapat code & nbsp; bila di tuliskan di view code menjadi
warna merah dan tidak bisa di jalankan
jika code & nbsp; itu dihilangkan masih terjadi error yang sama
berikut yang berwarna merah ketika di ketikkan di View Code (VBA EXCEL)
&nb sp; On Error Resume Ne
karena penekanan tombol ( Start , Comm dan Generate bisa sembarangan ) dapat
menimbulkan looping yg tak terbatas maka perlu meng- antisipasinya : Private
Sub Cmb_Start_Click()
'With WAdd.Sheets(1).Range("A2")
If WAdd Is Nothing Then Exit SubWith WAdd.Sheets("Sheet1").Range("A2")
Maaf salah sebut copyright formula
(c) mbak Hapsari : =WEEKNUM(B2 - DAY(B2) + A2)-1
(c) Pak Udin & Mr Kid : =WEEKNUM(DATE(YEAR(B2),MONTH(B2),A2),2)-1
Semuanya bagus dan terpakai.
Terimakasih
Terimakasih juga untuk komentar lainnya
Wassalam
Agung Widodo
From: bela
Ok Mr. Kid, It's Work...
Terima kasih banyak...
:-D
Mas Muja
===
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
-Original Message-
From: "Kid Mr."
Sender: belajar-excel@yahoogroups.com
Date: Tue, 6 Dec 2011 09:12:07
To:
Reply-To: belajar-excel@yaho
SUDAH dilampirkan tgl 5 des jan 07:02 pagi
2011/12/6 muja
> Kok aneh jadi tanggal 3 Des 2011 ya, Psdahal codenya saya coba dan
balasan emailnya saya buat tgl 5 tadi malam... tp it's OK.
>
> Deklarasi general :
> Dim Tabel As Range, R As Long, i As Long
> sudah di tulis, cuman kok masih gak jala
Return type dari fungsi WeekNum.
Pada Excel 2007 kebawah, masih berupa hari pertama dari week adalah hari
minggu (1) atau hari senin (2)
Pada Excel 2010, mulai dikembangkan kearah penentuan week pertama berdasar
hari pertama week. 1 dan 2 seperti pada xl2007 kebawah.
Untuk 11 (equal dengan 2 di xl2
Rekan,
Saya coba download file tersebut, tapi berhubung saya onlen lewat beebe, tidak
bisa nee,.. Mmohon bantuan untuk sahare japri ke asror g?
Terimakasih,
Asror
-Original Message-
From: "o' Seno"
Sender: belajar-excel@yahoogroups.com
Date: Tue, 6 Dec 2011 08:38:12
To:
Reply-To: bel
Terimakasih mbakyu atas ulasannya yang selalu membelajari.
Kan tidak ada istilah terlambat untuk belajar.?
Akhirnya formula di C2 yang saya pakai dari resep pak Udin dan Master Kid saya
tambahi bumbu sedikit menjadi
=WEEKNUM(B2 - DAY(B2) + A2)-1
Berhubung Week 1 di kalender kerja kantor dimulai
Dear Pak S Pd., dan peserta conversation topik ini...
Jika kondisi sudah begini
Sepertinya : file lampiran menjadi hal yg "setengah wajib"
Pengirim file sebaiknya menyebutkan regional settingnya, agar para peserta
diskusi
tidak perlu membuat asumsi yg terlalu banyak dan luas lagi
2011/12/6 Udin H
untuk button comm memang belum modif , saya hanya modif di generate . Silakan
perhatikan kode yang terbaru : Private Sub Cmb_Start_Click()
'With WAdd.Sheets(1).Range("A2")' jika belum di seting Wadd
If WAdd Is Nothing Then Exit SubWith WAdd.Sheets("Sheet1").Range("A2")
.Cells(
Bukunya bagus pak Udi..
Kebetulan saya juga sudah pernah mendapatkan "bocoran" via japri dari teman
(member milis ini juga)
Tetapi harap diingat bahwa fle di Ziddu dan semacamnya (online-storage
gratisan) itu
diupload oleh "orang biasa", (yg agak sulit diketahui jatidirinya) bukan
pihak penerbit
a
koreksi atas solusi dynamic row pertanyaan ""andre prisuasetio""
ini forward dari japri yang diajukan oleh yang bersangkutan
sekaligus bisa dipelajari oleh be exelers yang lain.
wassalam
Ghozi Alkatiri
- Pesan yang Diteruskan -
Dari: ghozi alkatiri
Kepada: ""andre prisuasetio""
untuk koding button comm : Private Sub Cmb_Start_Click()
'With WAdd.Sheets(1).Range("A2")
If WAdd Is Nothing Then Exit SubWith WAdd.Sheets("Sheet1").Range("A2")
.Cells(L, 1) = txt_scan.Text
.Cells(L, 2) = lbl_tgl.Caption
.Cells(L, 3) = Left(txt_jam.Text, 5)
Kok aneh jadi tanggal 3 Des 2011 ya, Psdahal codenya saya coba dan balasan
emailnya saya buat tgl 5 tadi malam... tp it's OK.
Deklarasi general :
Dim Tabel As Range, R As Long, i As Long
sudah di tulis, cuman kok masih gak jalan ya ? atau bisa dilampirkan contoh
filenya yang sudah jalan...
T
maksudnya : jadi 2 sub rutin :Sub sortArray_2D(MyArray, posisikey)
jumkol = UBound(MyArray, 1)
Dim kel1 As Variant
Dim kel2 As Variant
ReDim kel1((jumkol))
ReDim kel2((jumkol))
For lLoop = 1 To UBound(MyArray, 2)
For lLoop2 = lLoop To UBound(MyArray, 2)
If UCase(MyArray(posisikey, lLoop2)) < UCase
Oke, terima kasih Mr Kid atas responnya..
Code sudah di coba dengan mengikuti intruksi cuma kok keluarnya :
Compile error :
Duplicate declaration in current scope
Atau bisa Mr Kid lampirkan file yang sudah jalan code nya
Saya pake parameter 13, karena kalau pake 1, di kompi saya hasilnya 45
bukan 44 (sebagaimana diminta Pak Agung).
Saya juga heran, kok hasilnya di kompi pak Agung hasilnya : *#NUM! ?*
--
== Haeruddin, S.Pd ==
Karena listbox diMAMPUkan "multi select" nya
sedangkan row yg dipilih secara multi-selet bisa terpencar pencar index
barisnya
maka untuk menghasilkan "apa yg diselect menjadi tertulis di
sheet" diperlukan makro
padahal dari email ke-II bapak sudah wanti-wanti = anti makro
sehingga saya tidak ingi
Mr. Kid yang darmawan terima kasih atas solusinya
Pak Onto Seno terima kasih atas ilmunya namun yang jadi masalah bagaimana list
box tersebut bisa menghasilkan nilai sehingga data yang diinginkan muncul
trims
Teman-teman yang ingin ebook tutorial excel 2007, silahkan download dari link
berikut (gratis) :
ebook excel 2007
ebook tersebut saya dapatkan dari internet juga, saya bermagsud berbagi. semoga
bermanfaat bagi yang memerlukan.
Ini lg cari2 pak, seinget saya warku itu pernah ada dibuatin ama mba siti seh,
thanks ya pak dah ngingetin, doain ya dapet filex ;)
Salam
Tiny
Powered by Telkomsel BlackBerry®
-Original Message-
From: "Kid Mr."
Sender: belajar-excel@yahoogroups.com
Date: Tue, 6 Dec 2011 04:45:14
To:
Re
mbak Hartini,
Cara itu tidak ada di file terlampir yang lalu, tetapi cukup banyak ada di
milis. Mungkin tidak ada kasus yang khusus membahas tentang hal itu di
kasus lalu di milis, tetapi dalam solusinya, ada bagian script dan
pengaturan untuk memenuhi hal tersebut.
Jadi, silakan cari-cari di mili
Hai Harry,
Coba juga dengan fitur Pivot Table. Untuk data yang banyak, lebih cepat dan
hemat resources.
Wassalam.
Kid.
2011/12/5 harry budiman
> **
>
>
> Salam para pakar
>
> Saya ingin menanyakan beberapa rumus paduan dropdown list dan vlook up
> dari data yang saya lampirkan,
> terima kasih
Coba script berikut :
Private Sub cmdReplace_Click()
Dim Col1 As Range 'range terpilih
Dim Col2 As Range, Col3 As Range'aktifkan baris ini jika
akan menggunakan banyak variabel range
Dim lIdx As Long'index list terpilih
Thanks bro buat responnya, setelah di coba kok Replacenya masih belum jalan ya?
Keluar pesan :
___
Compile error :
Sub or function not defined
___
Highlight pada word "Tabel" di cmdReplace_Click()
Apa yang kurang ya ???
Sent from my BlackBerry®
It work..makasih atas bantuannya mas Seno dan Pak Ghozi...syukron katsiron..
Salam
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
-Original Message-
From: ghozi alkatiri
Sender: belajar-excel@yahoogroups.com
Date: Mon, 5 Dec 2011 21:36:14
To: belajar-ex
untuk konsistensi referensi formula ganti judul kepala pada tabel
summary sama persis dengan judul kepala pada tabel sumber data dengan
formula misalkan judul kepala Type yang asalnya dari C3 pada judul
kepala summary di I3 tulis =I3 sehinngga sama persis dengan sumber asal
demikian juga untuk
Sudah terlambat ya...
Asumsinya: kolom MONTH = *data date* yg hanya ditampakkan MMM-YY nya
Angka-Tanggal nya biasanya = 1; tetapi kita tidak mau ambil risiko maka
kita haruskan jadi tgl [SEBELUM SATU] 1 dulu
=B2 - Day(B2) + A2
Tafsisr Al Haps:
*Data date di B2 dimundurkan sebanyak nilai ANGKA
sambil menunggu penjelasan fara fakar...
sebagian besar ilmunya sudah ada di dalam excel help, atau banyak juga di
pajang di internyet, misal di sini
http://en.wikipedia.org/wiki/Microsoft_Excel
2011/12/5 PT. ADHI KARYA (PERSERO) Tbk
> **
> Para pakar XL, mohon ilmunya diturunkan ke saya don
Mgkn sebagai tambahan, saya ingin mengetahui ketika saya pilih satelit 1 maka
akan muncul unit apa saja yg ada di satelit 1 berikut no rangka dan warna unit
tersebut
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
-Original Message-
From: harry budiman
Insert kolom baru ( misal menjadi kolom I)
Rumus di *I4:I20* (atau lebih ke bawah lagi, sebanyak data yg diperkirakan
tersaring
/ memenuni kriteria "Nama Satelite"
array formula
*=SMALL(IF(F4:F30=H4,ROW(1:27)),ROW(1:27))*
Rumus di J4 / formula biasa
*=IF(ISNUMBER($I4),OFFSET(C$3,$I4,0),"")*
Rumu
kalau yang diinginkan sekedar row dinamis , saya menawarkan solusi formula
dinamis dimana untuk seluruh baris yang ada cukup mengcopy dari baris di
atasnya dan akan berubah secara dinamis dan fleksibel sesuai dengan perubahan
referensinya
formula yang sebelumnya
=INDEX(NAMA,SMALL(IF((DIVISI=$F2
Salam para pakar
Saya ingin menanyakan beberapa rumus paduan dropdown list dan vlook up
dari data yang saya lampirkan,
terima kasih atas bantuannya
salam
harry
hbu_asking.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
Para pakar XL, mohon ilmunya diturunkan ke saya dong, perbedaan & plus-minusnya
penyimpanan file dengan format Binary dibanding kalo dengan menggunakan format
penyimpanan macro atau lainnya...
Tks
End SubSub TambahanZZ(MyArray, posisikey)
seharusnya di pisah jadi : End Sub Sub TambahanZZ(MyArray, posisikey)
To: belajar-excel@yahoogroups.com
From: dbpermatas...@gmail.com
Date: Mon, 5 Dec 2011 17:01:39 +0800
Subject: Re: [belajar-excel] Masalah Lookup yang rumit
Private Sub Cmb_Generate_Click()
Dim Rng As Range, W As Long, w1 As Long, aw As Long, hal As Long
w1 = 1
aw = 0
hal = 1
Set WAdd = ActiveWorkbook
'Set Rng = WAdd.Sheets(1).Range("b2")
'Set Rng = WAdd.Sheets(1).Range(Rng, Rng.End(xlDown))
'diganti menjadi
WAdd.Sh
Mr kid saya coba Workbook yang di lampirkan masih terjadi error di tempat dan
problem yang sama
para pakar yang lain mohon pencerahannya
Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
Sidoel
- Original Message -
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Monday, December 0
Dear Andre,
1. Untuk rujukan range dinamis deret bilangan bulat positif :
>> cara 1 ::
ganti Row(1:20) dengan row(nama)-1
>> cara 2 ::
buat nama range (misal baris), dengan refers to : =row( index( nama
, 0 ) ) - 1
kemudian ganti row(1:20) dengan baris
2. Error trap di xl2007, ma
Diinginkan membatasi pemasukan datanya dengan data validation ?
Lha kan sebelumnya di cell itu sudah ada data-validation-nya (=list)
Mengubah *validasi data* setiap sebuah cell habis diisi nilai > 0 tentu
tidak ada
otomatisasinya (kalau harus manual) kecuali boleh dengan makhro
Barngkali penguncia
Dear Exceler,
Apakah formula untuk dynamic row?, file kasus terlampir.
salam
- andre -
FREE 3D MARINE AQUARIUM SCREENSAVER - Watch dolphins, sharks & orcas on your
desktop!
Check it out at http://www.inbox.com/marineaquarium
Formul
Nama sheet di baris
sSht = "SPKL"
disesuaikan jadi spki atau apa itu yang anda miliki.
Kid.
On Mon, Dec 5, 2011 at 16:02, ppc lambda wrote:
> **
>
>
> **
>
> Mr Kid setelah saya Replace code yang lama dengan yang di buatkan Mr kid
> ternyata masih error pada bagian ThisWorkbook.Sheets(sSht).Co
Mr Kid setelah saya Replace code yang lama dengan yang di buatkan Mr kid
ternyata masih error pada bagian ThisWorkbook.Sheets(sSht).Copy
before:=WAdd.Sheets(1)
mohon bantuannya para pakar Excel
Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
Sidoel
- Original Message -
From: Kid Mr.
trimakasih Mr Kid akan saya aplikasikan di tempat ku
Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
Sidoel
- Original Message -
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Monday, December 05, 2011 3:13 PM
Subject: Re: [belajar-excel] Debug dan restart my workbook
Sudah bisa Mr Kid.
Terimakasih pak Udin atas rintisan formulanya
Terimakasih Mas Kid atas solusinya.
Wassalam
Agung W.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On
Behalf Of Kid Mr.
Sent: Monday, December 05, 2011 3:45 PM
To: bel
Coba angka 13 diganti dengan 1 (jika hari pertama sebuah week adalah
minggu), dan 2 jika mulai senin.
Berurusan dengan week number dalam setahun, harus memiliki kriteria yang
jelas titik start yang disebut week pertama sebuah tahun.
Selamat mencoba,
Kid.
2011/12/5
> **
>
>
> Mohon maaf pak Udi
Mohon maaf pak Udin,
Tampaknya belum bisa.
[cid:image001.gif@01CCB363.B9C4ABF0]
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On
Behalf Of Udin Haeruddin
Sent: Monday, December 05, 2011 1:58 PM
To: belajar-excel@yahoogroups.com
Subje
Ops, ada koreksi pada baris :
* lTotalPage = w1 / lRecPerPage*
menjadi :
* lTotalPage = w1 / lRecPerPage + 1*
Kid.
On Mon, Dec 5, 2011 at 15:33, Kid Mr. wrote:
> hehehe...
> ternyata ada attachment yang disusulkan.
>
> Kira-kira scriptnya demikian :
> Private Sub Cmb_Generate_Click()
> Dim
hehehe...
ternyata ada attachment yang disusulkan.
Kira-kira scriptnya demikian :
Private Sub Cmb_Generate_Click()
Dim Rng As Range
Dim sSht As String
Dim W As Long, w1 As Long, aw As Long, hal As Long
Dim lRecPerPage As Long, lTotalPage As Long
'aw = 0
'hal = 1
'init
Mungkin script berikut bisa memberi ide solusi. Sesuaikan kembali dengan
keadaan nyatanya.
Private Sub Cmb_Generate_Click()
Dim Rng As Range
Dim sSht As String
Dim W As Long, w1 As Long, aw As Long, hal As Long
Dim lRecPerPage As Long, lTotalPage As Long
'aw = 0
'hal = 1
54 matches
Mail list logo
