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 [email protected] [belajar-excel]
<[email protected]> 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:[email protected]][cid:[email protected]][cid:[email protected]]
>
> Terima kasih
> Suyono
>
> From: [email protected] [mailto:[email protected]]
> Sent: Friday, September 19, 2014 3:14 PM
> To: [email protected]
> Subject: Re: [belajar-excel] menolak input data kembar pada comboBox
> userform
>
>
>
> maaf pak yono malah tidak berjalan kreiterianya...
>
> On 9/18/14, SUYONO [email protected] [belajar-excel]
> <[email protected]> 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: [email protected]
>> [mailto:[email protected]]
>> Sent: Thursday, September 18, 2014 1:53 PM
>> To: [email protected]
>> 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 [email protected] [belajar-excel]
>> <[email protected]> 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 [email protected] [belajar-excel]
>>> <[email protected]> wrote:
>>>> Assalamu'alaikum wr.wb.
>>>>
>>>> Pa supri, pake fungsi countif untuk menolak input data yang sama.
>>>>
>>>> Wassalamu'alaikum war.wb.
>>>>
>>>> From: [email protected]
>>>> [mailto:[email protected]]
>>>> Sent: Sunday, September 14, 2014 1:23 PM
>>>> To: [email protected]
>>>> 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
>>>>
>>>>
>>>
>>
>>
>
>
