• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
26 Mayıs 2005
Mesajlar
609
Excel Vers. ve Dili
Office 2022 - Türkçe
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
 
Arkadaşlar bana yardımcı olabilirmisiniz baya bi uğraştım ama sonuca varamadım
 
Sorunuz açık değil, öncelikle hangi userform ve hangi comboboxlar olduğunu açıklayınki dosyaya bakan aramak zorunda kalmasın.
 
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.
 
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.
 
Kodların en üstündeki Dim tanımlamasını aşağıdaki gibi değiştirin.

Kod:
Dim ilk, son, ilk2

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

Kod:
Private Sub ComboBox4_Change()
TextBox2 = Sheets("renk").Cells(ComboBox4.ListIndex + ilk2, "e")
If ComboBox4 = "" Then TextBox2 = ""
End Sub
 
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

my.php
 
Arkadaşlar uğraştım ama halen beceremedim lütfen yardım edermisiniz.
 
Arkadaşlar kodu aşağıdaki gibi değiştirdim ama bi sonuç elde edemedim. Lütfen yardım edermisiniz

Kod:
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
 
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.
 
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
 
Arkadaşlar yardım edebilirmisiniz.
 
Geri
Üst