combobox textbox

[cihangirkara]

arkadaşlar merhaba

combobox ta seçeneklerim var acaba son işaretlediğim seçenek dosya açılıp kapandığında orada devamlı kalabalirmi

birde textbox ta enable false yazılar silik çıkıyor yazılar daha görünür nasıl yaparım

 

[Orion1]

combobox'a girdiğiniz değeri bir hücreye yazdırın.UserformInitialize iken hücreden tekrar combobox'a atayın.

 

[cihangirkara]

combobox a değer girmiyorum oraya sayfadan geliyor

örneğin sayfa1 c sütünu benzersiz olanlar combobox ta liste olarak çıkıyor


birde textbox yazı silik çıkıyor onu nasıl yaparım

 

[Orion1]

Combobox'ın click olayına uygun kodu yazınız.

combobox'a girdiğiniz değeri bir hücreye yazdırın.UserformInitialize iken hücreden tekrar combobox'a atayın.

 

[cihangirkara]

hocam combobox un clik olayına yazın diyorsunda ben ne yazacağımı bilmiyorum

ne yapmalıyım ki formu açtığımda combobox ta son seçilen değer gözüksün

selamlar

 

[Orion1]

hocam combobox un clik olayına yazın diyorsunda ben ne yazacağımı bilmiyorum

ne yapmalıyım ki formu açtığımda combobox ta son seçilen değer gözüksün

selamlar

Ben A1 hücresine yazdırıp okutuyorum.Siz kendinizce hangi hücre uygunsa onu kullanınız.
Combobox'ın ismide Combobox1 olduğunu kabul ediyorum.
Aşağıdaki kodları kullanınız.

Private Sub ComboBox1_Change()
Range("A1").Value = ComboBox1.Value
End Sub


Private Sub UserForm_Initialize()
ComboBox1.Value = Range("A1").Value
End Sub

 

[cihangirkara]

hocam anlaşamadık en iyisi ben size dosyayı ekleyeyim

firma risk sayfasında 18 adet combobox var bunlarda sayfa1 den aldığı benzersiz kredi kodları var ben her seferinde seçiyorum istiyorumki seçmeyeyim açtığımda son seçmiş olduğum orada gözüksün

Ayrıca bu dosyaya emeği geçen Sn leventm ye sonsuz teşekkürlerimi bier daha sunarım

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[cihangirkara]

hocam limit boşluğu yazan textbox var oraya bir isteğim olacak

seçilen firmanın genel limiti yazıyor sayfa 1 de firmanın harcamalır var

toplam harcamaları genel limitten düşüp kalanı textbox a yazabilirmiyiz

 

[cihangirkara]

Hocam Sİzİn YaptiĞinizda Sayfaya Kendİmİz Yazmamiz Gerekİyor Ve YazdiĞimiz Siralaya Combobox A Çikiyor Benİm İsteĞİm Combobox Ta En Son SeÇtİĞİm Formu Bİr Daha AÇtiĞimda Orada Kalsin Combobox Ta GÖrÜnsÜn

 

[vivident]

Belkide benim işimi görecek kodlar vardı. ama eski tarihli olduğu için ekteki dosyları çekemiyorum. lakin aynı konu gibi duruyor. bende güncellemek istedim

D,E,F,I sutunlarındaki herhangi bir BOŞ hücreye tıklandığında userfom açılıyor ve comboboxlardan seçim yaparak aktif hücrelere veriler yapışıyor. Burası tamam. Benim istediğim ;

D,E,F,I sutunlarındaki DOLU OLAN HÜCRE'ye (önceden yapıştırdığımızda) tıkladığımızda userform açılıyor. Userform üzerindeki comboboxlarda daha önce yapıştırdığımız verilerin seçili olmasını istiyorum.

Örneğin İlgili hücrelerde
D3=Ahmet
E3=Mehmet
F3=Hasan
I3=Ali verileri var. D3 hücresindeki veriyi değiştirmek istiyorum. D3 hücresine tıkladığımızda useform açılıyor. Diğer comboboxlarda Ahmet-Mehmet-Hasan-Ali verilerinin hazır seçili gelmesini istiyorum. Mümkünmüdür

Private Sub CommandButton1_Click()
    Cells(ActiveCell.Row, "D") = ComboBox1.Value
    Cells(ActiveCell.Row, "E") = ComboBox2.Value
    Cells(ActiveCell.Row, "F") = ComboBox3.Value
    Cells(ActiveCell.Row, "I") = ComboBox4.Value
    Unload Me
End Sub

Private Sub UserForm_Initialize()
ComboBox1.Value = Cells(ActiveCell.Row, "D")
ComboBox2.Value = Cells(ActiveCell.Row, "E")
ComboBox3.Value = Cells(ActiveCell.Row, "F")
ComboBox4.Value = Cells(ActiveCell.Row, "I")
End Sub

Bu kod çalışıyor, fakat seçilen aktif hücrenin içindeki değer, userform üzerindeki ilgili comboboxda kayboluyor

Dosya ektedir