Re: ]] XL-mania [[ Alert muncul ketika data yang telah di input, di input kembali

 

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 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...

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 <fadlisandi@yahoo.co.id>

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

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 35

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya        |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___