Textbox ile sayfadaki sütunları ilişkilendirmek.

[Korhan Ayhan]

Selamlar arkadaşlar,

Zimmetleme ile ilgili bir çalışmam var. Zimmet dönüş formuna girdiğim bilgilere göre "ZİMMET" sayfasındaki istediğim sütunlara bilgi yazdırmak istiyorum. Fakat bu bölümde takıldım. Biraz daha açıklama yapacak olursam.

"ZİMMET DÃ?NÜÞ FORMU" na comboboxtan adisyon numarası giriyorum. Girdiğim numaraya göre kayıtlı bilgiler geliyor. Bilgiler doğru ise ZİMMETTEN DÜÞ butonu ile "ZİMMET" sayfasında E sütununda girilen numarayı buldurup G sütununa "HAYIR" ve H sütununada Textbox1 deki adisyon dönüş tarihini yazdırmak istiyorum. (Ã?rnek dosya ektedir.)

İyi çalışmalar dilerim. :hey:

 

[isakarakus]

denemedim ama bu mantıkla çalışması gerekli

Dim C As Range
Set C = Columns("E").Find(combobox.Text)
C.Offset(0, 2) = "HAYIR"
C.Offset(0, 3) = TEXTBOX1.TEXT

 

[Korhan Ayhan]

Sayın isakarakus,

Teşekkür ederim verdiğiniz kod işimi gördü.

Bu kodun devamı olarak if komutu ile girilen numaranın karşısında "HAYIR" yazıyorsa uyarı mesajı nasıl ekleyebilirim.

Ã?rneğin;

"Zimmetten düşmek istediğiniz kayıt daha önce zimmetten düşülmüştür. Lütfen yeni bir değer giriniz." şeklinde...

İyi çalışmalar dilerim. :hey:

 

[isakarakus]

C.Offset(0, 2) = "HAYIR"

bu satırı

if c.offset(0,2).text="HAYIR" THEN
msgbox "Zimmetten düşmek istediğiniz kayıt daha önce zimmetten düşülmüştür. Lütfen yeni bir değer giriniz."
else
C.Offset(0, 2) = "HAYIR"
END IF

C.Offset(0, 2) = "HAYIR" bir değişkene bağlasanız daha iyi olur bence

C.Offset(0, 2) = combobox1.text gibi seçimli bir nesne olabilir mesela
böylece yeni değer girilme şansı olur.

 

[Korhan Ayhan]

Teşekkür ederim.

İyi çalışmalar dilerim.