veri aktarımı

[orcunerkek54]

combodan textlere veri aktarma

herkeze iyi akşamlar... Algil arkadaşımızın yardımı ile yapmaya çalıştığım bir formum var ve onu geliştirmeye çalışıyorum ancak problemlerim bitmiyor.. birtanesi combo1 e veriler geliyor ancak verinin tamamı sayı ise combo2 ye aktarma yapmıyor 2.si ise combo2 deki veri seilince textlere veri aktarsın .ayrıntılı olarak dosyaya yazmaya çalışıyorum şimdiden herkeze teşekkürler dosyam ektedir.........

 

[orcunerkek54]

konu hakkindaki yardımlarınızı bekliyorum dosya orjinal halidir....

 

[algil]

Ekteki dosyayı inceler misiniz. istediğiniz bu mu?

 

[orcunerkek54]

teşekürler

internet problemim olduğu için cevabınıza şu an bakabildim...yardımınız için çok teşekkür ediyorum istediğim buydu... emeğinize ve bilginize sağlık teşekkürler

 

[algil]

Yardımcı olabildiysek ne mutlu.:hey:

 

[orcunerkek54]

merhaba ALGİL hocam bu örneği üc kombolu olarak geliştire bilirmiyiz...... yeni konu açtım ama daha yardım göremedim sizin yardımlarınızı bekliyorum teşekkürler

 

[algil]

Bir örnek gönderebilir misiniz?

 

[orcunerkek54]

dosyam ektedir ancak syn algil ben gene bazı problemlerle karşılaştım mesela combolar sdece sayı oldugu zaman süzme yapmıyor....ben biraz değilde baya karıştırmış olabilirim kod kısmını kusura bakmayın. şimdiden teşekkürler

 

[algil]

dosyam ektedir ancak syn algil ben gene bazı problemlerle karşılaştım mesela combolar sdece sayı oldugu zaman süzme yapmıyor....

Arkadaşım kodları yazarken Combobox.Value olarak yazma Combobox.Text olarak yaz. Ozaman istediğin olur. Dosyanız ektedir.

 

[orcunerkek54]

syn algil yardımınız için teşekkürler çalışma çok güzel ancak en son comboya combo2 deki seçilenlenin tüm verileri geliyor olması gereken.1combodan plaka seçilince combo2ye o plakaya ait üniteler combo3e iseo plakaya ait ünitenin malzemeleri olmalı.. örneklemem gerekirse combo1 den 79 nolu plakayı seçip combo2den motoru seçersem combo3te subap ve yay bilgileri olmalı.. çünkü her araç için malzemelerin ayrıntı bilgileri değişiyor.. teşekkürler yardımcı olabilirseniz sevinirim

 

[algil]

Aşağıdaki kodları kullanabilirsiniz.

Private Sub ComboBox1_Change()
Set s1 = Sheets("sayfa2")
ComboBox2.Clear
ComboBox3.Clear
say = WorksheetFunction.CountA(s1.Range("a:a"))
For Each Bak In s1.Range("a1:a" & say)
If ComboBox1.Text = s1.Cells(Bak.Row, "a").Text And asd <> s1.Cells(Bak.Row, "c").Text Then
    ComboBox2.AddItem s1.Cells(Bak.Row, "c").Value
    asd = s1.Cells(Bak.Row, "c").Text
End If
Next
sat = s1.[a1:a65536].Find(ComboBox1).Row
TextBox1 = s1.Cells(sat, "b")
End Sub
 
Private Sub ComboBox2_Change()
Set s1 = Sheets("sayfa2")
ComboBox3.Clear
say = WorksheetFunction.CountA(s1.Range("a:a"))
For Each Bak In s1.Range("a1:a" & say)
If ComboBox2.Text = s1.Cells(Bak.Row, "c").Text And ComboBox1.Text = s1.Cells(Bak.Row, "a").Text Then
    ComboBox3.AddItem s1.Cells(Bak.Row, "d").Value
End If
Next
End Sub

 

[orcunerkek54]

sayın algil aradan vakit geçtiği halde beni unutmayıp derdime çare olduğunuz için size nasıl teşekkür edeceğimi bilmiyorum..bilginize ve emeğinize sağlık istediğim buydu çok teşekkürler....

 

[algil]

İstediğinizin olması beni sevindirdiost: .