coba tuliskan macro pada tombol OK anda
Private Sub CommandButton1_Click()
Dim sFile As String
Dim x
sFile = ActiveWorkbook.Path & "\" & ComboBox1.Value & "-" &
ComboBox2.Value & "-" & ComboBox3.Value & "-" & ComboBox4.Value & ".doc"
x = Shell("cmd.exe /c " & sFile)
End Sub
Syaratnya file Doc ada di Folder yang salah dengan excel ini, karena saya
gunakan ActiveWorkbook.Path yang hasilnya adalah letak dimana file excel
ini berada
Thanks
Pada 6 Mei 2014 09.44, prazt <[email protected]> menulis:
>
>
> Kopdar 2 hemmm...jauh jg ya dari Wonosobo, kagak bisa ikut nich....
>
> Para master minta solusinya dong cara membuka link dengan syarat yg ada
> pada userform.
>
> Misal pada UserForm saya ketik :
>
> Pada nama : besi
>
> Pada kelas : a
>
> Pada triwulan : 2
>
> Pada tahun : 2014
>
> Maka akan tampil isi file/file yang bernama besi-a-2-2014.doc pada text
> box di excel... ilustrasi pada lampiran...(moga lampiran tidak melebihi
> ketentuan).
>
>
> ------------------------------
> <http://www.avast.com/>
>
> Email ini bebas virus dan malware karena avast!
> Antivirus<http://www.avast.com/>proteksi aktif.
>
>
>
