OK, pak mengerti terima kasih atas segala bantuannya Regards, Gultom
--- On Mon, 8/8/11, Sudarsono Suhenk <[email protected]> wrote: From: Sudarsono Suhenk <[email protected]> Subject: RE: [belajar-excel] Re: merevisi isi data To: "belajar excel yahoo.com" <[email protected]> Date: Monday, August 8, 2011, 2:57 PM Saya jelaskan sedikit :1. Di Workbook Aktif :1.1. di Sheet kerja pada sel c2 berisi sheet dimana merupakan data yang akan dikopi ( sheettujuan , sebenarnya lebih tetap sheetAsal atau sheetData) 1.2. sheet sumeri merupakan sheet tujuan dari proses pengkopian/sumeri 2. di workbook yang dibuka ( dengan fungsi FileDialog )2.1 terdapat sheet yang mana data berada ( namanya di simpan di sel C2 di Workbook aktif Sheet kerja ) To: [email protected] From: [email protected] Date: Mon, 8 Aug 2011 15:37:17 +0800 Subject: Re: [belajar-excel] Re: merevisi isi data heh heh pikirin sudah close karena sudah ada masukan sebelumnya cuman jadi prtanyaan knapa harus ada "'tetap diperlukan sheettujuan = Sheets("kerja").Range("c2") 'ubah" dan aplikasinya belum mengerti walaupun saya sudah rubah "kerja" menjadi "revisid" dan fill C2 dengan " sumeri" mohon guidancenya Regards, Gultom --- On Thu, 8/4/11, sudarsono <[email protected]> wrote: Sub zya() Dim filerev As String Dim sel, ketemu As Range Dim wk, wkrev As Workbook Set wk = ActiveWorkbook 'tetap diperlukan sheettujuan = Sheets("kerja").Range("c2") 'ubah ' baru Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant With fd .InitialView = msoFileDialogViewDetails .AllowMultiSelect = False .Filters.Add "excel", "*.xls;*.xlsx", 1 If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems filerev = vrtSelectedItem Next vrtSelectedItem Else GoTo labelexit End If End With Set fd = Nothing ' akhir baru Set wkrev = Workbooks.Open(Filename:=filerev) For Each sel In wkrev.Sheets(sheettujuan).Range("Q31:Q34") nilaicari = sel.Offset(0, 0) nilaiganti = sel.Offset(0, -1) Set ketemu = carinilai(wk.Sheets("Sumeri").Range("N8:O29"), nilaicari) If Not ketemu Is Nothing Then ketemu.Offset(0, -1) = nilaiganti End If Next Windows(wk.Name).Activate labelexit: End Sub ------------------------------------ --------------------------------------------------------------------- bergabung ke milis (subscribe), kirim mail kosong ke: [email protected] posting ke milis, kirimkan ke: [email protected] berkunjung ke web milis http://tech.groups.yahoo.com/group/belajar-excel/messages melihat file archive / mendownload lampiran http://www.mail-archive.com/[email protected]/ atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/ menghubungi moderators & owners: [email protected] keluar dari membership milis (UnSubscribe): kirim mail kosong ke [email protected] ---------------------------------------------------------------------Yahoo! Groups Links
