Dear Pak Dewan,
Panggil pak Dewan gpp ya, kan ga mau dipanggil pak Menteri (eh salah orang ya)..
Untuk kasus Anda, bedakan antara penulisan Row dengan Rows.
Benar :
Set CellTujuan1 = Sheet2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
Salah :
Set CellTujuan1 = Sheet2.Cells(Row.Count,
Dear Prabowo,
Karena tabel anda bukan berupa struktur database, maka tidak dapat
difilter dalam kondisi merge cells (cells tidak sehat).
Solusi :
1. Unmerge cells dahulu seluruh header yang akan difilter,
2. Tempatkan filter di header paling bawah, dalam kasus ini baris header ke 2.
3. Baru di
Dear Sinurat,
Horas.. Sumut juga nich.. Melihat kebutuhan Anda, batas bawah belum
dapat dipastikan. Untuk itu digunakan rumus INDIRECT sehingga batas
bawah 26 dpt diganti dengan rujukan sebuah cell yang isinya batas
bawah. Rujukan tersebut dapat dibuat dengan rumus
Dear Harry,
Untuk soal 1 maksudnya saat tombol commandbutton di klik? Lebih bagus
saat event textbox NIP after update / change.
Untuk soal 2 mungkin, gunakan combobox (sudah sering dibahas di milist)
Untuk soal 3 gunakan Date. Misalnya txtTglPinjam = Date
Untuk soal 4 mungkin, gunakan DTPicker
Dear Harry,
Bukan Harry Potter kan.. Hehehe..
Coba =VLOOKUP(B3;Kembali!$B:$E;4;0)
Blessings,
Fran'z
On 7/23/11, Hariansyah hariansyah...@yahoo.com wrote:
Terima kasih atas koreksi dan infonya.
Bersama ini saya lampirkan file yang lebih kecil sebagaimana kiriman
Moderator.
Terima kasih
Dear Harry,
Text berkedip, merupakan permainan font color + timer. Jika sheet
diproteksi, maka font color tidak dapat berubah. Demikian halnya
format cells juga di lock.
Menurut saya, kondisi ini bersifat tolak belakang. Jika ingin
dipaksakan, maka sheet harus setiap saat diunprotect dan
RefEdit, salah satu toolbox yang disediakan oleh excel. Tetapi dari
microsoft sendiri selalu merujuk kepada penggunaan inputbox dengan
type 8. Adakah teman2 yang mempunyai sedikit klue bagaimana cara
menggunakan event di RefEdit? Saya sudah mencoba tetapi hasilnya
selalu file excel tersebut crash.
Dear Mamuda,
Private Sub TeksHarga_Change()
TeksHarga = Format(TeksHarga, ##,###)
End Sub
Blessings,
Fran'z
On 7/18/11, MAMUDA PONTIM uud_mam...@yahoo.com wrote:
Mohon pencerahan sekali lagi para pakar tentang cara menformat TextBox pada
UserForm menjadi Currency. Sehingga tidak kesulitan
Dear Tjahya,
Bukankah fitur tersebut sudah disediakan oleh excel? Tinggal diubah
pada list To Book nya saja.
Blessings
Fran'z
On 7/16/11, Tjahya Hartono tjahyahart...@yahoo.co.id wrote:
Dear master ex-cel,
Saya sudah belajar cara create sheet sama master kayak Stdev, Mr.Kid,
Haps,dan
Sungguh penjelasan yang luar biasa.. Banyak hal baru yang saya belajar
dari module tersebut.. TOP banget
Blessings,
Fran'z
On 7/16/11, Mr. Kid mr.nm...@gmail.com wrote:
Dear Mr. Tjahya,
Untuk input data issue, mungkin bisa disusun mirip input untuk data company.
Silakan dikembangkan.
Dear Eko,
Nambah koleksi.. Alternatif lain. Semoga bermanfaat.
Helper :
=VALUE(COUNTIF($D$4:$D$58;D4)TEXT(MATCH(D4;$D$4:$D$58;0);0)TEXT(IF(COUNTIF($D$4:D4;D4)=COUNTIF($D$4:$D$58;D4);COUNTIF($D$4:$D$58;D4);0);00))
Keterangan : =INDEX('List Data'!$D$4:$D$58;MATCH(LARGE(('List
Maaf, cuplikan vba tertinggal..
Sub CreateSheet()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 2 To Sheet1.UsedRange.Rows.Count
'copy sheet template
Sheets(Tmplt).Select
Sheets(Tmplt).Copy After:=Sheets(Sheets.Count)
Sheets(Tmplt (2)).Select
Dear Ridwan,
Ganti define names Tanggal menjadi
=OFFSET(Utility!$B$1;1;0;COUNTA(kolektor);1)
Blessings,
Fran'z
On 7/12/11, Ridwan Rahman ridwan7...@gmail.com wrote:
Para master dan rekan sekalian,
Saya lagi coba ngutak-ngatik dropdown list untuk filter dinamis, tapi belum
berhasil..
Dear Yvonne,
Sedikit masukan, jumlah data yang akan dibanding harus sama dengan
jumlah row yang akan didefinisikan. Misalnya Trans!C3:C1500 » 1498
record, maka row harus (1:1498). Jumlah data (x) = Jumlah baris (y),
seperti aturan main Sumproduct. Semoga membantu.
CMIIW
Blessings,
Fran'z
On
=(C$1=WEEKNUM(Sheet1!$C4;16))*(C$1=WEEKNUM(Sheet1!$D4;16))
CMIIW.
Blessings,
Fran'z
On 6/24/11, Franciscus SOG jclu...@gmail.com wrote:
Dear thomas,
Terlampir menggunakan jurus Conditional Formatting.
Formula Conditional Formatting :
=OR(NOT(ISNA(VLOOKUP(C$11.C$1.RIGHT($B12);key_1;1;0
Dear Ronald,
Asumsi data di A1, ketik rumus di B1
=SUBSTITUTE(A1;-;)
Blessings,
Fran'z
On 6/21/11, sarma diaz sh.ron...@yahoo.co.id wrote:
Selamat siang rekan sekalian,
Mohon dibantu rumus untuk menghilangkan tanda - .
Contoh :
100-11-11311 menjadi 100311
100-11-11314 menjadi
Dear isti,
Gunakan array formula.
=INDEX(Sheet2!$A$4:$A$35;MATCH(0;COUNTIF(Sheet1!$A$2:A2;Sheet2!$A$4:$A$35);0))
Akhiri dengan menekan tombol Ctrl+Shift+Enter bersamaan.
Blessings,
Fran'z
On 6/21/11, isti_astro istias...@gmail.com wrote:
Dear Para Master Excell,
Mohon bantuannya cara
Dear Isti,
Sama2.. belajar-excel ga bakal nyesel..
Blessings,
Fran'z
On 6/21/11, isti_astro istias...@gmail.com wrote:
Wah tokcer rumusnya...terima kasih banyak Pak Frans mantap dah. Maklum masih
bingung masalah nested formula.
regards,
Isti
2011/6/21 Franciscus SOG jclu...@gmail.com
Dear Debi,
Sama2.. belajar-excel ga bakal nyesel..
Blessings,
Fran'z
On 6/21/11, debi agung debi_agta...@yahoo.com wrote:
Terima Kasih atas bantuannya, ini sangat membantu kami
DEBI AGUNG
--- On Tue, 6/21/11, Franciscus SOG jclu...@gmail.com wrote:
From: Franciscus SOG jclu
Dear agung,
Untuk mempersempit ruang lingkup masalah,
1. mohon sebutkan aplikasi email yang Anda gunakan. Apakah outlook
express? Microsoft Outlook (versi brp)? Thunderbird, dll?
2. Setelah Anda mendelete, apakah aplikasi tersebut sudah Anda tutup
dan buka kembali atau belum?.
3. Apakah Anda
: Franciscus SOG jclu...@gmail.com
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 18 Juni 2011 11:32
Judul: Re: [belajar-excel] nubie minta tolong copy data beda tempat
Dear Irham,
Semoga membantu, pemanfaatan kolom dan row bantu.
Blessings,
Fran'z
On 6/18/11, Irham M irham_n
Dear Anto,
Permintaan Anda itu mungkin dilakukan.
Untuk set print area, jika Anda menginginkan setiap 30 baris data
menjadi next page. Maka Anda perlu insert 1 row sebagai pembatas.
Karena (A1:A30,A31:A60) dibaca menjadi (A1:A60).
Dampak dari insert row tersebut bisa mempengaruhi hasil di
Dear nunuh,
Anda dapat menggantinya dengan coding :
DatePicker1.Value = Format(Now,dd/mm/) » tampilan 16/06/2011
DatePicker1.Value = Format(Now,dd-mm-) » tampilan 16-06-2011
DatePicker1.Value = Format(Now,dd ) » tampilan 16 Juni 2011
dsb
Coding dimasukkan ke dalam
Dear jajang,
Anda dapat menggunakan fungsi INDIRECT. Tetapi file database tetap
harus dibuka (open) agar data harian terupdate. Hal ini dapat
dieliminir dengan macro.
Menurut saya rumusnya kurang lengkap, karena hanya terbaca lokasi
file, nama file. Tetapi nama sheet dan range data tidak ada.
Selama ini, dari sejak saya bergabung s/d sekarang. Belum ditemukan adanya
macro yang sifatnya destroy tetapi solved.
Jika Anda ragu akan macro yang terdapat dalam file excel, maka Anda tidak
perlu langsung men-enabled macro tersebut, tetapi Anda dapat Debug » Step
Into [F8] melalui Microsoft
Dear raodah,
1. Block semua cell yang ada di sheet tersebut.
2. Format cells » Protection » Unchecked Locked
3. Block cell yang Anda ingin di locked.
4. Format cells » Protection » Checked Locked
5. Protect sheet Anda.
Cell selain di locked bisa juga di hidden (untuk mencegah rumus atau
nilai
Dear raodah,
Karena Anda pendekar bertangan kosong (tidak membawa sheet) maka saya
mengasumsikan bahwa Anda ingin angka tersebut tidak nampak di cell
yang memenuhi conditional formating yang bernilai TRUE. Untuk
mengakali hal ini, ubah warna font sama dengan warna fill yang Anda
buat. Misalnya
Dear syukur,
Bisa.. solusi macro sudah diberikan oleh miss ctv. Saya memberikan
solusi picture + define names. Silahkan disesuaikan sesuai kebutuhan.
Berhubung file attachment 430 KB, maka sebelum disandera momod, saya
upload ke http://db.tt/YxG2V5k
Blessings,
Fran'z
On 6/10/11, abu farabi
Dear syukur,
Versi lain, define names yang bukan lg menuju picture tapi warna
range. Hasil view juga lebih mantap.. ga ada lg 3 warna dalam 1
picture.
Saya upload di http://db.tt/rpQJ1ya biar ga disandera momods.
Blessings,
Fran'z
On 6/10/11, Franciscus SOG jclu...@gmail.com wrote:
Dear
Jika menggunakan office 2007, bisa menggunakan conditional formating.
Tetapi jika menggunakan office 2003 tidak semua kondisi dapat dibuat.
Karena kondisi yang ada 12 warna. Ataukah ada yang bisa?? Share dunk..
Blessings,
Fran'z
On 6/10/11, summonery summon...@yahoo.com wrote:
kenapa tidak
Dear Hendrik,
Saya coba jawab ya. Abis dari tadi nunggu pertanyaan dari milist ga ada2.
48 » vbExclamation
64 » vbInformation
16 » vbCritical
32 » vbQuestion
Angka ini hanya dapat digunakan bersamaan dengan coding Msgbox, dan
merupakan syntax untuk [Buttons As VbMsgBox Style = vbOkOnly] yang
Dear Andi,
Saya coba membantu, masih meraba2.
Bulan(n-1) :
=IF(DATEDIF($F8;DATE(2010;12;31);m)K8*12;K8*12;DATEDIF($F8;DATE(2010;12;31);m))
Bulan(n) :
=IF(DATEDIF($F8;DATE(2011;12;31);m)(K8*12);K8*12;DATEDIF($F8;DATE(2011;12;31);m))-Q16
CMIIW
Blessings,
Fran'z
On 6/9/11, sudarsono
Dear Yvonne,
2 solusi diberikan :
=SUMPRODUCT(($A$5:$A$35=H3)*($A$5:$A$35I3))
=FREQUENCY($A$5:$A$35;I3:I8) » Array formula
Blessings,
Fran'z
On 6/10/11, Yvonne yvo...@astridogroup.com wrote:
Dear TTM,
mohon bantuanny untuk masalah terlampir.
saya mengalami masaalah dlm kriteria.
tq
Dear Yvonne,
Tidak bisa, maka dari itu menggunakan rumus SUMPRODUCT atau FREQUENCY
seperti lampiran sebelumnya.
Blessings,
Fran'z
On 6/10/11, Yvonne yvo...@astridogroup.com wrote:
brarti kalo rumus countif di 2003 tidak bisa pake 2 kriteria ya?
- Original Message -
From:
Dear Miss ctv,
Sepertinya terdapat perbedaan perhitungan manual dengan hasil rumus Anda.
CMIIW
Blessings,
Fran'z
On 6/7/11, STDEV(i) setiyowati.d...@gmail.com wrote:
*REKAP*
USIA
TAHUN
*= 25*
*26 - 30*
*31 - 35*
*36 - 40*
*41 - 45*
*= 46*
pembatas
25
30
35
40
45
saya ucapkan banyak terimakasih atas segala masukan dan support
nya temanz..
Salam,
Tony
--- Pada Jum, 3/6/11, Franciscus SOG jclu...@gmail.com menulis:
Dari: Franciscus SOG jclu...@gmail.com
Judul: Re: [belajar-excel] Menghitung pemakaian user
Kepada: belajar-excel@yahoogroups.com
Dear Arief,
Kenapa tidak disederhanakan dengan copy » pastespecial
(value+transpose) saja. Lebih gampang.
Blessings,
Fran'z
On 5/31/11, Arief P. Sukarno mas_ri...@yahoo.com wrote:
Makasih buat Mbak Siti dan Mr. Kid atas jawabannya..alhamdulillah sudah
bisa...tapi saya menemukan kebingungan
Dear Ahmad,
Anda puas, kami senang..
Blessings,
Fran'z
On 5/30/11, Ahmad Fauzi fauzie...@yahoo.co.id wrote:
terima kasih sdr Fran'z.
coding yang anda berikan sangat bermanfaat sekali
Dari: Franciscus SOG jclu...@gmail.com
Terkirim: Sen, 30 Mei
Application.ScreenUpdating = True
MsgBox Data sudah disimpan, vbInformation, Success..
Blessings,
Fran'z
On 5/30/11, Ahmad Fauzi fauzie...@yahoo.co.id wrote:
Terima kasih Sdr. Franciscus SOG
saran yang anda berikan itu memang maksud saya, untuk form FormIsi itu tidak
saya gunakan (maaf lupa saya hapus
Dear Agung,
Berhubung mau cepat, langsung saja ya..
1. Validasi inputan No.Tag tidak ada masalah. Masalahnya ada di event
ComboBox1_Change, karena Anda menggunakan kondisi If lIdxCbo -1
Then baru bisa menjalankan rumus offset. Saran : mungkin Anda dapat
menghilangkan kondisi If diatas
Dear Ahmad,
Membatu Anda? Mungkin saya tidak bisa, tapi membantu Anda mungkin saya bisa.
Sebelum saya membantu Anda, mohon Anda membantu saya dahulu (jadi
keingat tolong-menolong dan tepa selira, pelajaran PPKN doeloe..)
Maksud pertanyaan Anda menyimpan hasil inputan data :
1. Menyimpan data di
Dear Rasyid,
Contoh lain, menggunakan define name.
File terlalu besar, tidak dapat dikompresi dibawah 200kb. SIlahkan
download disini : http://db.tt/XxbLBc9 (maaf ya mods..)
Blessings,
Fran'z
On 5/26/11, Contract Mining Assistant, Asam-Asam
apassist...@arutmin.com wrote:
Dear teman teman
Dear Ismail,
Jika dapat diselesaikan dengan formula, lbh bagus pake formula daripada macro.
Gudang Pojok :
=INDEX(Gudang!$F$5:$F$9;MATCH(MAX((MONTH(Gudang!$C$5:$C$9)=MONTH(Rekap!$C$3))*(Gudang!$C$5:$C$9));Gudang!$C$5:$C$9;0))
Gudang Timur :
Dear Reni,
Karena ketiga nilai yang akan dibandingkan adalah angka, dapat
menggunakan rumus IF + COUNT.
=IF(COUNT(C5:E5)=3;YES;NO)
Karena #N/A bukan angka, maka otomatis akan menghasilkan NO (jika
salah satu hasil = #N/A).
Semoga membantu.
Blessings,
Fran'z
On 5/25/11, STDEV(i)
44 matches
Mail list logo