Kaydet ve Bul

[satan22]

Selam arkadaşlar Ektedi dosyada Kaydet ve Bul butonlarında bir sorunum var yardımcı olabilirseniz çok sevinirim. Sorunum sayfada ilk kaydı yaparken Kaydet botonu hata veriyor. Ama elle sayfaya bir kayıt girdikten sonra kaydet botunom çalıyor. Yani ilk kaydedeceğim zaman hata oluşuyor.

İkinci sorunum ise bul komotu.. Burda ise en son kaydettiğim veriyi bulmuyor sadece en sondan bir öncekini buluyor. Kodlara bakıp yardımcı olursanı minnettar kalıcam. Şimdeden herkese teşekkürler...

 

[satan22]

umarım biran önce birileri yardımcı olur..

 

[satan22]

arkadaşlar henüz bir cevap alamadım. lütfen yardımcı olurmusunuz..

 

[Orion1]

Dosyanız ekte.

 

[satan22]

hemen bakıyorum hocam teşekkürler...

 

[satan22]

hocam emeğin için teşekkürler ama kayıt butonuna basınca

If bak.Value = CDbl(ComboBox4.Value) Then bu kodda hata olduğunu gösteriyor. Biliyorum çok oldum ama benim için önemli. şimdiden teşekkürler..

 

[Orion1]

hocam emeğin için teşekkürler ama kayıt butonuna basınca

If bak.Value = CDbl(ComboBox4.Value) Then bu kodda hata olduğunu gösteriyor. Biliyorum çok oldum ama benim için önemli. şimdiden teşekkürler..

o pargrafta a sütununda arma yapıyorsunuz.For Each bak In Range("a2:a" & Cells(65536, "A").End(xlUp).Row,Doslayısı ile arnan değer a sütununda oluyor.A sütunundaki değerlerde sayısal olduğu için ben combobx4e cdbl fonksiyonnunu koydum.Yani combobox4 teki değer sayısal bir değer olmalıdır.Öyle değlse arnan yer a sütunu değilse o paragrafı yanlış yazmışsınız demektir.Oz aman hangi sütunu arayacaksanız >a yerine o sütunu yazınız ve eğer aranan sütun sayısal değer değile cdbl fonksiyonununda siliniz..

 

[satan22]

hocam hakkınız ödenmez şimdi tam istediğim gibi oldu. Her şey teşekkürler.

 

[Orion1]

hocam hakkınız ödenmez şimdi tam istediğim gibi oldu. Her şey teşekkürler.

Rica ederim.
İyi çalışmalar.