Option Explicit Private Sub CmdTAMBAH_Click()
Dim iRow As Long Dim intTotal As Double Dim ws As Worksheet Set ws = Worksheets("dataentri") Application.ScreenUpdating = False ' biar screen tetep diem selama proses ndak kayak TV kurang sinyal Application.DisplayAlerts = False ' biar excel ndak munculin pesen peringatan Application.Calculation = xlManual ' biar excel ndak ngitung mulu saat proses '''find first empty row in database ''iRow = ws.Cells(Rows.Count, 1) _ '' .End(xlUp).Offset(1, 0).Row 'revised code to avoid problems with Excel tables in newer versions iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 'cek input data If Trim(Me.txtMRIS.Value) = "" Then Me.txtMRIS.SetFocus MsgBox " masukan no mriss !!" Exit Sub End If Dim lOpt As Long, lCol As Long For lOpt = 1 To 9 If Controls("OB" & lOpt).Value Then lCol = 3 + lOpt Exit For End If Next lOpt 'posisi data baru (baris excel) iRow = Evaluate("=Count(dataentri!b:b)") + 6 'copy data ws.Cells(iRow, 2).Value = Me.txtTGL.Value ws.Cells(iRow, 3).Value = Me.txtMRIS.Value ws.Cells(iRow, lCol).Value = Me.txtJUMLAH.Value 'hapus data Me.txtTGL.Value = "" Me.txtMRIS.Value = "" Me.txtJUMLAH.Value = "" Me.txtMRIS.SetFocus If IsEmpty(ws.Cells(6, 1)) Then ws.Cells(6, 1) = 1 Sheet1.Range("L6:L14").Formula = "=Sum(d6:k6)" Sheet1.Range("d15:L15").Formula = "=Sum(d6:d13)" Sheet1.Calculate Sheet1.Range("L6:L14").Value = Sheet1.Range("L6:L14").Value Sheet1.Range("d15:L15").Value = Sheet1.Range("d15:L15").Value End If End Sub Private Sub CommandButton2_Click() Unload Me End Sub ________________________________ Dari: Kid Mr. <mr.nm...@gmail.com> Kepada: belajar-excel@yahoogroups.com Dikirim: Senin, 14 Mei 2012 17:01 Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN Coba anda copas hasil pengubahan script Anda Untuk format angka, blok cell di worksheet, klik kanan, pilih format cells -> number -> Number -> ganti isian Decimal Places dengan 0 -> OK Kid. 2012/5/14 achmad adi <dido...@ymail.com> > >terima kaih sebelumnya Mr. kid,,,heee,,,, >untuk pertamakali edit data ,,,SUMTOTAL,,bekerja dengan baik,,,tetapi itu >hanya Kolom pertama (010) aja yang ketotal,,,lainnya gak bisa >trus kalo hasil Total, 2 angka dibelakang koma Langsung Pembulatan,,,tidak >ada komanya,, > > >untuk edit kedua kalinya,,,malah gak ketotal semua,,,, > > > > >________________________________ > >