Textboxtaki sayıların "metin olarak saklanamaması" sorunu!

[harziyan]

Merhabalar;
Ekli dosyamda açılan formda “ÜKD Sorgula” butonu; “liste” sayfasında “ M” sütununda sorgulanan veriyi arıyor.
Bilgi için: “ liste” sayfasına ilk kayıt yapılırken “Defter Cilt Numaraları” girdiğim textboxa 1’den fazla ve 6 veya 7 rakamlı cilt numarası giriyorum. (123456 1234578 gibi.)
Bu numaraların haliyle metin olarak saklanması lazım ki aynı hücreye 1’den fazla defter numaraları girilebilsin.
Sorun: “ÜKD Sorgula” butonu “liste” sayfasında “M” sütununda sadece “metin olarak saklanan sayı” şeklindeki hücrelere girilmiş cilt numaralarında çalışıyor. İlgili sütundaki (nedenini bilmiyorum) bazı hücrelerdeki cilt numaraları –ki bunlarda “metin olarak saklanan sayı” işareti çıkmıyor!- “ÜKD Sorgula” butonu ile bulunamıyor. Hücreyi metin olarak biçimlendirildiği halde.
İsteğim: “liste” sayfasında “M” sütununda saklanan verilerin tamamının “metin olarak saklanan sayı” şeklinde görünmesi ve sorgulama yaptığımda tüm aradığım cilt numaralarını bulabilmek.
Teşekkürler.

 

[Mustafa MUTLU]

Kaydederken M sütununa kayıt yapan
TextBox sun sunundaki Value yi Text olarak değiştirin.

 

[harziyan]

Sn: Mustafa MUTLU dediğinizi denedim maalesef bir şey değişmedi!

 

[Korhan Ayhan]

Merhaba,

KAYDET-DEĞİŞTİR butonlarınızdaki aşağıdaki kodu bir sonraki gibi değiştirin.

Eski kod;

Cells(sonsat, 13) = TextBox12

Yeni kod;

Cells(sonsat, 13).NumberFormat = "@"
Cells(sonsat, 13) = CStr(TextBox12)

 

[harziyan]

Sayın Korhan Ayhan;
Verdiğiniz kod ile tek bir cilt numarası girdiğim zaman veri “metin olarak saklanan sayı” şeklinde oluyor. Ancak ikinci veya üçüncü bir cilt numarasını, aralarında boşluk bırakarak girersem olmuyor.

 

[Korhan Ayhan]

Merhaba,

Bu ayrıntıya dikkat etmemişim. Fakat verdiğim koda bakarak bunu sizin yapmanız gerekirdi. Sonuçta mantık aynı.

TextBox17-TextBox22-TextBox27 nesneleri içinde KAYDET-DEĞİŞTİR butonları altındaki kodları önceki mesajıma bakarak siz düzeltiniz.

 

[harziyan]

Aynı hücre içerisine girilecek değişik cilt numaraları ve arayıp bulma hususunda başkaca bir yol varsa önerilere açığım.

 

[harziyan]

Merhaba,

Bu ayrıntıya dikkat etmemişim. Fakat verdiğim koda bakarak bunu sizin yapmanız gerekirdi. Sonuçta mantık aynı.

TextBox17-TextBox22-TextBox27 nesneleri içinde KAYDET-DEĞİŞTİR butonları altındaki kodları önceki mesajıma bakarak siz düzeltiniz.

Sayın Hocam o hususun farkındayım. Ben Textbox12'deki sorunu çözersem diğerlerini hallederim diye düşünüyordum. Bir de acaba maksadım tam hasıl olmamış gibi geldi müsadenizle tekrar edeyim.

Textbox12'ye tek bir cilt no "123456" girilebildiği gibi "1236546 5478665" gibi de veriler girilebiliyor. Verdiğiniz kod ile tek cilt no girildiğinde sorun yok, ancak 2 veya daha fazla cilt no girildiğinde sorun oluyor.

 

[Korhan Ayhan]

Merhaba,

Kullandığınız yöntem (FIND) en hızlı arama yöntemidir. Szi daha farklı olarak ne istiyorsunuz.

 

[harziyan]

Bu arada umarım Trabzonsporlu değilsinizdir? Yoksa vaktinizi çaldığım için üzülürüm.

 

[harziyan]

Merhaba,

Kullandığınız yöntem (FIND) en hızlı arama yöntemidir. Szi daha farklı olarak ne istiyorsunuz.

Sorgula butonu; iki veya daha fazla cilt numarası girilmiş bir hücredeki bir cilt numarasını arattığımda bulamıyor? Benim kodlarımda bir hata olabilr mi?

 

[Korhan Ayhan]

Merhaba,

Trabzonsporlu değilim ama tanıdığım arkadaşlarım var...

Gelelim sorunuza;

Siz arama işlemi yaparken birebir kod eşleştirmesi ile yapımışsınız. Doğal olarak aynı hücre içinde birden fazla kod giriyorsanız bu şekilde bulamazsınız.

Set k = Sheets("liste").Range("B2:ag5000").Find(ukdnoyagore.Value, , xlValues[COLOR=red], xlWhole[/COLOR])

Kırmızı bölümü komple silin. Bu şekilde içerir yöntemi ile arama yapmış olursunuz.

Bu yöntemde istediğiniz sonucu vermezse verileri döngüya almak gerekecektir. Veri sayınız fazla ise döngü yönteminde yavaşlık sorunu yaşayabilirsiniz.

 

[harziyan]

Hocam maalesef son öneriniz de sorunumu çözmedi ama bana ayırdığınız vakit için yine de çok teşekkür ederim. Artık başkaca yöntemler bulmaya çalışırım. Bu arada Demre'yi bilirsiniz belki şirin bir ilçedir, bu taraflara yolunuz düşürse sizinle tanışıp sohbet etmeyi isterim.

 

[Korhan Ayhan]

Merhaba,

Yolum düşerse bende tanışıp sohbet etmek isterim.