[Yardım]  ComboBox & Listbox ile Kayıt

Kulanıcı arayüz formu

ComboBox & Listbox ile Kayıt

İleti#1)  kanakan52 » 18 Haz 2018 19:19

Merhaba arkadaşlar.
Geçmiş Ramazan bayramınız kutlu olsun. Allah tekrarını görmeyi nasip etsin. Diyerekten soruma geçmek istiyorum.

Sizden ricam

1-Basit bir UserForm oluşturdum. Burada ComboBox' a initialize komutuyla Siparişler sayfası "A" sütunundaki tekrar eden sipariş numaralarından birini çağırdığımda TextBox1' e "C" Sütunundaki firma ünvanı ListBox' a ise o siparişe stok isimleri, miktarları ve LOT numaraları gelsin,

2-Kaydet butonuna tıklandığında Listbox' tan seçtiklerimi Yükleme Emri sayfasındaki sarı ile belirlenmiş alana kayıt yapsın.

Örnek dosya ekledim. Yardımlarınız için şimdiden minnettarım.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
kanakan52
Siteye Alışmış
 
Adı Soyadı:Ümit AKBULUT
Kayıt: 15 May 2013 17:56
Konum: TÜRKİYE
Meslek: muhasebe
Yaş: 35
İleti: 355
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ORDU

Cevap: ComboBox & Listbox ile Kayıt

İleti#2)  askmadige34 » 18 Haz 2018 20:05

Yükleme Emri sayfasındaki sarı alana hangi sütunlar geleceğini yazarsanız çözüm kodlarını ekleyelim.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1550
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: ComboBox & Listbox ile Kayıt

İleti#3)  kanakan52 » 18 Haz 2018 22:02

Üstad merhaba.
Ofise geçince cok daha net bilgi verebilirim. Hatırladığım kadariyla stok adı, sipariş miktarı , ve lot numarası sütunları gelecek. Taslağını oluşturabilirsek üzerinden ilerleyebilirim.Yardımlarınız için teşeķkür ederim.
Kullanıcı avatarı
kanakan52
Siteye Alışmış
 
Adı Soyadı:Ümit AKBULUT
Kayıt: 15 May 2013 17:56
Konum: TÜRKİYE
Meslek: muhasebe
Yaş: 35
İleti: 355
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ORDU

Cevap: ComboBox & Listbox ile Kayıt

İleti#4)  askmadige34 » 18 Haz 2018 23:06

Aşağıdaki kodları deneyin.
Comboboxa veri almak için:
Kod: Tümünü seç
Private Sub UserForm_Initialize()
ComboBox1.Clear
Dim s As Worksheet
Set s = Sheets("SİPARİŞLER")
For i = 2 To s.Range("A" & Rows.Count).End(3).Row
    If WorksheetFunction.CountIf(s.Range("a2:a" & i), s.Cells(i, 1)) = 1 Then
        ComboBox1.AddItem s.Cells(i, 1)
    End If
Next i
End Sub


Comboboxta seçilen değere göre textbox ve listboxa veri almak için:
Kod: Tümünü seç
Private Sub ComboBox1_Change()
Dim s As Worksheet
Set s = Sheets("SİPARİŞLER")
ListBox1.Clear
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "120;80;160,160"
For i = 2 To s.Range("A" & Rows.Count).End(3).Row
    If ComboBox1.Value = s.Cells(i, 1) Then
        TextBox1.Text = s.Cells(i, 3)
        ListBox1.AddItem
        ListBox1.List(a, 0) = s.Cells(i, "G") 'buraya hangi bilgiler eklenecekse eklersiniz
        ListBox1.List(a, 1) = s.Cells(i, "H")
        ListBox1.List(a, 2) = s.Cells(i, "C")
        ListBox1.List(a, 3) = s.Cells(i, "D")
        a = a + 1
    End If
Next i
End Sub


Listboxta seçilen değeri YÜKLEME EMRİ sayfasına almak için:
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim s As Worksheet
Set s = Sheets("YÜKLEME EMRİ")
For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            With s
                .Cells(11, "B") = ListBox1.List(i, 0)
                .Cells(11, "N") = ListBox1.List(i, 1)
                .Cells(11, "V") = ListBox1.List(i, 2)
                .Cells(11, "AC") = ListBox1.List(i, 3)
            End With
        End If
    Next i
End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1550
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

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

Cevap: ComboBox & Listbox ile Kayıt

İleti#5)  kanakan52 » 19 Haz 2018 09:58

Üstad kodlar çalışıyor. Yanlız Listbox'ta birden fazla öğe seçip tek seferde Yükleme Emri sayfasına kaydetme işlemi yaptırırsak süper olacak.
Tekrar tekrar emeğinize sağlık. Allah razı olsun sizlerden.
Kullanıcı avatarı
kanakan52
Siteye Alışmış
 
Adı Soyadı:Ümit AKBULUT
Kayıt: 15 May 2013 17:56
Konum: TÜRKİYE
Meslek: muhasebe
Yaş: 35
İleti: 355
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ORDU

Cevap: ComboBox & Listbox ile Kayıt

İleti#6)  askmadige34 » 19 Haz 2018 23:17

Aşağıdaki şekilde deneyin.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim s As Worksheet
Set s = Sheets("YÜKLEME EMRİ")
For x = 11 To 18
s.Range("B11") = ""
s.Range("N11") = ""
s.Range("V11") = ""
s.Range("AC11") = ""
Next x
a = 11
For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            With s
                .Cells(a, "B") = ListBox1.List(i, 0)
                .Cells(a, "N") = ListBox1.List(i, 1)
                .Cells(a, "V") = ListBox1.List(i, 2)
                .Cells(a, "AC") = ListBox1.List(i, 3)
                a = a + 1
            End With
        End If
Next i
Unload Me
End Sub

Private Sub UserForm_Initialize()
ComboBox1.Clear
Dim s As Worksheet
Set s = Sheets("SİPARİŞLER")
For i = 2 To s.Range("A" & Rows.Count).End(3).Row
    If WorksheetFunction.CountIf(s.Range("a2:a" & i), s.Cells(i, 1)) = 1 Then
        ComboBox1.AddItem s.Cells(i, 1)
    End If
Next i
End Sub


Private Sub ComboBox1_Change()
Dim s As Worksheet
Set s = Sheets("SİPARİŞLER")
ListBox1.Clear
ListBox1.MultiSelect = 1
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "120;80;160,160"
For i = 2 To s.Range("A" & Rows.Count).End(3).Row
    If ComboBox1.Value = s.Cells(i, 1) Then
        TextBox1.Text = s.Cells(i, 3)
        ListBox1.AddItem
        ListBox1.List(a, 0) = s.Cells(i, "G") 'buraya hangi bilgiler eklenecekse eklersiniz
        ListBox1.List(a, 1) = s.Cells(i, "H")
        ListBox1.List(a, 2) = s.Cells(i, "C")
        ListBox1.List(a, 3) = s.Cells(i, "D")
        a = a + 1
    End If
Next i
End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1550
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: ComboBox & Listbox ile Kayıt

İleti#7)  kanakan52 » 20 Haz 2018 09:56

Çok makbule geçti. Ne kadar teşekkür etsem azdır askmadige34. Hakkınızı helal edin.. Vaktinizi aldım.
Kullanıcı avatarı
kanakan52
Siteye Alışmış
 
Adı Soyadı:Ümit AKBULUT
Kayıt: 15 May 2013 17:56
Konum: TÜRKİYE
Meslek: muhasebe
Yaş: 35
İleti: 355
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ORDU

Cevap: ComboBox & Listbox ile Kayıt

İleti#8)  askmadige34 » 20 Haz 2018 19:26

Rica ederim. Kolay gelsin.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1550
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri


Forum UserForm

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe