Soru Mükerrer

[sirkülasyon]

Rica Etsem
kontrol = WorksheetFunction.VLookup(Sheets("KAYIT").Range("T3:T" & Sheets("KAYIT").Range("T65536").End(3).Row), 1, False)
kacinci = WorksheetFunction.Match(Sheets("KAYIT").Range("T3:T" & Sheets("KAYIT").Range("T65536").End(3).Row), 0)

If kontrol <> "" Then
MsgBox " aynı yerleşim yerinde kayıt var!" & vbLf & "( " & kacinci & ". satırda kayıtlı.. )", vbExclamation, "UYARI!!!"
Exit Sub
End If

T3:T aralığında bulunun metin aynısı ise MÜKERRER olarak görsün
T3:T aralığında bulunun metinde 1 harf dahi değişik ise MÜKERRER olarak görmesin

Nasıl düzenlenebilir konusunda yardım edebilirmisiniz bana

 

[Korhan Ayhan]

Find komutunu araştırın...

 

[sirkülasyon]

Korhan abi
FİND komutu ile bulduklarımı entegre etmekte zorlanıyorum.

Dim MyRange As Range
Dim LastRow As Long
LastRow = ActiveSheet.Range("b" & Rows.Count).End(xlUp).Row
Set MyRange = ActiveSheet.Range("b3:t" & LastRow)
MyRange.RemoveDuplicates Columns:=19, Header:=xlYes

 

[Korhan Ayhan]

"T" sütununda hangi veriyi arıyorsunuz?

 

[sirkülasyon]

T3 den itibaren
................................. İlkokulu taşıma merkezli okul müdürlüğüne deneme yerleşim yerindeki 14 öğrenciyi 15 km ile 82,64 TL birim fiyat ile 180 gün taşıma işi
birleştirilmiş olarak kaydediyorum

Eğer ki kaydet tuşu ile aynı bilgi "T" Sütununa kayıt edilirse kaydetmesin

Private Sub CommandButton1_Click()
On Error Resume Next
If TextBox1.Value = "" Then
MsgBox "Lütfen Yüklenicinin Adını Soyadını Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "Lütfen Yüklenicinin Vatandaşlık Kimlik Numarasını Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox "Lütfen Yüklenicinin Vergi Kimlik Numarasını Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox4.Value = "" Then
MsgBox "Lütfen Yüklenicinin İletişim Numarasını Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox5.Value = "" Then
MsgBox "Lütfen Yüklenicinin Tebligat Adresini Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox6.Value = "" Then
MsgBox "Lütfen İhale Kayıt numarasını Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If ComboBox1.Value = "" Then
MsgBox "Lütfen Merkez Okul Adı Seçiniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox7.Value = "" Then
MsgBox "Lütfen Taşınan Yerleşim Yerini Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox8.Value = "" Then
MsgBox "Lütfen İş Başlama Tarihini Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox9.Value = "" Then
MsgBox "Lütfen İş Bitiş Tarihini Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox10.Value = "" Then
MsgBox "Lütfen İhale Gün Sayısını Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox11.Value = "" Then
MsgBox "Lütfen Kati Teminat Tutarını Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox12.Value = "" Then
MsgBox "Lütfen Öğrenci Sayısını Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox13.Value = "" Then
MsgBox "Lütfen Km Uzaklığını Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox14.Value = "" Then
MsgBox "Lütfen Sözleşme Bedelini Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If
If TextBox15.Value = "" Then
MsgBox "Lütfen Sözleşme Tarihini Giriniz!", vbExclamation, "UYARI!!!"
Exit Sub
End If


'End If
sonsatır = WorksheetFunction.CountA(Worksheets("KAYIT").Range("B:B")) + 1
If sonsatır = 3 Then
Worksheets("KAYIT").Cells(sonsatır, 3) = TextBox1.Value ' Yüklenici Adı Soyadı
Worksheets("KAYIT").Cells(sonsatır, 4) = TextBox5.Value ' Tebligat Adresi
Worksheets("KAYIT").Cells(sonsatır, 5) = TextBox2.Value ' T.C Kimlik No
Worksheets("KAYIT").Cells(sonsatır, 6) = TextBox3.Value ' Vergi Kimlik No
Worksheets("KAYIT").Cells(sonsatır, 7) = TextBox4.Value ' GSM No
Worksheets("KAYIT").Cells(sonsatır, 8) = ComboBox1.Value ' Taşıma Merkez Okul Adı
Worksheets("KAYIT").Cells(sonsatır, 9) = TextBox7.Value ' Taşınan Yerleşim Yeri
Worksheets("KAYIT").Cells(sonsatır, 10) = TextBox12.Value ' Taşınan Öğrenci Sayısı
Worksheets("KAYIT").Cells(sonsatır, 11) = TextBox13.Value 'Taşıma Yapılan KM
Worksheets("KAYIT").Cells(sonsatır, 12) = TextBox6.Value ' İhale Kayıt Numarası
Worksheets("KAYIT").Cells(sonsatır, 13) = TextBox14.Value ' Sözleşme Bedeli
Worksheets("KAYIT").Cells(sonsatır, 14) = TextBox10.Value ' İhale Gün Sayısı
Worksheets("KAYIT").Cells(sonsatır, 15) = TextBox16.Value 'Teklif Tutarı
Worksheets("KAYIT").Cells(sonsatır, 16) = TextBox11.Value 'Kati Teminat
Worksheets("KAYIT").Cells(sonsatır, 17) = TextBox8.Value ' İş Başlama Tarihi
Worksheets("KAYIT").Cells(sonsatır, 18) = TextBox9.Value ' İş Bitiş Tarihi
Worksheets("KAYIT").Cells(sonsatır, 19) = TextBox15.Value ' Sözleşme Tarihi

Else
Worksheets("KAYIT").Cells(sonsatır, 3) = TextBox1.Value ' Yüklenici Adı Soyadı
Worksheets("KAYIT").Cells(sonsatır, 4) = TextBox5.Value ' Tebligat Adresi
Worksheets("KAYIT").Cells(sonsatır, 5) = TextBox2.Value ' T.C Kimlik No
Worksheets("KAYIT").Cells(sonsatır, 6) = TextBox3.Value ' Vergi Kimlik No
Worksheets("KAYIT").Cells(sonsatır, 7) = TextBox4.Value ' GSM No
Worksheets("KAYIT").Cells(sonsatır, 8) = ComboBox1.Value ' Taşıma Merkez Okul Adı
Worksheets("KAYIT").Cells(sonsatır, 9) = TextBox7.Value ' Taşınan Yerleşim Yeri
Worksheets("KAYIT").Cells(sonsatır, 10) = TextBox12.Value ' Taşınan Öğrenci Sayısı
Worksheets("KAYIT").Cells(sonsatır, 11) = TextBox13.Value 'Taşıma Yapılan KM
Worksheets("KAYIT").Cells(sonsatır, 12) = TextBox6.Value ' İhale Kayıt Numarası
Worksheets("KAYIT").Cells(sonsatır, 13) = TextBox14.Value ' Sözleşme Bedeli
Worksheets("KAYIT").Cells(sonsatır, 14) = TextBox10.Value ' İhale Gün Sayısı
Worksheets("KAYIT").Cells(sonsatır, 15) = TextBox16.Value 'Teklif Tutarı
Worksheets("KAYIT").Cells(sonsatır, 16) = TextBox11.Value 'Kati Teminat
Worksheets("KAYIT").Cells(sonsatır, 17) = TextBox8.Value ' İş Başlama Tarihi
Worksheets("KAYIT").Cells(sonsatır, 18) = TextBox9.Value ' İş Bitiş Tarihi
Worksheets("KAYIT").Cells(sonsatır, 19) = TextBox15.Value ' Sözleşme Tarihi
MsgBox "İLGİLİ YÜKLENİCİNİN KAYDI BAŞARIYLA YAPILMIŞTIR.", vbInformation, "K A Y I T  İ Ş L E M İ"
End If

             TextBox1.Value = ""
             TextBox2.Value = ""
             TextBox3.Value = ""
             TextBox4.Value = ""
             TextBox5.Value = ""
            ComboBox1.Value = ""
            TextBox6.Value = ""
            TextBox7.Value = ""
            TextBox8.Value = ""
            TextBox9.Value = ""
            TextBox10.Value = ""
            TextBox11.Value = ""
            TextBox12.Value = ""
            TextBox13.Value = ""
            TextBox14.Value = ""
            TextBox15.Value = ""
            TextBox16.Value = ""
            TextBox17 = Worksheets("KAYIT").Range("B" & Cells.Rows.Count).End(3).Row
            evnUst = Me.Top: evnSol = Me.Left
            Me.Hide
            Me.Show
            Me.Move evnSol, evnUst
         

End Sub