Re: [belajar-excel] MODUL VBA

2018-02-21 Terurut Topik hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel] 
 Coba search di internet juga.Ada beberapa yang bisa diunduh secara gratis.
Salam,HK

On Thursday, 22 February 2018, 11:02:26 AM GMT+7, s munawaroh 
munawaroh@gmail.com [belajar-excel]  wrote:  
 
     

pak ada yang bisa berbagi materi/modul excell VBA?? dari mulai tingkat dasar 
sampai expert. dalam bentuk e-book/pdf/.doc juga gak papa. 
terimakasih sebelumnya.  

Re: [belajar-excel] MODUL VBA

2018-02-21 Terurut Topik Nangagus nanga...@gmail.com [belajar-excel] 
Belajar VBA mulai dari sini 




On 21/02/2018 19:55, s munawaroh munawaroh...@gmail.com [belajar-excel] 
wrote:
pak ada yang bisa berbagi materi/modul excell VBA?? dari mulai tingkat 
dasar sampai expert. dalam bentuk e-book/pdf/.doc juga gak papa.


terimakasih sebelumnya.

[belajar-excel] MODUL VBA

2018-02-21 Terurut Topik s munawaroh munawaroh...@gmail.com [belajar-excel] 
pak ada yang bisa berbagi materi/modul excell VBA?? dari mulai tingkat
dasar sampai expert. dalam bentuk e-book/pdf/.doc juga gak papa.

terimakasih sebelumnya.

Re: [belajar-excel] Modul VBA Pembukuan

2013-03-17 Terurut Topik dhen.baguse 
salam,

terimakasih atas masukan dan saran yang sangat membantu dan meringkas prosedur 
yang saya tanyakan. Setelah saya terapkan dalam prosedur mucul debug sbb :  
 sht.Range(Range(b11), 
Range(b11).End(xlDown).End(xlToRight)).ClearContents 
debug tersebut sebenernya salah dipoint mana? saya coba deteksi satu satu juga 
belum berhasil, mohon masukan temen temen lagi... Apakah 3 prosedur di jadikan 
1 tombol bisa? untuk mempersingkat menjalankan prosedur, selama ini saya 4 
prosedur dengan 4 tombol juga:)

terimkasih 



 From: Mr. Kid mr.nm...@gmail.com
To: belajar-excel@yahoogroups.com 
Sent: Sunday, March 17, 2013 12:42 PM
Subject: Re: [belajar-excel] Modul VBA Pembukuan
 

  
Hai Bagus,

File terlampir baru berisi prosedur DistKeSheet.
Dalam prosedur tersebut sudah ada berbagai bentuk rujukan tanpa harus 
mengaktifkan (select atau activate) si object.
Pemasangan formula bisa langsung ke banyak range (beda kolom dan baris) dengan 
tetap memegang kaidah absolute reference (pengaturan karakter $ dalam formual)

Harapannya, contoh satu prosedur tersebut diimplementasikan ke prosedur lainnya.

Wassalam,
Kid.


2013/3/16 dhen.baguse bagusejo...@yahoo.com

 
  
Salam master excel,
 
Akhir tahun 2012 saya pernah menanyakan masalah ini ke milis
dan sudah ditanggapai temen-temen milis sangat memuaskan, setelah saya mendapat
jawaban dari temen-temen milis saya mencoba untuk mengembangkan sesuai apa yang
saya butuhkan dengan menggunakan pemahaman saya sendiri. 
Setelah saya membuat modul VBA dengan pemahaman bahasa saya sendiri,
saya mohon masukan para master excel poin-point mana yang bisa 
diringkas/diefisienkan. Modul saya pindah ke
notepad, tadi saya mau kirimkan dengan excelnya ukurannya hampir 700kb jadi
saya hanya copykan modulnya saja. Gambarannya  setiap sub prosedur saya bikin 
satu tombol,
dan bagaimana jika satu modul yang terdiri dari beberapa sub dibuat 1 tombol.
 
Semoga bahsa saya tidak membingungkan temen
temen


Terimaskih 

Re: [belajar-excel] Modul VBA Pembukuan

2013-03-17 Terurut Topik Mr. Kid 
aih... iya, kurang menambahkan sht. Maaf ya.
   sht.Range(Range(b11),
Range(b11).End(xlDown).End(xlToRight)).ClearContents
diubah menjadi :
   sht.Range(sht.Range(b11), sht.
Range(b11).End(xlDown).End(xlToRight)).ClearContents

Yang mirip-mirip dibagian lain (kalau ada) juga harus disesuaikan demikian.

Wassalam,
Kid.

2013/3/17 dhen.baguse bagusejo...@yahoo.com

 **


 salam,

 terimakasih atas masukan dan saran yang sangat membantu dan meringkas
 prosedur yang saya tanyakan. Setelah saya terapkan dalam prosedur mucul
 debug sbb :
sht.Range(Range(b11),
 Range(b11).End(xlDown).End(xlToRight)).ClearContents 
 debug tersebut sebenernya salah dipoint mana? saya coba deteksi satu satu
 juga belum berhasil, mohon masukan temen temen lagi... Apakah 3 prosedur di
 jadikan 1 tombol bisa? untuk mempersingkat menjalankan prosedur, selama ini
 saya 4 prosedur dengan 4 tombol juga:)

 terimkasih

   --
 *From:* Mr. Kid mr.nm...@gmail.com
 *To:* belajar-excel@yahoogroups.com
 *Sent:* Sunday, March 17, 2013 12:42 PM
 *Subject:* Re: [belajar-excel] Modul VBA Pembukuan


 Hai Bagus,

 File terlampir baru berisi prosedur DistKeSheet.
 Dalam prosedur tersebut sudah ada berbagai bentuk rujukan tanpa harus
 mengaktifkan (select atau activate) si object.
 Pemasangan formula bisa langsung ke banyak range (beda kolom dan baris)
 dengan tetap memegang kaidah absolute reference (pengaturan karakter $
 dalam formual)

 Harapannya, contoh satu prosedur tersebut diimplementasikan ke prosedur
 lainnya.

 Wassalam,
 Kid.

 2013/3/16 dhen.baguse bagusejo...@yahoo.com

 **

  Salam master excel,
 ** **
 Akhir tahun 2012 saya pernah menanyakan masalah ini ke milis dan sudah
 ditanggapai temen-temen milis sangat memuaskan, setelah saya mendapat
 jawaban dari temen-temen milis saya mencoba untuk mengembangkan sesuai apa
 yang saya butuhkan dengan menggunakan pemahaman saya sendiri. 
 Setelah saya membuat modul VBA dengan pemahaman bahasa saya sendiri, saya
 mohon masukan para master excel poin-point mana yang bisa
 diringkas/diefisienkan. Modul saya pindah ke notepad, tadi saya mau
 kirimkan dengan excelnya ukurannya hampir 700kb jadi saya hanya copykan
 modulnya saja. Gambarannya  setiap sub prosedur saya bikin satu tombol, dan
 bagaimana jika satu modul yang terdiri dari beberapa sub dibuat 1 tombol.*
 ***
 ** **
 Semoga bahsa saya tidak membingungkan temen temen

 Terimaskih

Re: [belajar-excel] Modul VBA Pembukuan

2013-03-17 Terurut Topik dhen.baguse 
SIAP, sudah saya coba tidak ada debug lagi, untuk lainnya tahap untuk saya 
rubah. Mr Kid apakah 4 prosedur dibuat 1 tombol bisa?

terimakasih



 From: Mr. Kid mr.nm...@gmail.com
To: belajar-excel@yahoogroups.com 
Sent: Sunday, March 17, 2013 2:54 PM
Subject: Re: [belajar-excel] Modul VBA Pembukuan
 

  
aih... iya, kurang menambahkan sht. Maaf ya.
   sht.Range(Range(b11), 
Range(b11).End(xlDown).End(xlToRight)).ClearContents
diubah menjadi :
   sht.Range(sht.Range(b11), 
sht.Range(b11).End(xlDown).End(xlToRight)).ClearContents

Yang mirip-mirip dibagian lain (kalau ada) juga harus disesuaikan demikian.

Wassalam,
Kid.


2013/3/17 dhen.baguse bagusejo...@yahoo.com

 
  
salam,


terimakasih atas masukan dan saran yang sangat membantu dan meringkas prosedur 
yang saya tanyakan. Setelah saya terapkan dalam prosedur mucul debug sbb :  
 sht.Range(Range(b11), 
Range(b11).End(xlDown).End(xlToRight)).ClearContents 
debug tersebut sebenernya salah dipoint mana? saya coba deteksi satu satu juga 
belum berhasil, mohon masukan temen temen lagi... Apakah 3 prosedur di jadikan 
1 tombol bisa? untuk mempersingkat menjalankan prosedur, selama ini saya 4 
prosedur dengan 4 tombol juga:)


terimkasih 




 From: Mr. Kid mr.nm...@gmail.com
To: belajar-excel@yahoogroups.com 
Sent: Sunday, March 17, 2013 12:42 PM
Subject: Re: [belajar-excel] Modul VBA Pembukuan
 


  
Hai Bagus,

File terlampir baru berisi prosedur DistKeSheet.
Dalam prosedur tersebut sudah ada berbagai bentuk rujukan tanpa harus 
mengaktifkan (select atau activate) si object.
Pemasangan formula bisa langsung ke banyak range (beda kolom dan baris) dengan 
tetap memegang kaidah absolute reference (pengaturan karakter $ dalam formual)

Harapannya, contoh satu prosedur tersebut diimplementasikan ke prosedur 
lainnya.

Wassalam,
Kid.


2013/3/16 dhen.baguse bagusejo...@yahoo.com

 
  
Salam master excel,
 
Akhir tahun 2012 saya pernah menanyakan masalah ini ke milis
dan sudah ditanggapai temen-temen milis sangat memuaskan, setelah saya mendapat
jawaban dari temen-temen milis saya mencoba untuk mengembangkan sesuai apa yang
saya butuhkan dengan menggunakan pemahaman saya sendiri. 
Setelah saya membuat modul VBA dengan pemahaman bahasa saya sendiri,
saya mohon masukan para master excel poin-point mana yang bisa 
diringkas/diefisienkan. Modul saya pindah ke
notepad, tadi saya mau kirimkan dengan excelnya ukurannya hampir 700kb jadi
saya hanya copykan modulnya saja. Gambarannya  setiap sub prosedur saya bikin 
satu tombol,
dan bagaimana jika satu modul yang terdiri dari beberapa sub dibuat 1 tombol.
 
Semoga bahsa saya tidak membingungkan temen
temen


Terimaskih 

Re: [belajar-excel] Modul VBA Pembukuan

2013-03-17 Terurut Topik Mr. Kid 
Bisa selama alur proses ke-empat prosedur tersebut sama.

Wassalam,
Kid.

2013/3/17 dhen.baguse bagusejo...@yahoo.com

 **


 SIAP, sudah saya coba tidak ada debug lagi, untuk lainnya tahap untuk saya
 rubah. Mr Kid apakah 4 prosedur dibuat 1 tombol bisa?

 terimakasih

   --
 *From:* Mr. Kid mr.nm...@gmail.com
 *To:* belajar-excel@yahoogroups.com
 *Sent:* Sunday, March 17, 2013 2:54 PM

 *Subject:* Re: [belajar-excel] Modul VBA Pembukuan


 aih... iya, kurang menambahkan sht. Maaf ya.
sht.Range(Range(b11),
 Range(b11).End(xlDown).End(xlToRight)).ClearContents
 diubah menjadi :
sht.Range(sht.Range(b11), sht.
 Range(b11).End(xlDown).End(xlToRight)).ClearContents

 Yang mirip-mirip dibagian lain (kalau ada) juga harus disesuaikan demikian.

 Wassalam,
 Kid.

 2013/3/17 dhen.baguse bagusejo...@yahoo.com

 **

  salam,

 terimakasih atas masukan dan saran yang sangat membantu dan meringkas
 prosedur yang saya tanyakan. Setelah saya terapkan dalam prosedur mucul
 debug sbb :
sht.Range(Range(b11),
 Range(b11).End(xlDown).End(xlToRight)).ClearContents 
 debug tersebut sebenernya salah dipoint mana? saya coba deteksi satu satu
 juga belum berhasil, mohon masukan temen temen lagi... Apakah 3 prosedur di
 jadikan 1 tombol bisa? untuk mempersingkat menjalankan prosedur, selama ini
 saya 4 prosedur dengan 4 tombol juga:)

 terimkasih

   --
 *From:* Mr. Kid mr.nm...@gmail.com
 *To:* belajar-excel@yahoogroups.com
 *Sent:* Sunday, March 17, 2013 12:42 PM
 *Subject:* Re: [belajar-excel] Modul VBA Pembukuan


 Hai Bagus,

 File terlampir baru berisi prosedur DistKeSheet.
 Dalam prosedur tersebut sudah ada berbagai bentuk rujukan tanpa harus
 mengaktifkan (select atau activate) si object.
 Pemasangan formula bisa langsung ke banyak range (beda kolom dan baris)
 dengan tetap memegang kaidah absolute reference (pengaturan karakter $
 dalam formual)

 Harapannya, contoh satu prosedur tersebut diimplementasikan ke prosedur
 lainnya.

 Wassalam,
 Kid.

 2013/3/16 dhen.baguse bagusejo...@yahoo.com

 **

  Salam master excel,
 ** **
 Akhir tahun 2012 saya pernah menanyakan masalah ini ke milis dan sudah
 ditanggapai temen-temen milis sangat memuaskan, setelah saya mendapat
 jawaban dari temen-temen milis saya mencoba untuk mengembangkan sesuai apa
 yang saya butuhkan dengan menggunakan pemahaman saya sendiri. 
 Setelah saya membuat modul VBA dengan pemahaman bahasa saya sendiri, saya
 mohon masukan para master excel poin-point mana yang bisa
 diringkas/diefisienkan. Modul saya pindah ke notepad, tadi saya mau
 kirimkan dengan excelnya ukurannya hampir 700kb jadi saya hanya copykan
 modulnya saja. Gambarannya  setiap sub prosedur saya bikin satu tombol, dan
 bagaimana jika satu modul yang terdiri dari beberapa sub dibuat 1 tombol.*
 ***
 ** **
 Semoga bahsa saya tidak membingungkan temen temen

 Terimaskih

[belajar-excel] Modul VBA Pembukuan

2013-03-16 Terurut Topik dhen.baguse 
Salam master excel,
 
Akhir tahun 2012 saya pernah menanyakan masalah ini ke milis
dan sudah ditanggapai temen-temen milis sangat memuaskan, setelah saya mendapat
jawaban dari temen-temen milis saya mencoba untuk mengembangkan sesuai apa yang
saya butuhkan dengan menggunakan pemahaman saya sendiri. 
Setelah saya membuat modul VBA dengan pemahaman bahasa saya sendiri,
saya mohon masukan para master excel poin-point mana yang bisa 
diringkas/diefisienkan. Modul saya pindah ke
notepad, tadi saya mau kirimkan dengan excelnya ukurannya hampir 700kb jadi
saya hanya copykan modulnya saja. Gambarannya  setiap sub prosedur saya bikin 
satu tombol,
dan bagaimana jika satu modul yang terdiri dari beberapa sub dibuat 1 tombol.
 
Semoga bahsa saya tidak membingungkan temen
temen

Terimaskih 
Option Explicit
'  '
'  Code by Jan Raisin  '
'  untuk millis Belajar Excel  '
'  12  November 2012   '
'  '
' nama prosedur
Sub DistKeSheet()
' deklarasi header Tanggal, range Tanggal,  cell Tanggal
' tipe data adalah range karena yang akan diambil adalah object-nya
Dim hdTgl, rgTgl, cTgl As Range

' deklarasi varabel untuk menyimpan nomor baris data
' tipe data adalah long integer (Long) agar dapat memuat nilai yang sangat 
besar
Dim rData, c As Long

' deklarasi variabel untuk menyimpan nama sheet
' tipe data adalah string karena akan digunakan menyimpan data berupa text 
/ string
Dim NamaSheet As String

' deklarasi variabel untuk menyimpan saldo akhir
' tipe data adalah dobel untuk mengantisipasi nilai dalam bentuk desimal
Dim Saldo As Double

 Dim rng As Range, lRec As Long ' Baru untuk bpp
Set rng = Sheet2.Range(c10).CurrentRegion ' baru
With rng
   lRec = .Rows.Count - 1
   If lRec  0 Then
  With .Resize(lRec, 1).Offset(9, 2)
.Formula = =if(d10=,,row()-9)
.Parent.Calculate
.Value = .Value
   End With
   With .Resize(lRec, 1).Offset(9, 5)
.Formula = =if(d10=,,Index(Master!$B$4:$B$46, Match(D10, 
Master!$C$4:$C$46, 0)))
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 20)
.Formula = =IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(u$7,Master!$E$2:$M$2,0)))
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 21)
.Formula = =IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(v$7,Master!$E$2:$M$2,0)))
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 22)
.Formula = =IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(w$7,Master!$E$2:$M$2,0)))
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 23)
.Formula = =IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(x$7,Master!$E$2:$M$2,0)))
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 24)
.Formula = =IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(y$7,Master!$E$2:$M$2,0)))
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 25)
.Formula = =IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(z$7,Master!$E$2:$M$2,0)))
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 26)
.Formula = =IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(aa$7,Master!$E$2:$M$2,0)))
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 27)
.Formula = =IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(ab$7,Master!$E$2:$M$2,0)))
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 28)
.Formula = =IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(ac$7,Master!$E$2:$M$2,0)))
.Parent.Calculate
.Value = .Value
  End With
End If
End With
  
'untuk membersihkan sheet
Sheets(bku).Select
Range(Range(b11), Range(b11).End(xlDown).End(xlToRight)).ClearContents
Range(Range(g8), Range(g8)).ClearContents
Sheets(Tunai).Select
Range(Range(b11), Range(b11).End(xlDown).End(xlToRight)).ClearContents
Range(Range(g8), Range(g8)).ClearContents
Sheets(bank).Select
Range(Range(b11), Range(b11).End(xlDown).End(xlToRight)).ClearContents
Range(Range(g8), Range(g8)).ClearContents
Sheets(perjadin).Select
Range(Range(b11),

Re: [belajar-excel] Modul VBA Pembukuan

2013-03-16 Terurut Topik Mr. Kid 
Hai Bagus,

File terlampir baru berisi prosedur DistKeSheet.
Dalam prosedur tersebut sudah ada berbagai bentuk rujukan tanpa harus
mengaktifkan (select atau activate) si object.
Pemasangan formula bisa langsung ke banyak range (beda kolom dan baris)
dengan tetap memegang kaidah absolute reference (pengaturan karakter $
dalam formual)

Harapannya, contoh satu prosedur tersebut diimplementasikan ke prosedur
lainnya.

Wassalam,
Kid.

2013/3/16 dhen.baguse bagusejo...@yahoo.com

 **


 Salam master excel,
 ** **
 Akhir tahun 2012 saya pernah menanyakan masalah ini ke milis dan sudah
 ditanggapai temen-temen milis sangat memuaskan, setelah saya mendapat
 jawaban dari temen-temen milis saya mencoba untuk mengembangkan sesuai apa
 yang saya butuhkan dengan menggunakan pemahaman saya sendiri. 
 Setelah saya membuat modul VBA dengan pemahaman bahasa saya sendiri, saya
 mohon masukan para master excel poin-point mana yang bisa
 diringkas/diefisienkan. Modul saya pindah ke notepad, tadi saya mau
 kirimkan dengan excelnya ukurannya hampir 700kb jadi saya hanya copykan
 modulnya saja. Gambarannya  setiap sub prosedur saya bikin satu tombol, dan
 bagaimana jika satu modul yang terdiri dari beberapa sub dibuat 1 tombol.*
 ***
 ** **
 Semoga bahsa saya tidak membingungkan temen temen

 Terimaskih

  

Option Explicit
'  '
'  Code by Jan Raisin  '
'  untuk millis Belajar Excel  '
'  12  November 2012   '
'  '
' diubah Kid, 2013-03-17
' nama prosedur
public Sub DistKeSheet()
' deklarasi header Tanggal, range Tanggal,  cell Tanggal
' tipe data adalah range karena yang akan diambil adalah object-nya
Dim hdTgl as range, rgTgl as range, cTgl As Range

' deklarasi varabel untuk menyimpan nomor baris data
' tipe data adalah long integer (Long) agar dapat memuat nilai yang sangat 
besar
Dim rData as long, c As Long

' deklarasi variabel untuk menyimpan nama sheet
' tipe data adalah string karena akan digunakan menyimpan data berupa text 
/ string
Dim NamaSheet As String

' deklarasi variabel untuk menyimpan saldo akhir
' tipe data adalah dobel untuk mengantisipasi nilai dalam bentuk desimal
Dim Saldo As Double

Dim rng As Range, lRec As Long ' Baru untuk bpp
Set rng = Sheet2.Range(c10).CurrentRegion ' baru
With rng
   lRec = .Rows.Count - 1
   If lRec  0 Then
  With .Resize(lRec, 1).Offset(9, 2)
.Formula = =if(d10=,,row()-9)
.Parent.Calculate
.Value = .Value
   End With
   With .Resize(lRec, 1).Offset(9, 5)
.Formula = 
=if(d10=,,Index(Master!$B$4:$B$46, Match(D10, Master!$C$4:$C$46, 0)))
.Parent.Calculate
.Value = .Value
  End With
  'langsung pasang formula untuk 9 kolom dengan referensi yang 
diatur dengan $
  'jika proses kalkulasi berat, maka sebelum proses ini, 
  'buat sebuah kolom bantu (satu blok formula seperti di atas) 
berisi formula match bagian :
  'MATCH($F10,Master!$B$4:$B$46,0)
  'kemudian blok formula ini diganti dengan formula Index yang 
bagian Match-nya merujuk
  'ke kolom bantu tadi
  '*** saat ini, dicoba langsung ke 9 kolom dulu saja ***
  With .Resize(lRec, 9).Offset(9, 20)
.Formula = 
=IF($F10=,0,INDEX(Master!$E$4:$M$46, MATCH($F10,Master!$B$4:$B$46,0), 
MATCH(u$7,Master!$E$2:$M$2,0)))
.Parent.Calculate
.Value = .Value
  End With
endif
end with

'untuk membersihkan sheet
'nama sheet yang akan dibersihkan : bku,Tunai,bank,perjadin,lain,kas
'range yang akan dibersihkan di setiap sheet : range(g8) dan range 
data mulai b11 kebawah dan kekanan
'variabel sheet yang akan diproses dan teks berupa daftar nama sheet 
(beserta pemisahnya)
dim sht as worksheet
dim sShtName as string
'susun daftar nama sheet sebagai sebuah text disertai pemisah nama
sshtname=,bku,tunai,bank,perjadin,lain,kas,'jadi setiap sheet 
pasti diapit karakter koma dan semua huruf kecil
'loop setiap sheet dalam workbook
for each sht in thisworkbook.worksheets
if instr( sshtname, ,  lcase$(sht.name)  , )  0 then
'sht yang diproses dalam loop punya nama dalam daftar
sht.Range(Range(b11), 
Range(b11).End(xlDown).End(xlToRight)).ClearContents
sht.Range(g8).clearcontents
endif
next sht

' non-aktifkan fitur screen update agar vba berjalan