Comboboxtan seçilen plakanın verilerini alt alta sıralama

[sdegirmenci]

Merhaba;
Ekteki dosyam üzerinde açıkladığım üzere; Comboboxtan seçilen plakanın yakıt alım bilgilerini tablo üzerine kod ile aktarmakta , Ancak sırasıyla alt alta aktarmayı bir türlü yapamadım .Yardımcı olursanız çok sevinirim.Şimdiden çok teşekkür ediyorum.

 

[Korhan Ayhan]

Selamlar,

Aslında kullanmış olduğunuz kod doğru çalışıyor. Fakat sorguladığınız plakanın "Depo" isimli sayfada tüm satırlarında veri yok. Bu sebeple bulunan satırın "G" sütunda veri varmı yokmu sorgulaması yaparsak sorun ortadan kalkacaktır. Aşağıdaki kodda kırmızı renkle belirtilen eklemeler yapılmıştır.

Private Sub ComboBox1_Change()
    Set C = Sheets("C")
    Set DP = Sheets("DEPO")
    
    If ComboBox1 <> "" Then
    Application.ScreenUpdating = False
    [COLOR=red][D7:H638].ClearContents[/COLOR]
    Satır = 7
    
        Set Bul = DP.[E:E].Find(ComboBox1)
        If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
        
        [COLOR=red]If DP.Cells(Bul.Row, "G") <> "" Then[/COLOR]
            Cells(Satır, "D") = DP.Cells(Bul.Row, "G")
            Cells(Satır, "E") = DP.Cells(Bul.Row, "I")
            Cells(Satır, "F") = DP.Cells(Bul.Row, "K")
            Cells(Satır, "G") = DP.Cells(Bul.Row, "J")
            Cells(Satır, "H") = DP.Cells(Bul.Row, "H")
            Satır = Satır + 1
        [COLOR=red]End If
[/COLOR]        
        Set Bul = DP.[E:E].FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
        
        [D7].Select
  
        End If
    End If
     
    Set Bul = Nothing
    Set C = Nothing
    Set DP = Nothing
    [COLOR=red]Application.ScreenUpdating = True[/COLOR]
End Sub

 

[sdegirmenci]

Sayın Korhan Ayhan Hocam ;
Süpersiniz,İlginize çok teşekkür ediyorum.Bütün işlerinizin kolay gelmesini diliyorum.