Soru Userform combobox hakkında yardım.

[Uludere48]

Arkadaşlar yakıt takip uygulaması hazırlıyorum yardımınızı istediğim bir konu var .

Her sayfaya bir aracı yazdım ör: ( sayfa1 FORKLİFT - sayfa2 İŞ MAKİNESİ ) şeklinde.
combobox ile kişi buradan yakıt aldığı aracı seçiyor onda sıkıntı yok.
sistemde kayıtlı 10 tane forklift var .
Kişi forklifti seçtiğinde kayıtlı forklift plakalarını nasıl getirebilirim ? plakaları altta ekledim yardımcı olurmusunuz .

PLAKA
480150074
480150075
480150076
480150077
4800150082
4800150080
48-00-16-0009
48-00-16-0008

Private Sub ComboBox2_Change()

End Sub

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To Sheets.Count
If ComboBox1.Value = Sheets(i).Name Then
Sheets(i).Select
End If
Next i
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Range("A2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
ActiveCell.Offset(0, 4).Value = TextBox4.Text
ActiveCell.Offset(0, 5).Value = TextBox5.Text
MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub

 

[metehan8001]

Merhaba, userform kod bölümüne yazınız. Mobilden ezber yazdım, yazım hatası olabilir.

Private Sub Combobox1_Change()
if combobox1.value = "FORKLİFT" then
ComboBox2.AddItem "480150074"
ComboBox2.AddItem "480150075"
ComboBox2.AddItem "480150076"
ComboBox2.AddItem "480150077"
ComboBox2.AddItem "4800150082"
ComboBox2.AddItem "4800150080"
ComboBox2.AddItem "48-00-16-0009"
ComboBox2.AddItem "48-00-16-0008"
Else
Combobox2.clear
End if
End Sub

 

[Orion1]

Örnek dosya eklerseniz iyi olur.