[Yardım]  Userform combobox hakkında yardım.

Açılır liste kutusu.

Userform combobox hakkında yardım.

İleti#1)  dreamymost48 » 12 Tem 2018 13:49

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 .
Kod: Tümünü seç
PLAKA
480150074
480150075
480150076
480150077
4800150082
4800150080
48-00-16-0009
48-00-16-0008




Kod: Tümünü seç
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
Kullanıcı avatarı
dreamymost48
Yeni Başlamış
 
Kayıt: 04 Tem 2018 10:40
Meslek: Tasarımcı
Yaş: 36
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MUĞLA

Cevap: Userform combobox hakkında yardım.

İleti#2)  Enes Recep BAĞ » 12 Tem 2018 14:04

Serdar Bey çalışmanızı eklerseniz daha iyi olur.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8226
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Userform combobox hakkında yardım.

İleti#3)  dreamymost48 » 12 Tem 2018 16:20

Hocam dosya ektedir. ilk sayfaya araç çeşitlerini ve plakalarını yazdım yapmak istediğim şey aracı seçince plakaları çıksın seçip gerkeli sayfaya veriyi kaydetmek.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
dreamymost48
Yeni Başlamış
 
Kayıt: 04 Tem 2018 10:40
Meslek: Tasarımcı
Yaş: 36
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MUĞLA

Cevap: Cevap: Userform combobox hakkında yardım.

İleti#4)  dreamymost48 » 13 Tem 2018 10:01

Enes Recep BAĞ yazdı:Serdar Bey çalışmanızı eklerseniz daha iyi olur.

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

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

Cevap: Userform combobox hakkında yardım.

İleti#5)  Ali ÖZ » 13 Tem 2018 12:19

Dosyanız açılmıyor,zip ile yükler misiniz.
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: 9535
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Userform combobox hakkında yardım.

İleti#6)  dreamymost48 » 13 Tem 2018 12:49

Ali ÖZ yazdı:Dosyanız açılmıyor,zip ile yükler misiniz.

ekledim hocam
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
dreamymost48
Yeni Başlamış
 
Kayıt: 04 Tem 2018 10:40
Meslek: Tasarımcı
Yaş: 36
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MUĞLA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Userform combobox hakkında yardım.

İleti#7)  Ali ÖZ » 13 Tem 2018 15:12

İnceleyin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
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: 9535
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Userform combobox hakkında yardım.

İleti#8)  dreamymost48 » 13 Tem 2018 16:35

Ali ÖZ yazdı:İnceleyin.

hocam elinize sağlık yalnız sayfada mesela ağır vasıta seçtim plakayı seçtim o sayfada plaka verisini kaydetmiyor ?

bunu il ilçe mantığı ile yapamazmıyız ?
Kullanıcı avatarı
dreamymost48
Yeni Başlamış
 
Kayıt: 04 Tem 2018 10:40
Meslek: Tasarımcı
Yaş: 36
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MUĞLA

Cevap: Userform combobox hakkında yardım.

İleti#9)  Ali ÖZ » 13 Tem 2018 16:49

Kayıt kısmına bakmamıştım.
Form kodlarını bu şekilde değiştirin.

Kod: Tümünü seç
Private Sub ComboBox1_Change()
    ListBox1.Clear
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "100;80"
    For Each bul In Sheets("FORKLİFT").Range("h1:h" & Sheets("FORKLİFT").Range("h65536").End(3).Row)
     If ComboBox1.Text = bul Then
       ListBox1.AddItem
       ListBox1.List(ListBox1.ListCount - 1, 0) = bul
       ListBox1.List(ListBox1.ListCount - 1, 1) = bul.Offset(0, 1)
     End If
    Next
End Sub

Private Sub CommandButton1_Click()
son = Sheets(ComboBox1.Text).Range("a65536").End(3).Row + 1
Sheets(ComboBox1.Text).Range("b" & son).Value = TextBox1.Text
Sheets(ComboBox1.Text).Range("c" & son).Value = TextBox2.Text
Sheets(ComboBox1.Text).Range("d" & son).Value = TextBox3.Text
Sheets(ComboBox1.Text).Range("e" & son).Value = TextBox4.Text
Sheets(ComboBox1.Text).Range("f" & son).Value = TextBox5.Text
MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub


Private Sub ListBox1_Click()
  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
      TextBox2.Text = ListBox1.List(i, 1)
    End If
  Next
End Sub


Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
  ComboBox1.AddItem Sheets(i).Name
Next
    ListBox1.Clear
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "100;80"
    For Each bul In Sheets("FORKLİFT").Range("h1:h" & Sheets("FORKLİFT").Range("h65536").End(3).Row)
       ListBox1.AddItem
       ListBox1.List(ListBox1.ListCount - 1, 0) = bul
      ListBox1.List(ListBox1.ListCount - 1, 1) = bul.Offset(0, 1)
    Next
End Sub
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: 9535
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Userform combobox hakkında yardım.

İleti#10)  dreamymost48 » 13 Tem 2018 17:27

Ali ÖZ yazdı:Kayıt kısmına bakmamıştım.

Hocam eline sağlık olmuş yalnız bir sıkıntı var alt alta kaydetmiyor traktör seçiyorum veri girişi yapıyorum kayıt tamamlandı
tekrar traktör seçiyorum başka plaka giriyorum ama 2 nolu sütuna kaydediyor 2-3-4-5 diye sıra numarası vermiyor .

Form kodlarını bu şekilde değiştirin.

Kod: Tümünü seç
Private Sub ComboBox1_Change()
    ListBox1.Clear
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "100;80"
    For Each bul In Sheets("FORKLİFT").Range("h1:h" & Sheets("FORKLİFT").Range("h65536").End(3).Row)
     If ComboBox1.Text = bul Then
       ListBox1.AddItem
       ListBox1.List(ListBox1.ListCount - 1, 0) = bul
       ListBox1.List(ListBox1.ListCount - 1, 1) = bul.Offset(0, 1)
     End If
    Next
End Sub

Private Sub CommandButton1_Click()
son = Sheets(ComboBox1.Text).Range("a65536").End(3).Row + 1
Sheets(ComboBox1.Text).Range("b" & son).Value = TextBox1.Text
Sheets(ComboBox1.Text).Range("c" & son).Value = TextBox2.Text
Sheets(ComboBox1.Text).Range("d" & son).Value = TextBox3.Text
Sheets(ComboBox1.Text).Range("e" & son).Value = TextBox4.Text
Sheets(ComboBox1.Text).Range("f" & son).Value = TextBox5.Text
MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub


Private Sub ListBox1_Click()
  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
      TextBox2.Text = ListBox1.List(i, 1)
    End If
  Next
End Sub


Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
  ComboBox1.AddItem Sheets(i).Name
Next
    ListBox1.Clear
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "100;80"
    For Each bul In Sheets("FORKLİFT").Range("h1:h" & Sheets("FORKLİFT").Range("h65536").End(3).Row)
       ListBox1.AddItem
       ListBox1.List(ListBox1.ListCount - 1, 0) = bul
      ListBox1.List(ListBox1.ListCount - 1, 1) = bul.Offset(0, 1)
    Next
End Sub
Kullanıcı avatarı
dreamymost48
Yeni Başlamış
 
Kayıt: 04 Tem 2018 10:40
Meslek: Tasarımcı
Yaş: 36
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MUĞLA


Forum ComboBox

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe