Ruang Excel

Excel application sharing, knowledge of Microsoft Excel, and visual basic application (vba) for education.

Enjoy You'r Visiting

Showing posts with label Aplikasi PPDB Versi 02;. Show all posts
Showing posts with label Aplikasi PPDB Versi 02;. Show all posts

Wednesday, January 25, 2023

Aplikasi Penerimaan Peserta Didik Baru (PPDB) Versi Excel 02


Aplikasi Penerimaan Peserta Didik Baru (PPDB) Versi 02

ruangexcel.blogspot.com : Sobat ruang excel Salam sejahtera saya sampaikan kepada Bapak/Ibu guru dan operator sekolah.  Pada kesempatan sebelumnya saya telah memposting Aplikasi PPDB Versi 01. Nah Pada kali ini saya berbagi Aplikasi PPDB Versi 02 Dalam rangka upaya memenuhi permintaan dam masukan rekan-rekan operator sekolah atau bapak/ibu guru wali kelas pada komentar postingan Aplikasi PPDB Versi 01. Pembaruan pada Aplikasi PPDB Versi 02 bisa digunakan pada tingkat SD, SMP, dan SMA dalam menginput data siswa baru pada kegiatan Penerimaan Peserta Didik Baru (PPDB) tahun pelajaran 2023/2024.

 

Aplikasi input data siswa baru ini Insya Allah sangat bermanfaat dan perlu saya jelaskan secara singkat  kepada bapak/ibu guru atau operator  bahwa aplikasi ini terdapat dua sheet atau lembar kerja excel yakni:

 

    1. Sheet formulir yang bisa digunakan untuk formulir isian yang harus dibagikan kepada orang tua siswa atau wali murid untuk disi dengan data calon siswa baru.


     2. Sheet Input Data siswa baru terdiri dari empat menu (button) yakni;

     a.   MenuTambah :

Menu tambah berfungsi untuk menambah data siswa baru yang akan diinput pada sheet data dan setiap penambahan siswa baru pada kolom Id secara otomatis menambah.


     b.   Menu Edit :

Menu edit berfungsi untuk mengedit atau meperbaiki data yang sudah terinput pada sheet data. Jika perbaikan sudah selesai maka harus klik simpan agar data yang telah kita edit atau perbaiki tersimpan pada sheet data.


    c.   Menu hapus :

Menu hapus berfungsi untuk menghapus data yang telah terinput pada sheet data.


     d.   MenuCari Data

Menu cari data berfungsi untuk mencari data yang telah terinput pada sheet data. Ketika kita ingin mengedit (meperbaiki) atau menghapus data yang kita inginkan maka, kita manfaatkan menu cari data untuk menampilkan data secara cepat dan akurat sesuai yang kita inginkan dan akan kita perbaiki atau hapus.

 

Demikian berbagi aplikasi dan ilmu, semoga bermanfaat, sukses dan berkah. Aamiin.

 

Silahkan unduh Aplikasi sederhana Input Data Siswa Baru (PPDB) Versi 02 

file Aplikasi PPDB versi 01 

 

Saturday, November 7, 2020

10 Perintah CMD Windows yang perlu Anda Ketahui | Ruang Excel

 

     1.   Systeminfo

Perintah systeminfo akan meberikan informasi konfigurasi terperinci computer anda. Hal ini mencakup system operasi dan perangkat keras. Misalnya ; tipe prosessor, versi BIOS, informasi OS dan lainnya.

     2.   Ipconfig

Perintah ipconfig pada system operasi windows berfungsi untuk menampilkan konfigurasi IP computer. Dengan menggunakan perintah ini maka anda dapat melihat konfigurasi IP apa saja yang telah diatur di komputernya dan IP bisa digunakan PC client untuk menjalankan aplikasi yang terpasang pada PC server dalam jaringan local.

     3.   Ping

Perintah ping digunakan untuk mengecek konektivitas antar satu computer dengan lainnya, hal ini dilakukan dengan mengirimkan sebuah pesan ICMP ke alamat IP yang hendak diujicoba konektivitasnya dan menunggu respon darinya.


     4.   Tracert

Perintah Tracert atau traceroute pada linux digunakan untuk melacak rute lintasan yang dilalui oleh paket dari PC anda ke alamat IP atau domain tujuan. Perintah tracert diikuti dengan destinasi IP atau domain.



     5.   Netstat

Netstat digunakan untuk memonitor jaringan dan informasi terkait dengan koneksi port, antara lain alamat IP yang terhubung, status koneksi dan aplikasi yang digunakan. Netstat juga bisa disebut sebagai port scanner.



     6.   Tasklist

Tasklist mirip dengan task manager, perintah ini digunakan untuk meberikan daftar nama task dan services yang sedang berjalan pada PC anda. Anda bisa menggunakan command tasklist-svc untuk melihat services aktif.

     7.   Taskkill

Dengan perintah taskkill kita dapat mematikan task atau service aplikasi yang sedang bekerja pada computer. Anda dapat melakukanperintah taskkill terlebih dahulu untuk melihat list task dan service yang berjalan.



    8.   Shutdown

Pada OS Windows 8 keatas terdapat perintah yakni shutdown, yang bisa digunakan untuk mematikan computer. Perintah shutdown /r/o banyak digunakan untuk mengakses safe mode dan recovery utilities windows.




     9.   Sfc/scannow

Sfc / scannow berfungsi sebagai alat pemindaian dan perbaikan otomatis yang berfokus pada file system windows. Anda perlu menjalankan command promt dengan administrator dan memasukan perintah “sfc / scannow”.



     10. Nslookup

Nslookup adalah perintsh yang digunakan untuk mengetahui ip dari sebuah domain. Nslookup sering dipakai untuk mengdiagnosa permasalahan jaringan yang berhubungan dengan DNS.




 

Friday, May 8, 2020

Aplikasi Input Nilai Rapot SMP/MTs Versi excel 20.02


masukan nilai rapot versi excel 20.02

Sobat  Ruang Excel  : Aplikasi input nilai rapot SMP/MTs Versi 20.02 merupakan hasil pengembangan dari  Aplikasi input nilai rapot SMP Versi 20.01  yang sangat sederhana dengan basis aplikasi visual basic. Pada Aplikasi input nilai rapot SMP/MTs versi 20.02 ini masih tetap terdapat tiga (3) lembar menu yaitu Sheet Input data siswa, input nilai rapot, dan sheet rekap nilai. 


Namun seiring dengan adanya banyak masukan dari rekan-rekan pengguna aplikasi ini, yang menambahkan penambahan mata pelajaran sperti untuk mapel di madrasah tsanawiyah (MTs). Oleh karena itu saya mengembangkan dengan menambah beberapa mapel dan mulok tambahan. Untuk lebih jelasnya mari kita baca lebih lanjut penjelasan sebagai berikut.


    1.    Lembar  Input Data Siswa

Pada sheet ini, silahkan rekan-rekan ops atau guru mengisi dengan data siswa kelas 9 berupa data NIS, NISN, nama lengkap, dan kelas. Data yang ada pada lembar data siswa ini akan di-Link ke lembar masukan nilai rapot.


     2.    Lembar Masukan Nilai Rapot

Pada Sheet input nilai rapot ini terdapat kolom NIS, Nama siswa secara otomatis diambil dari sheet Data input siswa terdapat lima kolom nilai rapot 5 semester terakhir, dimana setiap kolom terbagi menjadi dua kolom (kolom nilai pengetahuan dan keterampilan). 


Pada Aplikasi Input Nilai Rapot SMP/MTs versi 20.02 ada penambahan 5 mapel untuk MTs yakni mapel  Aqidah akhlaq, Al-Qur'an Hadist, Fiqih, Bahasa Arab,  dan  Sejarah Kebudayaan Islam (SKI ) serta muatan tambahan lokal. 


Pada Aplikasi nilai rapot input SMP versi 20.01 tidak ada penambhan untuk mata pelajaran muatan lokal. Nahh, pada Aplikasi Input Nilai Rapot versi 20.02 ini tiga mata pelajaran muatan lokal tidak terkunci sehingga pengguna bisa mengganti mapel muatan lokal bisa disesuaikan pada mulok daerah masing-masing.


Pada sheet ini terdapat tiga tombol atau tombol yakni :

Tombol Putar  
tombol spin berfungsi untuk mengganti NIS dan nama siswa pada sel "D3" dan sel "D4".

Tombol Masukan Nilai  

Tombol Input Nilai berfungsi untuk mencatat atau merekam nilai rapot pada sheet Input Nilai dari cell “D8:M24” ke sheet rekap nilai pada masing-masing mata pelajaran dengan tambahan notifikasi pesan untuk menginput atau batal menginput dan pesan “Berhasil” setelah data nilai berhasil terinput .


Tombol Reset semua  

Tombol Reset All berfungsi untuk meriset ulang atau menghapus semua nilai yang terinput di kolom nilai rapot lima semester terakhir dari sel "D8:M24". Hal ini dilakukam ketika kita akan mengganti dengan nilai siswa lainnya dan sudah saya lengkapi dengan notifikasi pesan Yes/No untuk menghapus data nilai serta pesan berhasil bahwa data nilai telah terhapus.


     3. Lembar Rekap Nilai

Sheet rekap nilai merupakan sheet untuk menampung nilai pada masing-masing mata pelajaran yang bersal dari hasil rekaman data sheet input rapot. dan secara otomatis sesuai dengan nilai inputan dari sheet input rapot. Karena pada sheet Input Nilai ada penambahan 5 mapel, maka di sheet Rekap juga ada penambahan 5 mapel dan 1 muatan lokal tambahan.


Silahkan rekan-rekan ops atau guru agar kami menyiapkan nilai rapot lima semester terakhir tahapan SMP/SMPLB yang terdapat pada Buku Induk Siswa. dan segera unduh aplikasi masukan nilai rapot SMP disini.


Agar rekan-rekan dapat mengetahui postingan terupdate dari ruang excel silahkan klik menu "Follow" atau masukan email rekan-rekan ops atau guru pada kolom email dan klik tombol "Submit".


Saya al faqir memohon maaf bila masih banyak kekurangan dan sudah menikmati berkunjung dan menggunakan aplikasi ini. Semoga Aplikasi excel Input Nilai Rapot SMP aplikasi  visual basic  ini bermanfaat untuk rekan-rekan sekalian. Aamiin

Untuk Unduh  Aplikasi Input Nilai Rapot SMP/MTs Versi 20.02 

 

 



Saturday, May 2, 2020

Aplikasi Excel Input Nilai Rapot SMP Versi 20.01 Vba

Aplikasi Excel Input Nilai Rapot SMP Versi 20.01 Vba

RuangExcel : Pada pasal 1 beberapa ketentuan dalam peraturan Sekretaris Jenderal Pendidikan nasional nomor 2 tahun 2020 Tentang Spesifikasi teknis, bentuk, dan atata cara pengisian blangko ijazah Pendidikan Dasar dan Menengah  Tahun Pelajaran 2019/2020, diubah pada pasal 7 sehingga berbunyi ;

1.   Tanggal kelulusan SD, SDLB, dan paket A atau sederajat ditetapkan tanggal 15 Juni 2020; 

2.   Tanggal kelulusan SMP, SMPLB, dan program paket B atau sederajat ditetapkan tanggal 5 Juni 2020; dan 

3.   Tanggal kelulusan SMA, SMALB, dan program paket C atau sederajat ditetapkan tanggal 2 Mei 2020.

Sementara itu untuk mengambil nilai untuk ijazah pada bagian blangko ijazah bagian belakang sebagai berikut :

1.   Untuk SD dan SDLB, diperoleh dari rata-rata nilai lima semester terakhir ( Kelas 4, Kelas 5, dan Kelas 6 semester ganjil ) yakni rata-rata nilai pada semester 7, 8, 9, 10, dan 11; dan sebagai tambahan nilai kelulusan, dapat ditambah nilai pada semester genap kelas 6 (semester 12) dan hasil ujian sekolah yang dilakukan dalam bentuk portofolio nilai rapot serta prestasi yang diperoleh sebelumnya, penugasan, tes daring, dan/atau bentuk asesmen jarak jauh lainnya; dan ...

2.   Untuk SMP dan SMPLB diperoleh dari rata-rata nilai lima semester terakhir ( Kelas 7, Kelas 8, dan Kelas 9 semester ganjil ) yakni rata-rata nilai pada semester 1, 2, 3, 4, dan 5; dan sebagai tambahan nilai kelulusan, dapat ditambah nilai pada semester genap kelas 9 (semester 6) dan hasil ujian sekolah yang dilakukan dalam bentuk portofolio nilai rapot serta prestasi yang diperoleh sebelumnya, penugasan, tes daring, dan/atau bentuk asesmenjarak jauh lainnya.

Guna menyikapi perolehan nilai rata-rata lima semeter terakhir baik SD maupun SMP, saya telah mencoba dan merancang Aplikasi excel dengan visual basic application untuk menginput nilai Rapot SD/SDLB ( nilai rapot semester 7, 8, 9, 10 dan 11 ) dan SMP/SMPLB ( nilai rapot semester 1, 2, 3, 4, dan 5).

Untuk Aplikasi excel Input Nilai rapot semster 7 sd. 11 jenjang SD silahkan diunduh

Sementara untuk Aplikasi Input Nilai Rapot semester 1 sd. 5 jenjang SMP/SMPLB akan saya jelaskan sebagai beerikut :

Aplikasi input nilai rapot SMP/SMPLB yang saya kembangkan adalah aplikasi dari microsoft excel yang sangat sederhana dengan macros dan basis visual basic application. Pada aplikasi input nilai rapot ini ada tiga (3) menu sheet yakni :

1. Sheet Input Data Siswa

Pada sheet ini, silahkan rekan-rekan ops atau guru mengisi dengan data siswa kelas 9 berupa data NIS, NISN, nama lengkap, dan kelas. Data yang ada pada sheet data siswa ini akan meng-Link ke sheet input nilai rapot dengan menggunakan kode Vba.

2. Sheet Input Nilai Rapot

Pada Sheet input nilai rapot ini terdapat kolom NIS, Nama siswa yang secara automatis diambil darai sheet Input data siswa dana terdapat lima kolom nilai rapot 5 semester terakhir, dimana setiap kolom terbagi menjadi dua kolom (kolom nilai pengetahuan dan keterampilan).

Pada sheet ini terdapat tiga button atau tombol yakni

* Tombol Spin berfungsi untuk mengganti NIS dan nama siswa pada cell "D3" dan cell "D4".

* Tombol Input Nilai berfungsi untuk mencatat atau merekam nilai rapot ke sheet rekap nilai ke masing-masing mata pelajaran.

* Tombol Reset all berfungsi untuk meriset ulang atau menghapus semua nilai yang terinput di kolom nilai rapot lima semster terakhir dari cell "D8:M18". dan ini dilakukam ketika kita akan mengganti dengan nilai siswa lainnya.

3. Sheet Rekap Nilai

Sheet rekap nilai merupakan sheet untuk menampung nilai pada masing-masing mata pelajaran yang bersal dari hasil rekaman data sheet input nilai rapot. dan secara automatis berurutan sesuai inputan dari sheet inpur nilai rapot.

 

Silahkan rekan-rekan ops atau guru agar menyiapkan nilai rapot lima semester terakhir jenjang SMP/SMPLB yang terdapat pada Buku Induk Siswa. dan segera unduh aplikasi input nilai rapot SMP Unduh disini.

 

Agar rekan-rekan dapat mengetahui postingan terupdate dari ruang excel silahkan Klik menu "Follow" atau masukan email rekan-rekan ops atau guru ke kolom email dan klik tombol "Submit". 

Saya al faqir memohon maaf bila masih banyak kekurangan dan Terimakasih sudah berkenan mampir dan menggunakan aplikasi ini. Semoga Aplikasi excel Input Nilai Rapot SMP visual basic appliacation ini bermanfaat buat rekan-rekan sekalian. Aamiin

berikut Kode Scrip Input Nilai Rapot dan untuk melihat tutorial aplikasi input nilai silahkan lihat di Part1 dan Tutorial part2

 

 

Saturday, April 18, 2020

9 Cara mempercepat koneksi internet wifi



Sobat RuangExcel
: Diera digital kita tidak terlepas dari jaringa internet, salah satunya jika koneksi wifi kita lemot maka akan mengganggu kita dalam akses informasi dan penggunaan internet. Berikut 9 Cara mempercepat koneksi intenet wifi. 

1. Letakan Router di tempat stategis
Penempatan posisik router merupakan hal yang sangat penting untuk diperhatikan. sebagai alat pemamcar wifi, jika ia diletakan di posisi yang salah maka efektivitasnya juga akan berkurang.

Disarankan untuk menempatkan router pada posisi yang sekiranya stategis sesuai kebutuhan. Selain itu usahakan untuk memposisikan di tempat yang agak terbuka.

Jangan langsung bertemu dengan dinding yang bisa menyebabkan sinyal wifi menjadi terganggu dan tak menyebar secara efektif.

2.   Atur posisi antena pada router
Jika kalian menggunakan router yang memiliki antena eksternal, maka bisa mencoba tips yang satu ini. ternyata arah dari antena paada router juga dipengaruhi terhadap kinerjanya.
Cobahlah untuk mengubah arah dari antena tersebut hingga mendapatkan koneksi yang lebih baik daripada sebelumnya.

3.   Coba Gunakan aplikasi Heatmapping
Software yang satu ini akan membantu kalian untuk melihat seberapa efektif cakupan sinyal wifi. Dengan begitu kita bisa menentukan dimana posisi router yang efektif agar sinyalnya menyebar dengan efektif. Coba juga tips untuk mengubah arah antena seperti di atas agar mendapatkan hasil yang lebih baik.

4.  Ubah jadi jaringan tertutup
Semakin banyak orang yang memakai jaringan wifi, maka koneksinya akan semakin lambat. maka dari itu  jika kalian tak ingin ada para pemburu wifi gratisan yang iktu numpang tanpa izin. sebaiknya berikan password pada jaringan hotspot kalian.
dengan begitu hanya perangkat tertentu saja yang bisa tekoneksi dan menggunakan wifi tersebut.

5.  Ubah Frekuensi ke 5GHz
sekarang ini ada 2 jenis frekuensi pada wifi yaitu 2,4 GHz dan 5GHz. Lebih bagus yang amana ? tergantung kondisi tempat kalian, jika ada banyak barang elektronik yang menggunakan frekuensi 2,4 GHz naka konesi wifi punjuga ikut terpengaruhi.
Apabila terjadi, disarankan untuk emngubah setting router kalian dari frekuensi 2,4 ke 5GHz. Tapi sebelum itu pastikan dulu perangkat kalian sudah mendukung fekuensi 5GHz juga ya.

6.  Tambahkan Perangkat repeater
Salah satu penyebab koneksi wifi lemot adalah penyebaran sinyal yang lemah. Solusi dari msalah ini adalah dengan memanfaatkan repeater. Perangkat tersebut kan berguna untuk memperkuat serta memperluas cakupan sinyal wifi yang ada. Dengan begitu kita bisa mendapatkan koneksi yang lebih baik daripada sebelumnya.

7.  Pilih saluran yang tak terlalu ramai
Selain pemilihan frekuesnsi, pengaturan saluran pada router juga terbilang penting . Umumnya frekuensi 2,4 GHz akan banyak yang menggunakan saluran 1,6 dan 11. amk dari itu disarankan untuk memillih saluran yang lain. namun, akan lebih baik lagi apabila kalian sudah beralih ke frekuensi 5 GHz.
Selain karena kinerjanya yang sudah kurang efektif, router jenis baru jelas puna teknologi yang lebih baik. Hal ini sangat bagus jika kalian ingin punya wifi berkecepatan tinggi.

8.  Ganti router dengan yang baru 
kembali lagi bahwa router merupaka faktor yang sangat penting dalam hal ini. Apabila perangkat yang kalian gunakan sudah jadul maka disarankan untuk segera menggantinya.
Selain kinerjanhya yang sudah kurang efektif, router jenis baru jelas punya teknologi yang lebih baik. hal ini akan sangat bagus jika kalian ingin puya wifi berkecepatan tinggi.

9.   Minta bantuan ke ISP
Jika semua tips di atas belum bisa mengatasi wifi yang lemot, saatnya untuk meminta bantuan. Kalian bisa menghubungi ISP untuk mengirimkan tenaga ahli agar dapat mempercepat koneksi wifi kalian.
mereka tentu lebih kompeten dan bisa mencari tahu apa sebenarnya penyebab dari masalah tersebut. Selain itu, tips ini cocok untuk kalian yang tak mau repot.

Selamat mencoba, Semoga Sukses

Sumber : Fb Ilmu networking

Friday, November 1, 2019

Form excel Input Data siswa ke tiap rombel kelas otomatis

http://ruangexcel.blogspot.com

RuangExcel : Salam sejahtera para pecinta dan pengguna microsoft excel, semoga dalam keadaan sehat dan sukses selalu. Pada kesempatan kali ini saya akan berbagi file microsoft excel berupa menu sebaran data ke rombel atau kelompok data tertentu. File microsoft excel yang saya berinama aplikasi sederhana "Menu Input Data Ke Rombel" bisa memudahkan para operator atau guru dalam input data peserta didik yang akan disebar ke tiap rombel kelas. Pada aplikasi sederhana ini terdapat 3 menu, yakni menu Form dan Database.

1. Menu Form 

Pada Menu Form ini terdapat kolom isian data jumlah rombel dan banyak siswa yang akan dibuatkan berupa format pada sheet database ketika kita telah kita klik tombol "buat database" serta isian data peserta didik yang akan diinput ke lembar kerja excel (sheet database) setelah kita melakukan pengisian data peserta didik dan melakukan klil tombol "Input Data".

2. Menu Database

Lembar kerja excel (sheet database) adalah sheet database yang akan menampung data inputan peserta didik dari lembar kerja excel (sheet form). Pada lembar kerja excel (sheet database) yang berisi format data peserta didik per rombel. Jika kita pada sheet form melakukan klik "buat database" maka format yang telah dibuat sebelumnya akan terhapus dengan format terbaru.

Jika anda ingin mengembangkan aplikasi ini silahkan unduh di sini dan kode scrip vba silahkan copas di bawah ini :

Sub BUAT_KOLOM()

    Set WRisi = Worksheets("FORM")

    Set WRdata = Worksheets("DATABASE")

    BARIS = 1

    For I = 1 To 200000

        If WRdata.Range("B" & I).Value <> "" Then

            For IA = 1 To 25

                WRdata.Cells(I, IA).Value = ""

                WRdata.Cells(I, IA).Font.Bold = True

                WRdata.Cells(I, IA).HorizontalAlignment = xlLeft

                WRdata.Cells(I, IA).Columns.ColumnWidth = 9

                WRdata.Cells(I, IA).Interior.ColorIndex = xlColorIndexNone

            Next IA

        End If

    Next I

    KL = 1

    NM = 0

    RB = 0

    BARIS = 1

    KOLOM = 1

    For RB = 1 To WRisi.Range("D3").Value

        WRdata.Cells(BARIS, 1).Value = "ROMBEL :  " & RB

        WRdata.Cells(BARIS, 1).Font.Bold = True

        WRdata.Cells(BARIS, 1).HorizontalAlignment = xlCenter

        WRdata.Cells(BARIS, 1).Columns.ColumnWidth = 15

        WRdata.Cells(BARIS, 1).Interior.ColorIndex = 6

        For I = 10 To 40

            If WRisi.Range("B" & I).Value <> "" Then

                KL = KL + 1

                WRdata.Cells(BARIS, KL).Value = WRisi.Range("B" & I).Value

                WRdata.Cells(BARIS, KL).Font.Bold = True

                WRdata.Cells(BARIS, KL).HorizontalAlignment = xlCenter

                WRdata.Cells(BARIS, KL).Columns.ColumnWidth = WRisi.Range("A" & I).Value

                WRdata.Cells(BARIS, KL).Interior.ColorIndex = 10

            End If

        Next I

        If WRisi.Range("D4").Value = "" Then Exit Sub

        For NM = 1 To WRisi.Range("D4").Value

           KOLOM = KOLOM + 1

           WRdata.Cells(KOLOM, 2).Value = NM

        Next NM

        KL = 1

        NM = NM + 1

        BARIS = BARIS + WRisi.Range("D4").Value + 1

        KOLOM = KOLOM + 1

    Next RB

End Sub

=============================================================

Private Sub CommandButton2_Click()

    Set WRisi = Worksheets("FORM")

    Set WRdata = Worksheets("DATABASE")

    KL = WRisi.Range("D7").Value 'rombel

    NM = WRisi.Range("D4").Value 'jmlsiswa

    If WRisi.Range("D3").Value < KL Then

        MsgBox "Rombel max " & WRisi.Range("D3").Value, vbInformation, "Peringatan"

        Exit Sub

    End If

       RB = 2

    If WRisi.Range("D11").Value <> "" Then

        For I = 1 To 200000

            If WRdata.Cells(I, 1).Value = "ROMBEL :  " & KL Then

                For IA = I To (I + NM)

                    If WRdata.Cells(IA, 3).Value = "" Then

                        For xs = 11 To 40

                            RB = RB + 1

                            WRdata.Cells(IA, RB).Value = WRisi.Range("D" & xs).Value

                        Next xs

                        Exit Sub

                    End If

                Next IA

             End If

        Next I

    End If

End Sub

=============================================================

Private Sub CommandButton3_Click()

    pesane = MsgBox("Semua database yang tersimpan akan terhapus, Anda yakin akan membuat kolom baru ", vbYesNo, "cetak")

    If pesane = vbYes Then

        Call BUAT_KOLOM

    End If

End Sub