RE: ]] XL-mania [[ macro yang lemoooOOooott

Dear Gus Tari,

 

Saya bantu ( usul )

1.       Sheet 18 , dirubah menjadi sheet UTAMA, nanti berfungsi sebgai inputan data setiap hari (misal tag 18 jul 12 ), pada cell N1

2.       Cell N2 setiap hari harus diganti sesuai kebutuhan pada sheet UTAMA (sheet akan bertambah dgn nama sesuai cell N1)

3.       Tambahkan code pada module2 yg sdh dibuat dgn :

 

Dim rngName As Range

   Dim rngOutput As Range

   Dim i As Integer

   Set rngName = ThisWorkbook.Sheets("utama").Range("N1")

 

      j = ThisWorkbook.Sheets.Count

       Sheets("Utama").Copy After:=Sheets(j)

       ThisWorkbook.Sheets(j+ 1).Name = rngName.Value

       Set rngName = rngName.Offset(1)

 

Semoga seperti itu dan membantu

 

Salam,

JRM

 

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of gus tari
Sent: Saturday, August 04, 2012 11:06 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ macro yang lemoooOOooott

 

 

Dear para pakar XL mania

Saya mempunyai coding makro (terlampir) yang semakin lemot bila memori
semakin banyak (karena Sheet setiap hari bertambah).
Mohon pencerahan dari pakar semua.
Terimakasih.

Salam
Gustari