Çözüldü Combobox ile veri getirmek

[Sebahattin]

Selamun aleykum Kiymetli Dostlar ekte Bulunan userform2 de bulunan hissedar girişinde bulunan satış sorumlusu textbox acılısta ekcel sayfsında bulunan kurban bilgileri sayfasında bulunan (N3 )bulunan verinin satış sorumlusu textbox a getirilmesi Münkunmu dur bu konuda yârdim istiyoruz sayfam da sayfa koruma sifresi (durusu)

 

[Sebahattin]

Buradaki userform2 deki kurban no secildiginde satış sorumlusunu kurban bilgileri sayfasında bulunan N3 verisini satış sorumlusu Textbok una getirmesi gerekmekdir

 

[Refaz]

Buradaki userform2 deki kurban no secildiginde satış sorumlusunu kurban bilgileri sayfasında bulunan N3 verisini satış sorumlusu Textbok una getirmesi gerekmekdir

Yazdığınızdan anladığım kadarıyla önceden arama textboxa bul gibi kodlar yazıp textboxlara getirmiştik.Yani aynı mantığı dediğiniz comboboxun change koduna yazacaksınız sayfa ismini değiştirip ve aranan sütun farklıysa sütun harfi değiştirip.
Bu şekilde denediniz mi?

 

[Sebahattin]

sayın Refaz hocam söyle bir değişiklik yaptım .Kurban bilileri sayfasına yeni bir sütun ekledim ve o şutuna satış sorumlusu adını verdim ve satış sorumlusunu kurban sayfasına (J)Sütununda gösterılmistır. Bizim burada yapmak istediğimiz olay söyle olacak :user form2 de kurban küpe no örnegin 1 de bağlı secildi ise satıs sorumlusu kurban bilgileri sayfasında j sutunununda bulunan bilgi (ahmet )gelmesi lazım

TXTSOR.RowSource = "'Kurban Bilgilerı'!A2:A" & Worksheets("Kurban Bilgilerı").Cells(Rows.Count, "J").End(xlUp).Row
böyle bir kod yazdım fakat sonuc alamadım

 

[Refaz]

sayın Refaz hocam söyle bir değişiklik yaptım .Kurban bilileri sayfasına yeni bir sütun ekledim ve o şutuna satış sorumlusu adını verdim ve satış sorumlusunu kurban sayfasına (J)Sütununda gösterılmistır. Bizim burada yapmak istediğimiz olay söyle olacak :user form2 de kurban küpe no örnegin 1 de bağlı secildi ise satıs sorumlusu kurban bilgileri sayfasında j sutunununda bulunan bilgi (ahmet )gelmesi lazım

TXTSOR.RowSource = "'Kurban Bilgilerı'!A2:A" & Worksheets("Kurban Bilgilerı").Cells(Rows.Count, "J").End(xlUp).Row
böyle bir kod yazdım fakat sonuc alamadım

Sayın hocam önceden yazmıştım arama butona tıklayınca kodunda bul gibi yani find ile textboxlara veriler alınıyordu aynı mantık ve önceden dediklerimi yazpsaydınız bence çözerdiniz ama son mesajınızdaki kodla venim önerdiğim kodla hiç alakası var mı?
Her neyse pc açınca hallederim.Yinede bir uğraşmayı deneyin yazdıklarımı.

 

[Refaz]

Kısaca resimdeki gösterdiklerim gibi yapın.Set aralık yazan yerdeki işaretli olan A harfi başkaydı orası A olacak ben önceden değiştirmiştim yine A yerine başka harf yazmışsınız.

 

[Sebahattin]

hocam kodu yazdim sonuc hata
TextBox8.Value = Format((CDbl(TextBox4.Value) + CDbl(TextBox5.Value)), "#,##0.00")

 

[Refaz]

Sayın hocam o kod hatasının konu ile alakası yok.
Önceki konularınızda o hatalar vs.. düzeltilip ayarlanmıştı.Dosyanıza bir göz atmıştım combochange koduna sanırım yine başa döneceksiniz kod hataları için
Bir üstad ve siz bilmiyorum nasıl beceriyorsunuz çalışan kodları bozmayı inanın bende merak ediyorum .Biz düzeltiyoruz siz bozuyorsunuz.
Neyse o hatalı satırn başına tek tırnak ekleyip sonra konu açarsınız.Amaç zaten örneğinize göre satış sorumlusu getirmekti.

 

[Sebahattin]

Aynen

 

[Refaz]

Ama örneğinize göre doğru çalışıyor değil mi?
Birde şunu yazayım öncedende yazmıştım ama aynı durum söz konusu.İsimletin sonunda boşluklar oluyor.Bundan dolayı arama yapınca veriler gelmiyor.Bu yüzden mesela Ahmet ise sonundaki boşluğu silin varsaki yanılmıyorsam vardı boşluk sonda.

 

[Sebahattin]

Uyarilariniz için teşekkür ederiz

 

[Refaz]

Uyarilariniz için teşekkür ederiz

Rica ederim.

 

[Sebahattin]

Sayın Razef hocam sizin yazdıgınız kod hata bende idi Su anda Sıkınti yok yapmak istediğimiz oldu tesekur ederiz

 

[Refaz]

Sayın Razef hocam sizin yazdıgınız kod hata bende idi Su anda Sıkınti yok yapmak istediğimiz oldu tesekur ederiz

Rica ederim,kolay gelsin.

Bu arada Razef değil Refaz(Zafer) olacak sayın hocam