user form üzerindeki combobox'a liste eklemek ?

[gokay]

user form üzerinde iki combobox açtım biri firma ünvanı bulunca J6 ya yazacak diğeri firma kodunu bulunca J5 e yazacak bunu user form1 üzerinde nasıl yapabilirim. Bu konuda yardımınızı bekliyorum

 

[Tarkan VURAL]

user form üzerindeki combobox

Selam;

Eğer firma numarası bir firma adına bağlı ise ve firma kodundan firma adı bulunmayacak sadece firma adı seçildiğinde firma kodu bulunacaksa bunu iki türlü haledebiliriz.

Birinci yol önceden j5 hücresine yazılmış bir formül :

=EÐER(J6="";"";DÜÞEYARA(J6;Sayfa1!A1:B10;2;YANLIÞ))

ikinci yol combobox change olayına yazılacak kod

Dim bul As Range
Private Sub ComboBox1_Change()
    For Each bul In Worksheets("sayfa1").Range("a1:a10")
        If bul.Value = ComboBox1.Value Then
            TextBox1.Value = Rows(bul.Row).Cells(1, 2).Value
                Sheets("sayfa2").Range("j6").Value = ComboBox1.Value
                Sheets("sayfa2").Range("j5").Value = TextBox1.Value
        End If
    Next bul
End Sub

Saygılarımla;
Tarkan VURAL

 

[gokay]

user form üzerindeki combobox

merhaba;Tarkan VURAL
birinci çözüm yolunu yapabiliyorum fakat ikinci yolu uyguladığımda hata veriyor. Aslında istediğim user form1 üzerindeki combobox1'e yazdığım isim yukarıdaki düşeyara formülü ile E6'ya kodu getirdikten sonra userform1 üzerindeki textbox1'e de E6 daki hesap kodunu getirmesini istiyorum. Bu konuda yardımlarınızı bekliyorum. İlginize Teşekkür ederim.

 

[Tarkan VURAL]

Aslında yapılması gereken çok net ve basit. Kodlar tam istediğiniz olayları gerçekleştiriyor.
Dilerseniz zip ile sıkıştırarak dosyanızı ekleyin dosya üzerinden hatayı bulup size gerekli düzeltme konusunda yardımcı olayım.

 

[gokay]

merhaba;Tarkan VURAL
dosya özel bilgiler içeriyor bu yüzden gönderemiyorum. Fakat yeni bir başlık attım. user fom üzerindeki çarpı işaretini kaldırmak ile ilgili bir incelerseniz sevinirim.