*vba skrip * tujuan : mendeteksi dan mencegah input (2 kolom ) yg sudah pernah ada di salah satu Tabel Data (lha wong tabel data kok dipisah -pisah?! )
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ' markonah - pedagang nasi padang ' XL-mania case: http://tech.groups.yahoo.com/group/XL-mania/message/20459 '------------------------------------------------------------- Dim CurrTbl As Range, CurrSht As Worksheet, r As Long If Sh.Name <> "DATABASE" Then If Target.Count = 1 Then If Target.Column = 1 Or Target.Column = 4 Then Application.Calculation = xlCalculationManual For Each CurrSht In ThisWorkbook.Sheets Set CurrTbl = Nothing If Not CurrSht.Name = "DATABASE" Then Set CurrTbl = _ CurrSht.Cells(1).CurrentRegion If CurrSht.Name = Target.Parent.Name <http://target.parent.name/> Then Set CurrTbl = _ CurrTbl.Resize(CurrTbl.Rows.Count - 1, CurrTbl.Columns.Count) If Not CurrTbl Is Nothing Then For r = 1 To CurrTbl.Rows.Count If Len(Sh.Cells(Target.Row, 1).Value) > 0 Then If Len(Sh.Cells(Target.Row, 4).Value) > 0 Then If CurrTbl(r, 1).Value = Target.Parent.Cells(Target.Row, 1).Value Then If CurrTbl(r, 4).Value = Target.Parent.Cells(Target.Row, 4).Value Then MsgBox "Data sudah ada di Sheet " & CurrSht.Name & " baris " & r, vbCritical Sh.Cells(Target.Row, 1).EntireRow.ClearContents CurrSht.Activate Cells(r, 1).Resize(1, CurrTbl.Columns.Count).Select Exit Sub End If End If End If End If Next r End If Next CurrSht Application.Calculation = xlCalculationAutomatic End If End If End If End Sub '----------------------- Lampiran / contoh workbook ada di sini...<https://www.box.com/s/b6c317360690a23ea441> sambil tanya juga ke para pakar, apakah pencegah doble entri untuk input 2 kolom yg berlaku untuk BEBERAPA TABEL dapat diaplikasikan dengan Data Validation ?? 2012/5/19 Fadli Sandi <[email protected]> > ** > > Mohon pencerahannya dong mengenai kasus berikut ini, saya menggunakan xl > 2003, setiap bulan saya menginput data data seperti yang ada di attachment, > nah sayang nya, saya harus melihat masing" work sheet nya setiap bulannya > agar tidak terinput dengan data" sebelumya.. > > mohon sekiranya para pakar Xl mania bisa membantu permasalhan saya > ini,mohon maaf sebelumnya apabila sudah re post.. > > Terima kasih, salam sukses selalu... > > SANDI > >
