cem yılmaz
Altın Üye
- Katılım
- 23 Aralık 2006
- Mesajlar
- 356
- Excel Vers. ve Dili
- excel 2007 TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 20-10-2026
Merhabalar;
Başta bu kodların sahibi olan Sn.Ayhan ERCAN'a teşekkür ederim.
Aşağıdaki kodların işleyişini bozmadan combobox ile a5'den a65536'ya kadar olan verileri karşılaştırmak istiyorum.
Yani işlem Command butona basılınca combobox içindeki veri ile örneğin a5'i karşılaştır aynısıysa devam et değilse uyarı ver.Yardım edermisiniz?
Private Sub CommandButton1_Click()
Dim k As Range, w As Range
If TextBox2.Value = "" Then Exit Sub
Set k = Range("B5:B65536").Find(TextBox2.Value, , xlValues, xlWhole)
Set w = Range("c5:c65536").Find(TextBox3.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
If Not w Is Nothing Then
cevap = MsgBox("Bu Tesisat No daha önce" & w.Offset(0, -1).Value & _
" Mühür No ile girilmiştir." & Chr(13) & _
"Yine de güncellensin mi?", vbYesNo, "UYARI")
If cevap = vbYes Then
If k.Offset(0, 1).Value = "" And k.Offset(0, 2).Value = "" Then
k.Select
k.Value = TextBox2.Value
k.Offset(0, 1).Value = TextBox3.Value
k.Offset(0, 2).Value = TextBox1.Value
k.Offset(0, 3).Value = DTPicker1.Value
k.Offset(0, 4).Value = ComboBox1.Value
k.Offset(0, 3).NumberFormat = "dd.mm.yyyy"
Else
MsgBox "Bu Mühür No daha önce güncellenmiştir!", vbCritical, "UYARI"
End If
End If
ElseIf w Is Nothing Then
If k.Offset(0, 1).Value = "" And k.Offset(0, 2).Value = "" Then
k.Select
k.Value = TextBox2.Value
k.Offset(0, 1).Value = TextBox3.Value
k.Offset(0, 2).Value = TextBox1.Value
k.Offset(0, 3).Value = DTPicker1.Value
k.Offset(0, 4).Value = ComboBox1.Value
k.Offset(0, 3).NumberFormat = "dd.mm.yyyy"
Else
MsgBox "Bu Mühür No daha önce güncellenmiştir!", vbCritical, "UYARI"
End If
End If
Else
MsgBox "Aranılan Mühür No Bulunamadı..!!", vbCritical, "MÜHÜR NO"
End If
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox2.SetFocus
End Sub__________________
Başta bu kodların sahibi olan Sn.Ayhan ERCAN'a teşekkür ederim.
Aşağıdaki kodların işleyişini bozmadan combobox ile a5'den a65536'ya kadar olan verileri karşılaştırmak istiyorum.
Yani işlem Command butona basılınca combobox içindeki veri ile örneğin a5'i karşılaştır aynısıysa devam et değilse uyarı ver.Yardım edermisiniz?
Private Sub CommandButton1_Click()
Dim k As Range, w As Range
If TextBox2.Value = "" Then Exit Sub
Set k = Range("B5:B65536").Find(TextBox2.Value, , xlValues, xlWhole)
Set w = Range("c5:c65536").Find(TextBox3.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
If Not w Is Nothing Then
cevap = MsgBox("Bu Tesisat No daha önce" & w.Offset(0, -1).Value & _
" Mühür No ile girilmiştir." & Chr(13) & _
"Yine de güncellensin mi?", vbYesNo, "UYARI")
If cevap = vbYes Then
If k.Offset(0, 1).Value = "" And k.Offset(0, 2).Value = "" Then
k.Select
k.Value = TextBox2.Value
k.Offset(0, 1).Value = TextBox3.Value
k.Offset(0, 2).Value = TextBox1.Value
k.Offset(0, 3).Value = DTPicker1.Value
k.Offset(0, 4).Value = ComboBox1.Value
k.Offset(0, 3).NumberFormat = "dd.mm.yyyy"
Else
MsgBox "Bu Mühür No daha önce güncellenmiştir!", vbCritical, "UYARI"
End If
End If
ElseIf w Is Nothing Then
If k.Offset(0, 1).Value = "" And k.Offset(0, 2).Value = "" Then
k.Select
k.Value = TextBox2.Value
k.Offset(0, 1).Value = TextBox3.Value
k.Offset(0, 2).Value = TextBox1.Value
k.Offset(0, 3).Value = DTPicker1.Value
k.Offset(0, 4).Value = ComboBox1.Value
k.Offset(0, 3).NumberFormat = "dd.mm.yyyy"
Else
MsgBox "Bu Mühür No daha önce güncellenmiştir!", vbCritical, "UYARI"
End If
End If
Else
MsgBox "Aranılan Mühür No Bulunamadı..!!", vbCritical, "MÜHÜR NO"
End If
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox2.SetFocus
End Sub__________________