[Yardım]  Combobox seçim hakkında

Açılır liste kutusu.

Combobox seçim hakkında

İleti#1)  dreamymost48 » 11 Tem 2018 15:21

arkadaşlar merhaba araç yakıt formu hazırlıyorum takıldığım bir nokta siz değerli arkadaşların yardımlarını bekliyorum.
iş makinesi
forklift
traktör
ağır vasıta
taşıt seklinde kategorilerim var sayfa sayfa bunlar.
yapmak istediğim olay
comboboxda kişi iş makinesi seçtiğinde araç plakası bölümüne iş makinelerinin plakası gelmesini istiyorum bu tüm kategoriler için geçerli bunu nasıl yapabilirim ? ufak örnek verirseniz kendim diğerlerini düzenlerim.
Kullanıcı avatarı
dreamymost48
Yeni Başlamış
 
Kayıt: 04 Tem 2018 10:40
Meslek: Tasarımcı
Yaş: 36
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MUĞLA

Cevap: Combobox seçim hakkında

İleti#2)  Ali ÖZ » 13 Tem 2018 12:17

Merhaba,
Örnek dosyanızı eklerseniz yardımcı olabiliriz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9296
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Combobox seçim hakkında

İleti#3)  ertugrul1956 » 15 Tem 2018 08:57

Merhaba çalışma ektedir
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ertugrul1956
Yeni Başlamış
 
Adı Soyadı:ertuğrul şengün
Kayıt: 01 May 2014 19:05
Konum: istanbul/pendik
Meslek: emekli
Yaş: 62
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/pendik

Cevap: Cevap: Combobox seçim hakkında

İleti#4)  dreamymost48 » 16 Tem 2018 09:22

ertugrul1956 yazdı:Merhaba çalışma ektedir

Ertuğrul hocam eline sağlık çok güzel olmuş yalnız bir sıkıntı var combobox2 de seçtiğimiz plakayı sayfada kaydetmiyor boş geçiyor.

Kod: Tümünü seç







Private Sub ComboBox2_DropButtonClick()

ComboBox2.Clear
son = Sheets("FORKLİFT").Range("H65536").End(3).Row 'SON SATIR
If ComboBox1.Text = "" Then MsgBox "araç cinsi seçiniz"
For i = 1 To son
xx1 = Left$(ComboBox1.Text, 5)
xx2 = Left$(Sheets("FORKLİFT").Cells(i, 8), 5)
If xx1 = xx2 Then
ComboBox2.AddItem Sheets("FORKLİFT").Cells(i, 9)
End If

Next i

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, 3).Value = TextBox3.Text
ActiveCell.Offset(0, 4).Value = TextBox4.Text
ActiveCell.Offset(0, 5).Value = TextBox5.Text
MsgBox ("Kayıt Tamamlandı")
TextBox1.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()
ComboBox1.Text = ""
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next


End Sub
Kullanıcı avatarı
dreamymost48
Yeni Başlamış
 
Kayıt: 04 Tem 2018 10:40
Meslek: Tasarımcı
Yaş: 36
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MUĞLA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Combobox seçim hakkında

İleti#5)  ertugrul1956 » 16 Tem 2018 11:04

Merhaba
bazı değişiklikler yaptım çalışma ektedir
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ertugrul1956
Yeni Başlamış
 
Adı Soyadı:ertuğrul şengün
Kayıt: 01 May 2014 19:05
Konum: istanbul/pendik
Meslek: emekli
Yaş: 62
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/pendik


Forum ComboBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe