ComboBox'tan Excel'e Veri Aktarma

[boss2090]

Merhaba arkadaslar ben Excelde bir kod yazdim sizlerinde yardimiyla tabikii. Ama ben bunu Userform a dönüstürmek istiyorum. Onun icin kod da ne gibi degisiklik yapmam gerek. Birde bu Userform da olusturacagimiz Combobox larda secim yaptiktan sonra verinleri Excele nasil akatarabilirim.
Not: Celik Türleri: IPE, HEA, HEB, HEM ve Kod 2 dekiler Celiktürlerine bagli veriler.

Örnek: Userform da iki tane Combobox olusturtuktan sonra
1 Combobox da Celiktürlerinden birini sececegim. Mesala Eger IPE secersem Buna bagli IPE 80 , IPE 100 ... gibi verilerin Combobox 2 de olusmas gerek. Eger Combobox da HEA secersem Combobox 2 de HEA 100, HEA 120..... gibi verilerin olmasi gerek. Combobox 2 de secim yaptiktan sonra bunlara bagli kod da verilmis verilerin Excelde bir hücreye aktirmasini istiyorum.
Simdiden Tesekkürler Arkadaslar.
Dosya Ektedir.

 

[İhsan Tank]

verileri sayfaya yazarsanız ve bir userform tasarlayıp gönderirseniz yardımcı olmaya çalışırım.
verileri mesela
A B
IPE A
IPE B
Hea A
hea B
gibi dizayn ederseniz yardımcı olmaya çalışırım

 

[boss2090]

Combobox ile Excel e veri aktarimi

Arkadasim yükledim birtane örnek. Combobox 1 ve 2 de ne yapmak isdediklerimi listeledim. Simdi son adim olarak: En son Combobox 2 den secim yaptiktan sonra Excelin herhangi bir hücresinde celikcesitlerine bagli veriler ciksin.

 

[boss2090]

yardiminizi bekliyorum arkadaslar..

 

[İhsan Tank]

dosyanızı 2003 olarak yükler misiniz.
şu an 2007'yi açmakta problem yaşıyorum

 

[boss2090]

tamam ihsan kardesim yükledim.

 

[boss2090]

arkadaslar bekliyorum ama kimseden cevap yok. biriniz yardim etsin lütfen

 

[İhsan Tank]

1 çok acele ediyorsunuz.
2 dosyada ne yapılacağını yazmamışsınız biz nasıl işlem yapacağız

 

[boss2090]

tamam arkadasim özür dilerim. tekrardan yükledim umarim simdi sorun cikmaz.

 

[İhsan Tank]

tamam arkadasim özür dilerim. tekrardan yükledim umarim simdi sorun cikmaz.

merhaba
userform'un kod bölümüne

Private Sub ComboBox2_Change()
If ComboBox1 = "IPE" Or ComboBox2 = "IPE 80" Then
Range("A1") = 40
ElseIf ComboBox1 = "HEA" Or ComboBox2 = "HEA 100" Then
Range("A1") = 250
End If
End Sub

bu kod'u yazın ve comboboxtan seçim yapın.
yazdığınız iki örnek sonucu veriyor şu anda

 

[boss2090]

tesekkürler ihsan...benim is tammdir. yanlis yaptiysak kusurumuza bakma benim isim biraz acildi o yüzden.
hersey icin tesekkürler.

 

[İhsan Tank]

tesekkürler ihsan...benim is tammdir. yanlis yaptiysak kusurumuza bakma benim isim biraz acildi o yüzden.
hersey icin tesekkürler.

rica ederim
:yazici: