Maaf pak.... betul sekali kriterianya adalah nama dan tanggal. jadi
jika namanya sama dan tanggalnya sama maka akan tertolak dengan "data
sudah ada".
dan skrip ini tidak tertolak melainkan terus saja bisa terinput.
maaf ya pak jika saya merepotkan.... tapi saya akhirnya mencoba dengan:
DataExist = WorksheetFunction.CountIf(Range("C:C"), cboNama.Value)
If DataExist > 3 Then
MsgBox "Data nama sudah ada", vbInformation, "Data dobel"
Else
DataExist = WorksheetFunction.CountIf(Range("c:c"), cboNama.Value)
* WorksheetFunction.CountIf(Range("G:G"), CDate(TxtTgl.Value))
If DataExist > 0 Then
MsgBox "Data tgl sudah ada", vbInformation, "Data dobel"
Exit Sub
dan berhasil.... tapi siapa tau ada yang lebih ringkas.... ^_^
On 9/19/14, SUYONO reza.suy...@lge.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Sore supri
> Mungkin saya kurang bisa memahami keinginan pa supri he..he…
>
> Yang mau jadi kolom kriteria kolom Nama Anggota dan Tanggal kegiatan kan?
> Contoh nama Aisyah dinput dengan tanggal 19-September-2014 lagi, akan muncul
> pesan
> Data sudah ada. Saya lampirkan filenya.
> [cid:image001.png@01CFD423.F877D320][cid:image001.png@01CFD423.F877D320][cid:image002.jpg@01CFD423.F877D320]
>
> Terima kasih
> Suyono
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> Sent: Friday, September 19, 2014 3:14 PM
> To: belajar-excel@yahoogroups.com
> Subject: Re: [belajar-excel] menolak input data kembar pada comboBox
> userform
>
>
>
> maaf pak yono malah tidak berjalan kreiterianya...
>
> On 9/18/14, SUYONO reza.suy...@lge.com [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
>> Maaf pa Supri
>>
>> Email sebelumnya kelewat tidak terbaca.
>> Coba seperti ini.
>>
>> DataExist = WorksheetFunction.CountIfs(Range("C:C"), cboNama.Value, _
>> Range("G:G"), TxtTgl)
>>
>> Salam,
>> Yono
>>
>> From: belajar-excel@yahoogroups.com
>> [mailto:belajar-excel@yahoogroups.com]
>> Sent: Thursday, September 18, 2014 1:53 PM
>> To: belajar-excel@yahoogroups.com
>> Subject: Re: [belajar-excel] menolak input data kembar pada comboBox
>> userform
>>
>>
>>
>> para suhu bgmn solusi permasalahan saya ini ya..
>>
>> On 9/16/14, supri anto supriantohdl07ex...@gmail.com [belajar-excel]
>> <belajar-excel@yahoogroups.com> wrote:
>>> Alhamdulillah,pak suyono....
>>>
>>>
>>> oya lantas apabila saya ingin menambahkan kriteria lagi,misal pada
>>> colom G (tgl) dan saya coba setelah yang bapk buat:
>>>
>>>
>>> DataExist = WorksheetFunction.CountIf(Range("C:C"), cboNama.Value)
>>> If DataExist > 0 Then
>>> MsgBox "Data sudah ada", vbInformation, "Data dobel"
>>> Exit Sub
>>>
>>>
>>> kemudian saya tambahkan dengan :
>>>
>>>
>>> Else
>>> Datatgl = WorksheetFunction.CountIfs(Range("C:C","G:G"), TxtTgl.Value)
>>> If Datatgl > 0 Then
>>> MsgBox "Data tgl sudah ada", vbInformation, "Data dobel"
>>> Exit Sub
>>>
>>>
>>> tapi kog tidak bisa ya pak.... apa salah dalam penempatannya atau
>>> memang seharusnya tidak demikian sekripnya......
>>>
>>>
>>> On 9/15/14, SUYONO reza.suy...@lge.com [belajar-excel]
>>> <belajar-excel@yahoogroups.com> wrote:
>>>> Assalamu'alaikum wr.wb.
>>>>
>>>> Pa supri, pake fungsi countif untuk menolak input data yang sama.
>>>>
>>>> Wassalamu'alaikum war.wb.
>>>>
>>>> From: belajar-excel@yahoogroups.com
>>>> [mailto:belajar-excel@yahoogroups.com]
>>>> Sent: Sunday, September 14, 2014 1:23 PM
>>>> To: belajar-excel@yahoogroups.com
>>>> Subject: [belajar-excel] menolak input data kembar pada comboBox
>>>> userform
>>>> [1
>>>> Attachment]
>>>>
>>>>
>>>>
>>>> Assalamu'alaikum wr.wb.
>>>>
>>>> Alhamdulillah, berdasarkan ilmu-ilmu dari para suhu,saya bisa membuat
>>>> input data menggunakan userform. Yang ingin saya tanyakan bagaimana
>>>> supaya menolak input data yang sama pada ComboBox yang ada di
>>>> userform.....(Filenya terlampir)
>>>>
>>>> Mohon bantuannya ya para Suhu Excel....
>>>>
>>>> Terima kasih banyak sebelumnya...
>>>>
>>>> Wassalamu'alaikum war.wb.
>>>>
>>>> salam
>>>> supri
>>>>
>>>>
>>>
>>
>>
>
>
