Textboxlar içindeki sayı adedi kadar otomatik isimlendirme

[cem yılmaz]

İyi akşamlar;

2 adet textbox'um 1 adet combobox'um var ve textboxların içine yazdığım sayı aralığının karşılarına denk gelen combobox içindeki isimi yazmasını istiyorum Yardımcı olurmusunuz?

 

[cem yılmaz]

Sn Uzmanlarımızdan yardım bekliyorum

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    If (TextBox2 - TextBox1) > 100 Then
    MsgBox "İKİ DEĞER ARASINDAKİ FARK 100'DEN FAZLA OLAMAZ !" & vbCrLf & "LÜTFEN KONTROL EDİNİZ !", vbCritical
    TextBox1.SetFocus
    Exit Sub
    End If
    If TextBox1 > TextBox2 Then
    MsgBox "İLK NUMARA İKİNCİSİNDEN BÜYÜK OLAMAZ !" & vbCrLf & "LÜTFEN KONTROL EDİNİZ !", vbCritical
    TextBox1.SetFocus
    Exit Sub
    End If
    If TextBox1 = "" Then
    MsgBox "LÜTFEN İLK NUMARAYI GİRİNİZ !", vbCritical
    TextBox1.SetFocus
    Exit Sub
    End If
    If TextBox2 = "" Then
    MsgBox "LÜTFEN İKİNCİ NUMARAYI GİRİNİZ !", vbCritical
    TextBox2.SetFocus
    Exit Sub
    End If
    If ComboBox1 = "" Then
    MsgBox "LÜTFEN İSİM SEÇİNİZ !", vbCritical
    ComboBox1.SetFocus
    Exit Sub
    End If
    Set BUL_İLK = [B:B].Find(Val(TextBox1))
    Set BUL_SON = [B:B].Find(Val(TextBox2))
    If Not BUL_İLK Is Nothing And Not BUL_SON Is Nothing Then
    Range("A" & BUL_İLK.Row & ":A" & BUL_SON.Row) = ComboBox1
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
    End If
End Sub
Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "İSİMLER!B2:B" & [İSİMLER!B65536].End(3).Row
End Sub

 

[cem yılmaz]

Yalnız KORHAN Hocam textboxları boş geçtiğim zaman "debug" uyarısı alıyorum.Nasıl düzeltebiliriz.Eğer kayıtlı isim varsada uyarı versin yani hücre doluysa

Birde aynı iki textbox!a girilen numaraların karşısındaki isimleri silme butonu oluşturabilirmiyiz?

 

[Ayhan Ercan]

Merhaba Sn cem yılmaz

Sayın Korhan Ayhan Hocamın kodlarında yer değişimi ve ekleme yaptım. Koldarı deneyiniz...

Private Sub CommandButton1_Click()
Dim BUL_İLK As Range, BUL_SON As Range
On Error Resume Next
    If TextBox1 = "" Then
    MsgBox "LÜTFEN İLK NUMARAYI GİRİNİZ !", vbCritical
    TextBox1.SetFocus
    Exit Sub
    End If
    If TextBox2 = "" Then
    MsgBox "LÜTFEN İKİNCİ NUMARAYI GİRİNİZ !", vbCritical
    TextBox2.SetFocus
    Exit Sub
    End If
    If (TextBox2 - TextBox1) > 99 Then
    MsgBox "İKİ DEĞER ARASINDAKİ FARK 100'DEN FAZLA OLAMAZ !" & vbCrLf & "LÜTFEN KONTROL EDİNİZ !", vbCritical
    TextBox1.SetFocus
    Exit Sub
    End If
    If TextBox1.Value > TextBox2.Value Then
    MsgBox "İLK NUMARA İKİNCİSİNDEN BÜYÜK OLAMAZ !" & vbCrLf & "LÜTFEN KONTROL EDİNİZ !", vbCritical
    TextBox1.SetFocus
    Exit Sub
    End If
    If ComboBox1 = "" Then
    MsgBox "LÜTFEN İSİM SEÇİNİZ !", vbCritical
    ComboBox1.SetFocus
    Exit Sub
    End If
    Set BUL_İLK = [B:B].Find(Val(TextBox1))
    Set BUL_SON = [B:B].Find(Val(TextBox2))
    If Not BUL_İLK Is Nothing And Not BUL_SON Is Nothing Then
    If Range("A" & BUL_&#304;LK.Row).Value <> "" Or Range("A" & BUL_SON.Row).Value <> "" Then
    MsgBox "BU NUMARA DAHA &#214;NCE &#304;&#350;LENM&#304;&#350;", , "UYARI"
    Exit Sub
    End If
    Range("A" & BUL_&#304;LK.Row & ":A" & BUL_SON.Row) = ComboBox1
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
    End If
End Sub

Birde aynı iki textbox!a girilen numaraların karşısındaki isimleri silme butonu oluşturabilirmiyiz?

Bu sorunuzu anlayamadım???

 

[cem yılmaz]

yani aynı userformdaki textboxlara numara girilince deminki kodda nasıl isim yazıyorsa bundada isim silsin Ayhan bey,

Birde aşağıda daha önce işlenmiş uyarısını daha önce şu kişiye işlenmiş yinede işlensinmi şeklinde değiştirebilirmiyiz?


If Not BUL_İLK Is Nothing And Not BUL_SON Is Nothing Then
If Range("A" & BUL_&#304;LK.Row).Value <> "" Or Range("A" & BUL_SON.Row).Value <> "" Then
MsgBox "BU NUMARA DAHA &#214;NCE &#304;&#350;LENM&#304;&#350;", , "UYARI"
Exit Sub

 

[Ayhan Ercan]

Tekrar Merhaba Sayın cem yılmaz

Dosyanız ekte,
İnceleyiniz...

 

[cem yılmaz]

Tamamdır bu iş Emeğinize sağlık Ayhan bey sizi biraz uğraştırdım ama istediğim şey oldu TEŞEKKÜR EDERİM.

Çözemediğim başka konu var Sn evren hocamla bu konu hakkında da yardımcı olabilirmisiniz vaktiniz varsa

http://www.excel.web.tr/showthread.php?t=52348

 

[Orion1]

Tamamdır bu iş Emeğinize sağlık Ayhan bey sizi biraz uğraştırdım ama istediğim şey oldu TEŞEKKÜR EDERİM.

Çözemediğim başka konu var Sn evren hocamla bu konu hakkında da yardımcı olabilirmisiniz vaktiniz varsa

http://www.excel.web.tr/showthread.php?t=52348

Çözemediğim dediğiniz konu sizin eksik ve yanlış anlatımlarınızdan kaynaklanıyor.
Yoksa 10 15 satırlık bir kod yazılacaktı.
İnanırmısınız bu cevap verme konusunda en çok size cevap verrirken zorlanıyorum.Kod yazmaktan değil .Ne istediğiniz anlamakta zorluk çekiyorum.
Yoksa kod yazmak problem değil.Sorularınız sorarken karşıdaki kişinin sizin ne yapmak istediğinizi bilmediğinden yola çıkarak sorunuz.Yeterli açıklamalrı yapınız.Bu soruyu çözecek arkadaşların işini kolaylaştıracaktır.

 

[cem yılmaz]

Evet Hocam biraz haklısınız galiba size anlattığım şeyleri ben bildiğim için kısaca geçmemden kaynaklanıyor herhalde sizi yoruyorum ama yinede bıkmadan, usanmadan bilgilerinizi gerek benle gerekse forum üyeleriyle paylaşıyor bizlerden esirgemiyorsunuz.Sağolun Evren hocam

İyi Çalışmalar...