Terima kasih untuk penjelasannya, senang sekali saya dapat bergabung di forum ini karena banyak sekali ilmu mengenai excel yang saya dapatkan di sini
karena sebentar lagi memasuki bulan penuh suci maka saya ingin mengucapkan kepada milis Minal 'Aidin Wal faidzin mohon maaf lahir dan bathin Regards, Arafir Syah To: [email protected] From: [email protected] Date: Mon, 29 Aug 2011 09:00:52 +0700 Subject: Re: [belajar-excel] Input Data Gak tampil di sheet dengan cara seperti itu (setelah diperbaiki agar tidak error saat input)setiap input data di form >> akan membuat 1 workbook BARU(1 siswa dibuatkan 1 workbook)apakah memang seperti itu yg diinginkan ?? oya satu lagi : VBA bukan VB6 dan sebaliknyasatu lagi: tombol yg diberinama "cmdsave" ternyata bukan dibuat dari ActiveX Controltetapi dari SHAPE, sehingga tidak punya property dan Event... perbaikan pada prosedur Tombol_Klick Private Sub cmdsave_Click() 'deklarasi variabel memory Dim NewBook As Workbook On Error GoTo salahinput Set NewBook = Workbooks.Add With NewBook.Sheets(1) 'menuliskan data ke kertas kerja .Range("A1").Value = "Input Data Mahasiswa" .Range("A2").Value = "--------------------" .Range("A4").Value = "NPM": .Range("B4").Value = txtnama.Text .Range("A5").Value = "Nama": .Range("B5").Value = txtnama.Text .Range("A6").Value = "Kelas": .Range("B6").Value = txtkelas.Text .Range("A7").Value = "Jenjang": .Range("B7").Value = cmbjenjang.Text .Range("A8").Value = "Jurusan": .Range("B8").Value = cmbjurusan.Text End With Exit Sub salahinput: MsgBox "Terjadi kesalahan input data!!", vbOKOnly End Sub 2011/8/29 arafir syah <[email protected]> Dear Master Excel, mohon bantuannya, inputan data setelah di save di form Input Data Mahasiswa qo gak tampil di sheet1 file terlampir.. thnk, Arafir
