Mau nanya sedikit Mr.Kid,
saya blm coba, cuma melihat penjelasan Mr. Kid bahwa yang dicari adalah data
yang sesuai dengan Range I7 sheet Formulir yang ada pada kolom A sheet
Database bukankah codenya menjadi seperti ini:
Set RgFind =Sheets(Database).Range(A4).CurrentRegion.Resize(,
Ya Pak HK, dengan asumsi, hasil penggabungan 2 buah kriteria di sheet
formulir sama dengan format nilai data di kolom A sheet database.
Kalau ndak salah, enumeration untuk parameter lookin adalah xlValues deh...
coba dicek ulang.
Wassalam,
Kid.
2014-06-07 14:18 GMT+07:00 Hendrik Karnadi
Mr.Kid Pak Hendrik...
Saya Coba ko ga bisa ya pak...scriptnya Mr.Kid ma Pak HK saya gbungkan...
Mumpung, minggu2 lembur pak...
Sekalian otak-atik scriptnya. . .
Thanks,B'Regards
-Agunk-
Mr.Kid atau Be-Exceller yg lain gimna ya, saya masih penasaran nih, , belum ada
solusinya, , ,Untuk Solusinya Mr.Kid Saya masih belum begitu paham. .
.Barangkali Mr.Kid atau BeExceller yg lain ada yg mau memberi solusi atau
penjelasan ttg kasus ini.
Thanks,B'Regards
-Agunk-
Pak Agunk,
*Bagian find diubah untuk mencari di kolom A database.* *Nilai yang
di-search pada Find adalah nilai cell i7 (hasil penggabungan).* *Parameter
Lookin di set dengan xlValues agar mencari di values-nya cell.*
Set RgFind = *Sheets(Database).Range(A4).CurrentRegion.Offset(0,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = $H$7 Then
If IsEmpty(Target) Then Exit Sub
RefreshTabels
Set RgFind = Sheets(Database).Range(A4).CurrentRegion.Offset(0,
1).Resize(, 1).Find(Range(A:A), LookIn:=xlValue)
If Not RgFind
Bagian find diubah untuk mencari di kolom A database. Nilai yang di-search
pada Find adalah nilai cell i7 (hasil penggabungan). Parameter Lookin di
set dengan xlValues agar mencari di values-nya cell.
Begitu dapat recordnya, cell F3 di formulir diisi dengan nilai dari kolom B
nya si baris hasil
Mr.Kid Saya masih belum pham untuk pemasangan fotonya dan mengganti nama file
yang ada dicell f23, soalnya nama file fotonya sama dengan nama order
tersebut...
Sementara Untuk ambil data dari database saya gunakan ini saya letakkan pada
event Worksheet_Change
On Error GoTo GbKosong
Pak Agunk,
ambil foto baru :
Private Sub Cmd_Foto_Click()
On Error Resume Next
Dim Filter As String, Title As String, FileX As String
Dim SourceFile, DestinationFile
X.SetFocus
Filter = JPG Image Files Only(*.jpg),*.jpg,
Title = Silahkan Pilih Logo
FileX =
Walah mas...
malah mempersulit diri sajah pake cari-cari script baru, bukannya
memperbaiki script simple yang sudah ada...
kelamaan muter-muter malah puyeng loh..
1. pasang gambar
Entah Anda dapat script ini darimana :
Sheets(Formulir).Image1.Picture = LoadPicture(FileX)
'Image1.Picture =
Mungkin cara berpikirnya harus dibalik pak. Ada nama (nama diinput manual) baru
bisa panggil fotonya kan ?
Salam,
HK
Sent from Samsung Mobileagungdotco...@yahoo.com [belajar-excel]
belajar-excel@yahoogroups.com wrote:Pak hendrik...
Kurang lebih jadi begini ya pak..File terlampir
berati untuk
Dalam Excel, yang biasa kita pakai adalah judul kolom A, B, C, D, dst.nya dan
judul baris 1, 2, 3, 4, dst.nya.
Notasi R1C1 artinya baik kolom maupun baris dimulai dengan 1 (tidak ada huruf)
dan untuk membedakan baris dan kolom dipakailah R(Row) untuk baris dan
C(Column) untuk kolom, jadi R1C1
Tambahkan saja image control di sheet Anda itu. Beri nama Image1.
Sebaiknya ada proses copy file gambar yang dipilih user ke sebuah folder.
Lalu tulis juga nama file salinan itu ke sheet database.
Kalau semua gambar Anda simpan ke sheet database dalam bentuk shapes
picture atau image control, maka
Trima kasih Pak Hendrik dan Mr Kid Atas Sarannya Nanti saya coba lihat lagi
arsip dimilis kali aja ada yang bisa dibuat referensi untuk kasus ini, Biasanya
Peninggalan dari Ctv ada...
Thanks,B'Regards
-Agunk-
Pak Agunk,
Setelah saya coba lagi, kayaknya masih ada kekeliruan teknis.
Sedang saya perbaiki, semoga bisa selesai secepatnya.
Salam,
HK
On Monday, 19 May 2014, 13:43, hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel] belajar-excel@yahoogroups.com wrote:
Pak Agunk,
Excel bekerja
Pak hendrik, , ,sya tdi jga smpt nyoba soale hbis meeting jdi buru2, , ,kyake
pada saat mau edit data tpi ditolak terus sama prosedur pemanggil datane
hilang, , , sya jga blm smpt cek smua pak. . . Thanks -Agunk-
Pak Hendrik maaf blm bisa nyoba, besok baru bisa nyoba,, Sya mau menambahkan
untuk data yg diINPUT dgn catatan bahwa ORDER boleh sama tapi code harus beda.
Mis : input data pertama order 814021NU code 50, kemudian input data lagi order
814021NU code 70. dst soalnya 1 order ada banyak code pak
Bisa Pak.
Salam,
HK
On Monday, 19 May 2014, 19:17, agungtrisaks...@yahoo.co.id [belajar-excel]
belajar-excel@yahoogroups.com wrote:
Pak Hendrik maaf blm bisa nyoba, besok baru bisa nyoba,,
Sya mau menambahkan untuk data yg diINPUT dgn catatan bahwa ORDER boleh sama
tapi code harus
Pak Agunk,
Kalau mau otomatis ditampilkan datanya ketika mengetik Code pada sel H7 maka
bisa ditambahkan Event Worksheet_Change ini sebagai trigger,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = $H$7 Then
If IsEmpty(Target) Then Exit Sub
Bukan pengambilan data biasa pak yang saya maksud tapi pengambilan data dengan
copy transpose yang nantinya data mau diinput,edit atau dihapus...
Saya Mengalami kendala lagi pak ,,untuk input datanya jadi berubah semua. .
.Saya agak bingung nih pak dengan perintah
RefreshTabels
Pak Agunk,
Tlg dilampirkan lagi sheetnya, dijelaskan dari mana mau ditranspose ke mana dan
yang bergeser yang mana.
Salam,
HK
Sent from Samsung Mobileagungdotco...@yahoo.com [belajar-excel]
belajar-excel@yahoogroups.com wrote:Bukan pengambilan data biasa pak yang
saya maksud tapi pengambilan
Pak Hendrik. . . Kalau Pakai Vlookup Rumus e jadi Bagaimana ya pak. . .
Saya Coba Berkali-kali ko Ga bisa terus,,,Hehehe, , ,
Kolom yg Dilookup Kolom yang mana ya pak??
Saya Jadi Penasaran Pak...
Thank,B'Regard
-Agunk-
Coba di share lagi yang sudah dibuat pakai match...buat bahan perbandingan.
Salam,
HK
Sent from Samsung Mobileagungdotco...@yahoo.com [belajar-excel]
belajar-excel@yahoogroups.com wrote:Pak Hendrik. . .
Kalau Pakai Vlookup Rumus e jadi Bagaimana ya pak. . .
Saya Coba Berkali-kali ko Ga bisa
Pak Agung,
Coba ketik =F7|H7 di selI7 sheet FORMULIR,
dan ketik =VLOOKUP($I$7,Database!$A$5:$R$1,4,FALSE) di selF8 sheet FORMULIR.
Untuk F9 dstnya tinggal sesuaikan kolom pada sheet Databasenya (warna merah).
Kolom bantu pada sheet Database adalah kolom pertama.
Selamat mencoba.
Salam,
HK
Maaf pak Hendrik Karnadi, , ,Hehehe ternyata Rumusnya jadi begini
=IFERROR(MATCH(I7,Database!A:A,0)-4,)
tadi salah.. . Sekarang sudah bisa
Terima kasih pak. ..
Smoga ilmunya terus berkembangSalam Be-Excel...
Thanks
-Agunk-
Sama-sama pak Agung.
Supaya tambah mantap, bisa coba =Vlookup(I7,tabeldata tmsk kolom bantu, kolom
ke berapa yang dilookup,0).
Kalau sdh berhasil bisa di share lagi.
Salam,
HK
Sent from Samsung Mobileagungdotco...@yahoo.com [belajar-excel]
belajar-excel@yahoogroups.com wrote:Maaf pak Hendrik
Pak Agunk,
Insert 1 kolom (kolom A) sebagai kolom bantu.
Pada sel A5 Sheet Database ketik =Left(C5,3)|Left(H5,2), kemudian
Di Sheet Formulir sel I7 ketik = F7|H7
Lalu gunakan Vlookup pada Sheet Formulir (kolom bantu pada Sheet Database
sebagai table array dan sel I7 pada Sheet Formulir sebagai
...kemudiancopas ke bawah.
On Wednesday, 14 May 2014, 8:51, hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel] belajar-excel@yahoogroups.com wrote:
Pak Agunk,
Insert 1 kolom (kolom A) sebagai kolom bantu.
Pada sel A5 Sheet Database ketik =Left(C5,3)|Left(H5,2), kemudian
Di Sheet
Dear Pak HK Untuk Rumus Vlookupnya kan jadi begini
=IFERROR(VLOOKUP(I7,Database!A:A,0)-4,)
tapi saya jalankan ko gak bisa ya pak. . .
Apa masih ada yang harus diganti lagi. . .
Thank,B'Regards
-Agunk-
29 matches
Mail list logo
