Der PaK Liem,
Mohon maaf ternyata saya salah tentang variabel aduhh,
silahkan variabel aduhh beserta formulanyua dapat dibuang.
jadi cekrip panjenengan dapat dipersingkat menjadi:
Private Sub CommandButton3_Click()
Dim pileku As String
Dim celladd As String
On Error GoTo Err
pileku = Application.GetOpenFilename(Title:="Tulung Bikak Setunggal File
Mawon", _
FileFilter:="Excel Files *.xls* (*.xls*),")
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
Dicobi rumiyin,
Salam
Nang Agus
2014-08-30 11:13 GMT+07:00 Liem Suliem [email protected]
[belajar-excel] <[email protected]>:
>
>
> 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
>
>
>
>
