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-
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 hendri
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(,
1).Find(
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,
1).R
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-
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
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 Fi
Pak Hendrik Untuk Input datanya sudah bisa tapi untuk procedure pemanggil
datanya masih blm bisa?? kira-kira ada solusi untuk kasus ini gak pak soalnya
databasenya ada ribuan dengan code yg berbeda-beda sebagian dengan karakter *
Thanks,B'Regards
-Agunk-
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 = Applicat
Mungkin cara berpikirnya harus dibalik pak. Ada nama (nama diinput manual) baru
bisa panggil fotonya kan ?
Salam,
HK
Sent from Samsung Mobile"agungdotco...@yahoo.com [belajar-excel]"
wrote:Pak hendrik...
Kurang lebih jadi begini ya pak..File terlampir
berati untuk Penamaan foto hanya dilakuk
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 = LoadPi
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-
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
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 =
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
RefreshTabe
Bisa Pak.
Salam,
HK
On Monday, 19 May 2014, 19:17, "agungtrisaks...@yahoo.co.id [belajar-excel]"
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 beda.
Mis : input data pertama o
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 Th
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 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]" wrote:
Pak Agunk,
Excel bekerja di dalam sheet yang peka ter
Pak Agunk,
Tlg dilampirkan lagi sheetnya, dijelaskan dari mana mau ditranspose ke mana dan
yang bergeser yang mana.
Salam,
HK
Sent from Samsung Mobile"agungdotco...@yahoo.com [belajar-excel]"
wrote:Bukan pengambilan data biasa pak yang
saya maksud tapi pengambilan data dengan copy transpose
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
IndTBL(n,
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,
Coba di share lagi yang sudah dibuat pakai match...buat bahan perbandingan.
Salam,
HK
Sent from Samsung Mobile"agungdotco...@yahoo.com [belajar-excel]"
wrote:Pak Hendrik. . .
Kalau Pakai Vlookup Rumus e jadi Bagaimana ya pak. . .
Saya Coba Berkali-kali ko Ga bisa terus,,,Hehehe, , ,
Kolom yg
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-
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 Mobile"agungdotco...@yahoo.com [belajar-excel]"
wrote:Maaf pak Hendrik Karnadi, , ,Hehehe
ternyata
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-
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-
...kemudiancopas ke bawah.
On Wednesday, 14 May 2014, 8:51, "hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel]" 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 Formulir sel I7 ketik = F7
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
30 matches
Mail list logo
