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
16 matches
Mail list logo
