Kelihatannya agak sulit, karena jumlah kolom input (sheet problem) dan output (sheet mdata) tidak sama, dan pada sheet problem ada baris2 judul (Normatif, Adaptif...)
Salam, Hendrik Karnadi ________________________________ From: Md Switra <[email protected]> To: "[email protected]" <[email protected]> Sent: Thursday, 10 January 2013, 18:30 Subject: Bls: [belajar-excel] Cara menyederhanakan Formula VB untuk proses copy. >________________________________ >Terima Kasih atas bantuannya sangat bermanfaat. >Ternyata berkedipnya hilang dan proses copynya juga begitu cepat. >Saya ada pertanyaan lagi, Apakah bisa membuat formula dibawah ini menjadi >lebih sederhan tanpa pengulangan? Mohon petunjuknya lagi... > >Private Sub CmdMM_Click() > 'Normatif > Range("F4:j4").Copy > Sheets("Mdata").Range("e11").Offset(Range("o2").Value).PasteSpecial xlPasteAll > Range("F5:j5").Copy > Sheets("Mdata").Range("j11").Offset(Range("o2").Value).PasteSpecial xlPasteAll > Range("F6:j6").Copy dan seterusnya seperti dalam lampiran... >End Sub > > > > > >Coba tambahan Application.ScreenUpdating = False danApplication.Calculation = >xlCalculationManual setelah Private Sub >dan Application.ScreenUpdating = True dan Application.Calculation = >xlCalculationAutomatic sebelum End Sub. > > >Salam, >Hendrik Karnadi > > > > > >________________________________ > > >Mohon bantuannya untuk problem saya. >Saya memiliki problem dalam menyederhanakan proses mengcopy data karena setiap kali saya tekan Tombol SAVE maka akan terjadi proses berkedip. > >Dimana data pada "F4: J43" Ingin saya copy ke sheet (Mdata) sesuai dengan >urutannya. >Mohon Bantuannya untuk membuat proses ini lebih cepat dan ndak berkedip. >Makasih atas bantuannya. > > >saya juga sertakan filenya... > > > > >
