niki pak agus sing pun kulo edit.. dan berjalan sesuai yang dinginkan
tapi sing niki maksute pripun
1. belum didefinisikan variabel untuk aduhh dengan tipe string.
saya tambahai dim aduhh as string seprtinya sama..
Private Sub CommandButton3_Click()
Dim pileku As String
Dim celladd As String
Dim splitlist As Variant
Dim aduhh As String 'tambah ini atau tidak sekrip jalan
On Error GoTo Err
pileku = Application.GetOpenFilename(Title:="Tulung Bikak Setunggal File
Mawon", _
FileFilter:="Excel Files *.xls* (*.xls*),")
splitlist = VBA.Split(pileku, "\")
aduhh = splitlist(UBound(splitlist, 1))
Workbooks.Open pileku
Sheets("Rincian").Range("C10").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 15).Address(False, False)
Sheets("Rincian").Range("C10:" & celladd).Copy
Windows("Monitoring Jadwal.xlsm").Activate
Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Workbooks.Open pileku
Sheets("Rincian").Range("C55").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 15).Address(False, False)
Sheets("Rincian").Range("C55:" & celladd).Copy
Windows("Monitoring Jadwal.xlsm").Activate
Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Exit Sub
Err:
MsgBox "Mboten Tamtu Mbikak", vbExclamation, "Error"
End Sub
salam
liem
Pada Sabtu, 30 Agustus 2014 10:41, "Nang Agus [email protected]
[belajar-excel]" menulis:
Dear Pak Liem,
Cekripttt yang baru saja saya kirimkan ada beberapa kekurangan, tolong
dilengkapi. antara lain:
1. belum didefinisikan variabel untuk aduhh dengan tipe string.
2. belum ada trap untuk cancel open file. (jika cancel open file akan error)
Wasalam
NangAgus
