Açılır Combobox ile Seri Numarası getirme

[Ahmet Sami]

Kıymetli üstadlarım sizden istediğimiz yardım, D5 Hücresinde bulunan Malzeme Adı'nı VERİ sayfasından seçince sadece seçilen o malzemeye ait seri numaralarının E5 teki ComboBoxta görüntülenmesi ve seri numarasına tıklayınca D6 dan itibaren Malzeme adı, E6 dan itibaren ise aşağıya doğru seri no yazması gerekiyor. Teşekkür ederim.

 

[Ahmet Sami]

Kıymetli abilerim Konu Başlığı ComboBox olacaktı yanlış yazmışım kusuruma bakmayın yardımlarınız bekliyorum inşallah.

 

[Korhan Ayhan]

Seçimlerinizi hücreye aktarma işlemini ayrı bir buton ile yapmanızı tavsiye ederim.

Ben dosyanıza bir de CommandButton ekledim. Sonra aşağıdaki kodları denedim ve olumlu sonuç aldım.

Deneyiniz.

Option Explicit

Private Sub ComboBox1_Change()
    Dim My_Connection As Object
   
    Me.ComboBox2.Clear
   
    If Me.ComboBox1 <> "" Then
        Set My_Connection = VBA.CreateObject("AdoDb.Connection")
   
        My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _
        ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=No"""
       
        Me.ComboBox2.Column = My_Connection.Execute("Select Distinct F2 From [VERİ$B2:C] Where F1 = '" & Me.ComboBox1.Value & "'").GetRows
       
        If My_Connection.State <> 0 Then My_Connection.Close
        Set My_Connection = Nothing
    End If
End Sub

Private Sub CommandButton1_Click()
    Dim Last_Row As Long

    If Me.ComboBox1.Value <> "" And Me.ComboBox2.Value <> "" Then
        Last_Row = Sheets("ANASAYFA").Cells(Rows.Count, 4).End(3).Row + 1
        If Last_Row < 6 Then Last_Row = 6
       
        Sheets("ANASAYFA").Cells(Last_Row, 4) = Me.ComboBox1.Value
        Sheets("ANASAYFA").Cells(Last_Row, 5) = Me.ComboBox2.Value
   
        MsgBox "Seçimleriniz sayfaya aktarılmıştır.", vbInformation
    Else
        MsgBox "Kayıt işlemi için ürün seçimlerinizi tamamlayınız!", vbCritical
    End If
End Sub

 

[Ahmet Sami]

Korhan bey teşekkür ederim. Peki Ayrı bir buton ile aktarmak için kod yazabilir misiniz.

 

[Korhan Ayhan]

Üstte ki mesajımda zaten var.

 

[Ahmet Sami]

Sonradan farkettim kusuruma bakmayın lütfen çok teşekkür ederim sağolun.