Angkat lagi topik ini..
sampai dengan hari ini yang sudah daftar melalui
http://tech.dir.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=2
mencapai
67 orang, 46 orang diantarannya berdomisili di sekitar Jabodetabek.
untuk Be-Exceler yang ingin ikut acara Kopdar Pertama Belajar
Mastah Ghozi & Mr. Kid,
Terimakasih atas pencerahan yang sangat membantu.
Thanks in advance,
Nico
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On
Behalf Of ghozi alkatiri
Sent: Monday, April 15, 2013 9:10 PM
To: belajar-excel@yahoogroups.com
Subject: Bls:
Jika anda pakai Excel 2007 dan formula tsb tidak berfungsi, berarti ada
perbedaan Regional Settingya.
Jika Regional Settingnya Indonesian maka ganti tanda , dengan ;
Salam,
HK
- Forwarded Message -
From: hendrik karnadi
To: "belajar-excel@yahoogroups.com"
Sent: Tuesday, 16 April 2013
Bapak Pakai Excel 2003? Formula IfError berlaku untuk Excel 2007 ke atas.
Coba pakai formulanya Pak Ghozi.
Salam,
HK
From: Rahagung Dananjoyo
To: "belajar-excel@yahoogroups.com"
Sent: Tuesday, 16 April 2013, 12:49
Subject: Re: [belajar-excel] Mengambil data d
Terima kasih pak hendrik untuk sarannya
sudah saya coba formula nya, tetapi kok muncul peringatan
"the formula you typed contains an error"
mohon sarannya
terima kasih
From: hendrik karnadi
To: "belajar-excel@yahoogroups.com"
Sent: Tuesday, April 16, 201
tulis di sheet Data D2
=INDEX(TABEL!$A$5:$J$54;DATA!$B2;MATCH(DATA!D$1;TABEL!$A$1:$J$1;0))
copy ke kanan & ke bawah
wassalam
Ghozi Alkatiri
Dari: Rahagung Dananjoyo
Kepada: "belajar-excel@yahoogroups.com"
Dikirim: Selasa, 16 April 2013 11:55
Judul: [bela
Coba ketik,
=IFERROR(VLOOKUP($B2,TABEL!$B$5:$J$54,5,FALSE),"") pada sheet Data Range D2
=IFERROR(VLOOKUP($B2,TABEL!$B$5:$J$54,7,FALSE),"") pada sheet Data Range E2
kemudian copy ke bawah.
Kalau mau pakai macro dibuat Worksheet Event Change pada VBA Project
Sheet(Data).
Salam,
HK
Maaf mas minta pengarahannya lagi
Sekarang saya pengen validasi datanya berdasarkan Kode Barang
(txtKodeBarangJ.Text), jika kodenya cocok dengan sheet database range A2:A maka
List nama barang (cmbNamaBarangJ.ListIndex) nya terisi sesuai kode barang. Nama
Barang ada di kolom 3 (C:C), Kode Barang
Iya seperti ini mas Kid,
Trimakasih banyak mas, saya kembangkan ke command2 yang lain dulu
Wassalam,
From: Mr. Kid
To: BeExcel
Sent: Monday, April 15, 2013 9:50 PM
Subject: Re: [belajar-excel] UserForm_Initialize validasi dengan combobox
Combobox bert
Apa harus di set dulu mas?
Set Tbl = Tbl.Cells(2, 1)
If cmbNamaBarangJ.ListIndex <> -1 Then
txtKodeBarangJ.Text = Tbl(cmbNamaBarangJ.ListIndex + 1, 1).Value
Tapi hasilnya makin ancur mas Kid
1. Tbl saya merujuk ke range A2:C
2. Tblnya mengambil range C2:C
3.
4. Yang mau di ambil kolom 1 (
coba gunakan formula =TRUNC((A2-$A$2)/7)+1copy ke bawahdimana cell A2 adalah berisi tanggal pertama dimulainya awal mingguwassalamGhozi AlkatiriDari: Mr. Kid Kepada: BeExcel Dikirim: Senin, 15 April 2013 20:23 Judul: Re: [belajar-excel] Formula Range Tanggal
txtKodeBarangJ.text = tbl( cmbnamabarangJ.listindex + 1 , *1* ).value
misal
1. range data di AA101:ZZ500 disimpan dalam variabel bernama Tbl
Tbl.cells( nomor record dalam Tbl , nomor kolom dalam Tbl ).value
bisa ditulis :
Tbl( nomor record dalam Tbl , nomor kolom dalam Tbl ).value
2. Kalau mau am
Trimakasih mas Kid,
txtKodeBarangJ.text = tbl( cmbnamabarangJ.listindex + 1 , 1 ).value
Pas cmbKategoriJ dipilih bari ke-2 atau lebih, cmbNamaBarangJ dipilih
ke-sekian, txtKodeBarangJ nya tetap mengacu ke listindex cmbNamaBarangJ ya mas,
bukan nomer/kode yang ada di range A dst. Misal Kate
Private Sub cmbNamaBarangJ_Change()
if cmbnamabarangJ.listindex<>-1 then
txtKodeBarangJ.text = tbl( cmbnamabarangJ.listindex + 1 , 1 ).value
endif
End Sub
Wassalam,
Kid.
2013/4/15 lapendosol opik
> **
>
>
> Private Sub cmbNamaBarangJ_Change()
>With txtKodeBarangJ
>
> sUn
Maksudnya mungkin weeknum dimulai tergantung tanggal end week nya. Week
yang dimulai tanggal 2012-12-30 akan memiliki end week (hari ketujuh week
tersebut) pada 6 hari setelah tanggal 2012-12-30 yang menjadikan nomor week
berarti sudah masuk ke nomor 1 lagi.
Misal : a2 adalah tanggal mulai week, p
Private Sub cmbNamaBarangJ_Change()
With txtKodeBarangJ
sUniq = "|"
For i = 1 To tRows
If Tbl(i, 3) = cmbNamaBarangJ.Value Then
' TextKodeBarangJ hanya diisi dgn data Uniq saja
If InStr(1, sUniq, "|" & Tbl(i, 1) & "|") = 0 Then
sUniq =
Trimakasih mas Kid tanggapannya :'(
Udah diperbaiki sama cmbNamaBarangJ nya juga udah
Lagi dicoba utak atik txtKode nya dengan cara yang sama, mungkin bisa kali ya
Trimakasih sekali lagi mas Kid
Wassalam,
From: Mr. Kid
To: BeExcel
Sent: Monday, April 15, 201
Bagian script yang berbunyi :
Tbl(i, 1)
artinya dari dalam variabel range bernama Tbl, diambil cell baris ke-i dan
pada kolom ke-1.
Jika Tbl berisi data dari kolom A, maka angka 1 akan menunjukkan kolom A.
Ganti angka 1 dengan yang dibutuhkan.
Wassalam,
Kid.
2013/4/15 lapendosol opik
> **
>
>
Oh iya, sekalian juga untuk C6 dan C5 nya. Dapat dari manakah angka yang
harus dipasang di C6 dan C5 itu.
Tidak semua BeExceller berprofesi seperti Anda loh, yang begitu melihat
sheetnya langsung tahu itu harus diisi dari sini dan situ.
Semoga dengan tambahan keterangan yang lebih detil demikian,
Kok masih ndak ada contoh hasil kerja manual Anda ?
Coba diisi manual di cell C7 sheet k7a modif atau cell lain yang harusnya
ada angkanya.
Kemudian sertakan keterangan pada cell itu (bisa dengan diberi comment)
yang berisi diambil dari sheet K3 cell apa saja.
Wassalam,
Kid.
2013/4/15 Dian Anas
Jawaban dari pertanyaan bisa atau tidak cenderung bisa (walau perlu
diusahakan)
Justru pertanyaannya adalah kenapa setiap user harus memiliki sheet sendiri
untuk data presensinya.
Sebaiknya, data absensi ada dalam sheet absensi terkumpul menjadi satu,
sehingga mudah diolah.
Sheet untuk menampilkan
Dear Nico;
Coba =LOOKUP(Tgl,VGStart,VGWeek)
Wassalam
~ Bagus ~
- Original Message -
From: Rusdiyanto, Nicodemus
To: belajar-excel@yahoogroups.com
Sent: Monday, April 15, 2013 5:51 PM
Subject: [belajar-excel] Formula Range Tanggal
Dear Suhu,
Mohon pencerahannya
Dear Suhu,
Mohon pencerahannya
Di kantor, pembagian weeknum tidak sesuai dengan ada yang di tanggalan
dan formula WEEKNUM-nya excel, karena hanya ada 52 minggu.
Seperti di data yang saya kirimkan tgl 30 Desember 2012 bukan dianggap
sebagai week 52 atau week 53 malah week 1 tahun 2013.
Say
Trimakasih mis Jan
Saya coba ganti lRow nya jadi 5000, hasilnya sama tapi sedikit lebih lambat
seperti kata miss Jan
Terimakasih sekali lagi hehehe
Wassalam,
From: Jan Raisin
To: belajar-excel@yahoogroups.com
Sent: Monday, April 15, 2013 4:52 PM
Subject: Re:
Terimakasih Mr. Ghozi,
Hasil dari formula tersebut seharusnya adalah :
Jika Barang A misalkan : 11.080 maka :
- 2.790 dikalikan Rp 1.000
- 3.720 dikalikan Rp 1.500
- 5.580 dikalikan Rp 2.000
sisanya : dikalikan Rp 2.500
terimakasih
sincerelly yours
Dari: gh
Sama2 pak.
Salam,
HK
From: lapendosol opik
To: "belajar-excel@yahoogroups.com"
Sent: Monday, 15 April 2013, 16:53
Subject: Re: [belajar-excel] Copy Text dari cell yang berisi formula
Trimakasih pak HK, cara ini ternyata bisa juga
Saya ga kepikiran .Val
Trimakasih pak HK, cara ini ternyata bisa juga
Saya ga kepikiran .Value nya. Pikiran saya masih mengacu pada ambil TEXT,
makanya dicobanya pake .Text
Ga kepikiran cobain pake .Value
Sekali lagi terimakasih pak HK
Wassalam,
From: hendrik karnadi
To: "belajar-e
sama-sama,
btw, skript dari pak hendrik akan berjalan lebih cepat karena tanpa looping.
Jan sarankan untuk menggunakan skrip dari pak hendrik, dan bukan
menggunakan skrip dari Jan xixixi :D
Wassalam,
-Miss Jan Raisin-
Pada 15 April 2013 16.47, lapendosol opik menulis:
> **
>
>
> Trimakasih m
Trimakasih mbak Miss Jan tanggapannya, sudah berhasil
Sedikit koreksi tadi lupa menulis, sheet database range D2:D32 berisi formula
(seterusnya tetap formula)
Di copy ke sheet Jual range D2:D32 (berisi text dari database D2:D32), sehingga
code yang saya koreksi menjadi:
Jual.Cells(lRo
coba ganti dengan,
Sheets("Jual").Range("D2:D32").Value = Sheets("Database").Range("D2:D32").Value
untuk menampilkan nilainya.
Salam,
HK
From: lapendosol opik
To: "belajar-excel@yahoogroups.com"
Sent: Monday, 15 April 2013, 16:20
Subject: [belajar-excel] Cop
Wa'alaikumsalam wr. wb.,
coba skrip berikut:
Sub CopyStock()
Dim lRow As Long
lRow = 2
For lRow = 2 To 32
With Sheets("database")
Cells(lRow, 4).Value = .Cells(lRow, 4).Value
End With
Next lRow
End Sub
Wassalamu'alaikum wr. wb.,
-Miss Jan Raisin-
selamat sore be exceller..saya mau tanya didalam tabel ini ada saya masukkan
"NAMA BUAH yg DIBELI" u/ kolom H4. trus yg ingin saya tanyakan.,
Misal JOJO -> buah apa saja yg dibeli oleh JOJO? Nah, nantinya jenis buah2an
apa saja yang dibeli oleh JOJO itu akan muncul di kolom "NAMA BUAH yg DIBELI"
Maaf, sel rujukannya (G5) disesuaikan dengan penempatan kolom bonusnya.
Salam,
HK
- Forwarded Message -
From: hendrik karnadi
To: "belajar-excel@yahoogroups.com"
Sent: Monday, 15 April 2013, 16:18
Subject: Re: [belajar-excel] If Bertingkat
Coba ketik,
=IF(G5<2790,0,IF(G5=2790,10
Dear master Excel,
Saya ingin meng-copy text dari cell yang berisi formula
Sub copystok()
Jual.Range("d2:d32").Value = Database.Range("d2:d32").Text
End Sub
Sheet database cell D2 berisi formula misal =SUM(A2:C2)
Kalo saya pakai cara copy biasa (select D2:D32 sheet database) kemudian dipaste
d
Coba ketik,
=IF(G5<2790,0,IF(G5=2790,1000,IF(G5<=3720,1500,IF(G5<=5580,2000,IF(G5>5580,2500)
pada sel G4, kemudian copy ke samping.
Salam,
HK
From: jonson dahrino
To: "belajar-excel@yahoogroups.com"
Sent: Monday, 15 April 2013, 13:54
Subject: [belajar-
ganti formula sebelumnya di G7 dengan
=INDEX({0;1000;1500;2000;2500};MATCH(C7;{0;2790;2791;3721;5581}))
copy ke bawah
wassalam
Ghozi Alkatiri
Dari: lapendosol opik
Kepada: "belajar-excel@yahoogroups.com"
Dikirim: Senin, 15 April 2013 15:38
Judul: Re: [be
Coba juga cara ke 4,
Cells(5, 11).FormulaR1C1 = "=Sum(RC[-6] : RC[-3])"
Salam,
HK
From: "tio.ad...@ptssb.co.id"
To: belajar-excel@yahoogroups.com
Sent: Monday, 15 April 2013, 10:58
Subject: Re: [belajar-excel] Menjumlahkan dengan R1C1 style dengan parameter
Kalau pakai versi saya, dibutuhkan kolom bantu
Setelah itu gunakan fungsi VLOOKUP
Lebih jelasnya lihat lampiran ya, semoga seperti harapan
Wassalam,
From: jonson dahrino
To: "belajar-excel@yahoogroups.com"
Sent: Monday, April 15, 2013 1:54 PM
Subject: [belaja
Dear master excel,
mohon bantuannya,
saya bingung nih buat if kondisi untuk kasus berikut
kalau ada metode lainnya juga boleh
terimakasih dan sukses slalu
IF bertingkat.xls
Description: MS-Excel spreadsheet
sumbernya : J:\Saham\LK.xlsm dan J:\Saham\OHLC.xlsm.
digunakan di : J:\Saham\Komparasi.xlsm.
sudah di buat, tapi semalam menjadi error lagi .
Pesan error nya : Can't find project or library
Sub Kon_isi_data_LK()
Dim KP_rng As Range, KP_rngLoop As Range
Dim Brs As Long, Klm As Long
Dim t As
Terimakasih banyak ... Master Kid ..
saya pakai cara super hidden untuk menyembunyikan sheet paka VBW -- berhasil
Maaf, saya ada pertanyaan lagi, apakah bisa jika setiap user memiliki sheet
sendiri, sehingga jika klik presensi, langsung masuk ke sheet miliknya. ...
maaf sebelumnya ..
Terimakas
41 matches
Mail list logo