[belajar-excel] Digest Number 4847

Milis Belajar Microsoft Excel Group

2 Messages

Digest #4847

1

Fw: [Komunitas Belajar Excel] Komentar baru di Koleksi Macro Dasar E by "hendrik karnadi" hendrikkarnadi

2

Mohon dibantu untuk menampilkan FILE PDF pada TextBox by y.roni35

Messages

1

Fw: [Komunitas Belajar Excel] Komentar baru di Koleksi Macro Dasar E

Thu Sep 12, 2019 5:49 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Dear Dewa,
Maaf, jawabannya "ga nyambung".Spy script VBA nya sesuai kebutuhan mungkin perlu dikirim dummy filenya.Saya yakin banyak rekan yang bisa membantu.
Salam,HK

Sent from Yahoo Mail on Android

On Thu, Sep 12, 2019 at 15:07, hendrik karnadi<hendrikkarnadi@yahoo.com> wrote: Mustinya bisa.Waktu ketik no ID di Userform dicek dulu ke database...kalau IDnya sdh ada ditampilkan datanya tetapi kalau belum data lainnya kosong (harus diisi).
Salam,HK

Sent from Yahoo Mail on Android

On Thu, Sep 12, 2019 at 11:44, dewa<noreply-comment@blogger.com> wrote:

dewa telah membuat komentar baru pada posting Anda "Koleksi Macro Dasar Excel"

teman teman saya mau tanya bagaimana scrip vba untuk menghindari data ganda pada userform ( userform absensi siswa ) jika menginput siswa yang sama hari itu supaya ada peringatan.. siswa bersangkutan sudah absen"

Berhenti berlangganan dari email komentar untuk blog ini.

Diposting oleh dewa ke Komunitas Belajar Excel pada 12 September 2019 11.44

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

2

Mohon dibantu untuk menampilkan FILE PDF pada TextBox

Thu Sep 12, 2019 7:35 pm (PDT) . Posted by:

y.roni35

Dear Rekan2 Sekalian,


Mohon dibantu untuk menampilkan FILE PDF pada TextBox.
Mohon dibantu scriptnya, yang saya punya script untuk menampilkan gambar berikut:


Dim EmpFound As Range
Dim fPath As String
'MENAMPILKAN GAMBAR
With Range("Tampil_Data";)
Set EmpFound = .Find(TextBox3.Value)
On Error Resume Next
If EmpFound Is Nothing Then
Image1.Picture = LoadPicture(fPath & "nopic.gif")
Else
With EmpFound
'Look in the directory where this workbook is located.
fPath = ThisWorkbook.Path & "\"
On Error Resume Next
'If a matching picture is found then display it.
Image1.Picture = LoadPicture(fPath & "\" & TextBox2.Value & ".jpg")
'If No picture found then display the default picture.
If Err = 0 Then Exit Sub
Image1.Picture = LoadPicture(fPath & "nopic.gif")
End With
End If
End With
Set EmpFound = Nothing
With ComboBox34
If lstDT.ListIndex <> -1 Then
TextBox2.Text = lstDT.Text
.Text = lstDT.Value
Else
TextBox2.Text = vbNullString
.Text = vbNullString
.ListIndex = -1
.BackColor = vbWhite
End If
End With






Kiranya Bisa Dibantu script untuk menampilkan File PDF ke TextBox










REgards,
Roni

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Visit Your Group

• Privacy • Unsubscribe • Terms of Use