3 Nesneye Bakarak Mükerrer Kayıt Bulma

[bluefalcon]

Değerli arkadaşlar herkese iyi geceler diliyorum,

Ekte gönderdiğim dosyada butonu tıkladığınızda birkaç nesneli bir form ile karşılaşacaksınız. Bu nesnelere istenen bilgiler girildikten sonra Kaydet tuşuna basarsanız Dbase sayfasına kayıt yapıyor. Sizlerden ricam yaklaşık 3 saattir site içerisinde aramama rağmen bulamadığım bir konu hakkında yardım etmeniz olacak. Ekteki dosyadaki nesnelerden Combobox1, Combobox5 ve Textbox3 nesnesine girilmiş olan değerler Dbase sayfasında mevcut ise "Kayıt vardır" desin ve kayıt yapmasın.

Yardımcı olan arkadaşlara minnettar kalırım.

 

[Skorpiyon]

Sayın bluefalcon,

Ben tam kontrolünü yapmadım ama aşağıdaki şekilde bir dener misiniz.
Kaydet butonunuzun kodlarına kırmızı renkli kısmı ekleyiniz.

'KAYDET
Private Sub CommandButton1_Click()
For a = 1 To WorksheetFunction.CountA(Worksheets("DBase").Range("B1:B65536"))
If Cells(a, 2) = ComboBox1 Or Cells(a, 5) = ComboBox5 Or Cells(a, 6) = TextBox3 Then
MsgBox "Kayıt vardır"
Exit Sub
End If
Next a
Dim bak As Range
Dim say As Integer
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If bak.Value = ComboBox1.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
say = WorksheetFunction.CountA(Range("B1:B65000"))
TextBox1.Value = say
Cells(say + 1, 1).Value = TextBox1.Value
Cells(say + 1, 2).Value = ComboBox1.Value
Cells(say + 1, 3).Value = ComboBox2.Value
Cells(say + 1, 4).Value = ComboBox4.Value
Cells(say + 1, 5).Value = ComboBox5.Value
Cells(say + 1, 6).Value = TextBox3.Value

ActiveWorkbook.Save
MsgBox "Verileriniz Kaydedildi", , "KAYIT"
ComboBox1.RowSource = "Dbase!B2:B" & say + 1
TextBox1.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
Unload UserForm1
UserForm1.Show
End Sub

 

[bluefalcon]

süpersin arkadaşım. Eline, koluna, gözüne sağlık...

 

[bluefalcon]

arkadaşım süpersin... eline koluna gözüne sağlık....