comboboxa kritere göre veri alma

[hdemirc_]

combobox a belirli kriterler göre veri girişi konusunda yardıma ihtiyacım var
ilgili dosya ve soru ektedir

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[hdemirc_]

ilginiz için teşekürler
sayfa ismi örnek olarak değiştirilmiş düzelttim ama userform4 ile ilgili bir hata veriyor çözemedim

 

[Korhan Ayhan]

Selamlar,

Hata veren bölümü belirtirseniz düzeltmeye çalışırız.

 

[hdemirc_]

hatada worksheetfunction sınıfının VLookup özelliği alınamıyor diye bir uyarı veriyor.
teşekürler

Private Sub UserForm_Initialize()
MUADİL = WorksheetFunction.VLookup(HAMMADDE, Sheets("H-LİSTE").Range("A:H"), 3, 0)

Set MUADİL_BUL = Sheets("H-LİSTE").Range("C:C").Find(MUADİL, LookAt:=xlWhole)
If Not MUADİL_BUL Is Nothing Then
ADRES = MUADİL_BUL.Address
Do
If Sheets("H-LİSTE").Cells(MUADİL_BUL.Row, "A") <> HAMMADDE Then
ListBox1.ColumnCount = 2
ListBox1.AddItem
ListBox1.list(SATIR, 0) = Sheets("H-LİSTE").Cells(MUADİL_BUL.Row, "A")
ListBox1.list(SATIR, 1) = Sheets("H-LİSTE").Cells(MUADİL_BUL.Row, "G")
SATIR = SATIR + 1
End If
Set MUADİL_BUL = Sheets("H-LİSTE").Range("C:C").FindNext(MUADİL_BUL)
Loop While Not MUADİL_BUL Is Nothing And MUADİL_BUL.Address <> ADRES
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Bu hatayı benim eklediğim örnek dosyadamı alıyorsunuz?

 

[hdemirc_]

selam,
yazdığınız kodu çalıştırmayı başardım nihayet, ancak muadil olmayan hammaddeleri muadil olarak listeliyor.(ilk muadil tanımlaması doğru sonrakiler yanlış oluyor) birde listboxtan muadil olarak seçilen hammaddeyi kendi satırına değil c7 satırında değiştiriyor.

 

[Korhan Ayhan]

Selamlar,

Uyguladığınız dosyayı eklermisiniz. Üzerinden gidersek hatayı bende görürüm. Düzeltmesi daha kolay olur.

 

[hdemirc_]

hocam dosya ekte gönderiyorum. ilkinde doğru muadil veriyo ama sonra muadil olmayanaları veriyo.

 

[Korhan Ayhan]

Selamlar,

Eklediğiniz iki dosyada da denedim ve hatalı sonuç göremedim. Yaptığınız işlemi anlatırmısınız.