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
>>
>>
>
Copy K R .xlsm
Description: Copy K R .xlsm
