combobox ile hücre karşılaştırma

C

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__________________
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
İşte kodlar.
İstediğiniz yerde kullanabilirsiniz.:cool:
Kod: 
Dim deg As String, hcr As String, i As Long
deg = UCase(Replace(Replace(ComboBox1.Text, "ı", "I"), "i", "İ"))
For i = 5 To 65536
    If Range("A" & i) <> "" Then
        hcr = UCase(Replace(Replace(Range("A" & i).Value, "ı", "I"), "i", "İ"))
        If deg <> hcr Then
            MsgBox "[ " & Range("A" & i).Value & " ] Ayni değil..!!", vbCritical, "DİKKAT"
        End If
    End If
Next i
 
C

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
cem y&#305;lmaz;284182' Alıntı:
Merhabalar;


Private Sub CommandButton1_Click()
Dim deg As String, hcr As String, i As Long
deg = UCase(Replace(Replace(ComboBox1.Text, "&#305;", "I"), "i", "&#304;"))
For i = 5 To 65536
If Range("A" & i) <> "" Then
hcr = UCase(Replace(Replace(Range("A" & i).Value, "&#305;", "I"), "i", "&#304;"))
If deg <> hcr Then
MsgBox "[ " & Range("A" & i).Value & " ] Ayni de&#287;il..!!", vbCritical, "D&#304;KKAT"
End If
End If
Next i
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 &#246;nce" & w.Offset(0, -1).Value & _
" M&#252;h&#252;r No ile girilmi&#351;tir." & Chr(13) & _
"Yine de g&#252;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&#252;h&#252;r No daha &#246;nce g&#252;ncellenmi&#351;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&#252;h&#252;r No daha &#246;nce g&#252;ncellenmi&#351;tir!", vbCritical, "UYARI"
End If
End If
Else
MsgBox "Aran&#305;lan M&#252;h&#252;r No Bulunamad&#305;..!!", vbCritical, "M&#220;H&#220;R NO"
End If
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox2.SetFocus
End Sub__________________
Genişletmek için tıkla ...


Evren hocam verdi&#287;iniz form&#252;l &#231;al&#305;&#351;&#305;yor ama uyar&#305; verdikten sonra tak&#305;l&#305;yor yani s&#252;rekli tamam tu&#351;una bas&#305;yorum bir sefer hata verdirebilirmiyiz?
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Ama siz değişik değer buldukça mesaj versin demiştiniz.
Şimdi değişik değerlerler birden fazla olursa bir defa mesaj versin diğerlerini gözardı etsinmi diyorsunuz?:cool:
 
C

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
Evren hocam ekledi&#287;im dosyamda biraz daha konuyu a&#231;arak ve &#246;rnek vererek a&#231;&#305;klamaya &#231;al&#305;&#351;t&#305;m bakarm&#305;s&#305;n&#305;z?
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Dosyanız ekte.:cool:
Kod: 
Private Sub CommandButton1_Click()
Dim deg As String, hcr As String, i As Long, muhnohcr, muhnotxt As String
deg = UCase(Replace(Replace(ComboBox1.Text, "ı", "I"), "i", "İ"))
muhnotxt = TextBox1.Text
For i = 2 To 65536
    If Range("B" & i) <> "" Then
        hcr = UCase(Replace(Replace(Range("B" & i).Value, "ı", "I"), "i", "İ"))
        If deg = hcr Then
            muhnohcr = Range("C" & i).Value
            If muhnotxt <> muhnohcr Then
                MsgBox "[ " & Range("C" & i).Value & " ] Ayni değil..!!", vbCritical, "DİKKAT"
            End If
        End If
    End If
Next i
End Sub
 
C

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
dedi&#287;inizi yapt&#305;m ama olmad&#305; evren hocam dosyama bakabilirmisiniz?
 
Son düzenleme:
C

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
Ben i&#351;leyi&#351;i anlatay&#305;m;
&#304;&#351;lemin m&#252;h&#252;r no adl&#305; textbox'u i&#231;inde yaz&#305;lan numara ile ba&#287;lant&#305;l&#305; &#231;al&#305;&#351;mas&#305; gerekiyorki yaz&#305;lan m&#252;h&#252;r numaras&#305;n&#305;n yan&#305;ndaki isim ile o m&#252;h&#252;r numaras&#305;na kaydedilecek isimi kar&#351;&#305;la&#351;t&#305;rabilsin do&#287;ruysa i&#351;leme devam etsin..
 
Son düzenleme:
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Tabbiki olmaz .&#199;&#252;nk&#252; sizin dosyan&#305;zdaki m&#252;h&#252;r numaralar&#305; textbox2'de ,oysa benim yazd&#305;&#287;&#305;m textbox1'de.Ayr&#305;ca kar&#351;&#305;la&#351;t&#305;rmay&#305;da B h&#252;cresinde yapm&#305;&#351;s&#305;n&#305;z.
:cool:
Kod: 
Dim deg As String, hcr As String, i As Long, muhnohcr, muhnotxt As String
deg = UCase(Replace(Replace(ComboBox1.Text, "&#305;", "I"), "i", "&#304;"))
muhnotxt = TextBox2.Text
For i = 6 To Cells(65536, "A").End(xlUp).Row
    If Range("A" & i) <> "" Then
        hcr = UCase(Replace(Replace(Range("A" & i).Value, "&#305;", "I"), "i", "&#304;"))
        If deg = hcr Then
            muhnohcr = Range("B" & i).Value
            If muhnotxt <> muhnohcr Then
                MsgBox "[ " & Range("B" & i).Value & " ] Ayni de&#287;il..!!", vbCritical, "D&#304;KKAT"
            End If
        End If
    End If
Next i
 
Son düzenleme:
C

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
Evren hocam yapmış olduğunuz benim istediğim işlemin tam tersini yapıyor iki isim aynıysa uyarı veriyor iki isim farklıysa kayıt yapıyor bunu tersine çevirebilirmiyiz?
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Aşağıdaki kodları kullanınız.:cool:
Kod: 
Dim deg As String, hcr As String, i As Long, muhnohcr, muhnotxt As String
deg = UCase(Replace(Replace(ComboBox1.Text, "ı", "I"), "i", "İ"))
muhnotxt = TextBox2.Text
For i = 6 To Cells(65536, "B").End(xlUp).Row
    If Range("B" & i) <> "" Then
        muhnohcr = Range("B" & i).Value
        If muhnotxt = muhnohcr Then
            hcr = UCase(Replace(Replace(Range("A" & i).Value, "ı", "I"), "i", "İ"))
            If deg <> hcr Then
                MsgBox "[ " & Range("A" & i).Value & " ] Ayni değil..!!", vbCritical, "DİKKAT"
            End If
        End If
    End If
Next i
 
A

Ayhan Ercan

Özel Üye
Katılım
10 Ağustos 2005
Mesajlar
1,571
Excel Vers. ve Dili
Microsoft 365- Türkçe
Merhaba

Say&#305;n Evren Gizlen hocam cvp vermi&#351;...

..................
 
C

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
işlemleri doğru yapıyor bu seferde uyarıya tamam denilice yine kayıt yapıyor hata verirse kayıt yapmasın istiyorum
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
:cool:
Kod: 
Dim deg As String, hcr As String, i As Long, muhnohcr, muhnotxt As String
deg = UCase(Replace(Replace(ComboBox1.Text, "ı", "I"), "i", "İ"))
muhnotxt = TextBox2.Text
For i = 6 To Cells(65536, "B").End(xlUp).Row
    If Range("B" & i) <> "" Then
        muhnohcr = Range("B" & i).Value
        If muhnotxt = muhnohcr Then
            hcr = UCase(Replace(Replace(Range("A" & i).Value, "ı", "I"), "i", "İ"))
            If deg <> hcr Then
                MsgBox "[ " & Range("A" & i).Value & " ] Ayni değil..!!", vbCritical, "DİKKAT"
                Exit Sub
            End If
        End If
    End If
Next i
 
C

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
Evet evren hocam oldu hemde tam istediğim gibi emeğinize sağlık Teşekkürler.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst