3 Comboboxla veri seçip karşılığını TextBoxa Yazdırma

[programer]

Arkadaşlar merhaba forumda leventm beyin vermiş olduğu bir kodu çalışmama uyarladım fakat bir yeri beceremedim Üç comboboxtan veri seçiyorum ama bunların karşılığını textboxa yazdıramadım örnek çalışmamı ekliyorum yardımlarınız için şimdiden teşekkür ederim

 

[programer]

Arkadaşlar bana yardımcı olabilirmisiniz baya bi uğraştım ama sonuca varamadım

 

[Levent Menteşoğlu]

Sorunuz açık değil, öncelikle hangi userform ve hangi comboboxlar olduğunu açıklayınki dosyaya bakan aramak zorunda kalmasın.

 

[programer]

Sayın levetm uyarınız için sağolun. Acele bir şekilde yazdığım için böyle oldu.

Arkadaşlar İplik Hareket Formu Üzerinde ComboBox1'den Firma isimlerini seçiyorum. ComboBox3' e seçtiğim firmaya ait Renk sayfasından karışımlar geliyor. ComboBox3'ten seçtiğim karışıma göre ComboBox4'e renk kodları geliyor. Benim yapmak istediğim Renk sayfasından ComboBox4'ten seçtiğim renk kodunun karşılığının TextBox2'ye gelmesi.

 

[programer]

Arkadaşlar rahatsızlık veriyorum ama kusura bakmayın sabahtan beri uğraşıyorum halen bi sonuca varamadım lütfen yardım edermisiniz.

 

[Levent Menteşoğlu]

Kodların en üstündeki Dim tanımlamasını aşağıdaki gibi değiştirin.

Dim ilk, son, ilk2

Combobox4 de aşağıdaki kodu yazın.

Private Sub ComboBox4_Change()
TextBox2 = Sheets("renk").Cells(ComboBox4.ListIndex + ilk2, "e")
If ComboBox4 = "" Then TextBox2 = ""
End Sub

 

[programer]

Sayın Leventm yardımlarınız için teşekkür ederim.

Dediğiniz gibi kodları düzenledim gayet güzel bir şekilde çalışıyor. Yalnız şöyle bir problemle karşılaştım. İplik Hareket Formunda ComboBox1 den firmayı seçiyorum ComboBox3'e 2 adet karışım geliyor bunları aşağıdaki resimdeki gibi seçip kaydediyorum ama ikinci satıra ComboBox3 ve ComboBox4 teki veri tekrar ediyor bunu nasıl düzeltebilirim

 

[programer]

Arkadaşlar uğraştım ama halen beceremedim lütfen yardım edermisiniz.

 

[programer]

Arkadaşlar kodu aşağıdaki gibi değiştirdim ama bi sonuç elde edemedim. Lütfen yardım edermisiniz

Private Sub CommandButton2_Click()
On Error Resume Next
Set s1 = Sheets("VERİ")
Dim t As Range
If ComboBox1 = "" Then
MsgBox "FİRMA ADI BOŞ BIRAKILAMAZ..."
Exit Sub
End If
If ComboBox2.Value = "GİRİŞ" Then
c = WorksheetFunction.CountA(Worksheets("VERİ").[a1:a60000]) - 1
For a = 2 To 31 Step 3
For f = 3 To 22 Step 2
If Controls("textbox" & a) = "" Then Exit Sub
If Controls("combobox" & f) = "" Then Exit Sub
c = c + 1
s1.Cells(c + 1, "A") = c
s1.Cells(c + 1, "B") = CLng(CDate(TextBox1.Value))
s1.Cells(c + 1, "C") = ComboBox1.Value
s1.Cells(c + 1, "D") = Controls("combobox" & f)
s1.Cells(c + 1, "E") = Controls("combobox" & f + 1)
s1.Cells(c + 1, "F") = Controls("textbox" & a)
s1.Cells(c + 1, "G") = Controls("textbox" & a + 1)
s1.Cells(c + 1, "H") = Controls("textbox" & a + 2)
Next
End If
c = WorksheetFunction.CountA(Worksheets("VERİ").[a1:a60000]) - 1
For a = 2 To 31 Step 3
For f = 3 To 22 Step 2
If Controls("textbox" & a) = "" Then Exit Sub
If Controls("combobox" & f) = "" Then Exit Sub
c = c + 1
s1.Cells(c + 1, "A") = c
s1.Cells(c + 1, "B") = CLng(CDate(TextBox1.Value))
s1.Cells(c + 1, "C") = ComboBox1.Value
s1.Cells(c + 1, "D") = Controls("combobox" & f)
s1.Cells(c + 1, "E") = Controls("combobox" & f + 1)
s1.Cells(c + 1, "F") = Controls("textbox" & a)
s1.Cells(c + 1, "I") = Controls("textbox" & a + 1)
s1.Cells(c + 1, "J") = Controls("textbox" & a + 2)
Next
End Sub

 

[Levent Menteşoğlu]

Dosyanızı yeniden düzenledim, nesnelere verdiğiniz isimleri değiştirdim. Yaptığım bu değişikliği iyice inceleyin, amacı döngü kullanmayı kolaylaştırmak ve kodları kısaltmaktır. Ayrıca class module kullanarak kodlarda ciddi tasarrufta sağlanmıştır.

 

[programer]

Sayın Leventm yardımlarınızdan dolayı teşekkür ederim. Rahatsızlığımdan dolayı forumdan biraz uzak kaldım. Yaptığınız değişiklikler çok işime yaradı ama kullanmaya başladıkça bazı sorunlarla karşılaştım. Dosyanın içinde gerekli açıklamaları yaptım

 

[programer]

Arkadaşlar yardım edebilirmisiniz.