combobox için yardım

[dutschon]

combobox'ta for next döngüsü ve if end if koşulunu yapamadım.
örnek dosya ekte.
markadan bir tanesi seçilince ve parçalardan biri seçilince birim fiyat hücreye eklensin

 

[Orion1]

Dosyanız ekte.

Sub bul()
Dim k As Range, sut As Integer
Set k = Range("A3:A65536").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    sut = CInt(Left(ComboBox2.Value, 1)) + 2
    Range("I12").Value = Cells(k.Row, sut).Value
End If
End Sub

 

[dutschon]

İlginiz için teşekkürler.

combobox2 de sadece 1.Parça seçilebiliyor.Diğer parçaları seçilemiyor.bu konuda ne yapılabilir ?

 

[Orion1]

İlginiz için teşekkürler.

combobox2 de sadece 1.Parça seçilebiliyor.Diğer parçaları seçilemiyor.bu konuda ne yapılabilir ?

Dosyayı düzenledim.2 numaralı mesajdan inidrebilirsiniz.

 

[dutschon]

Sn. Evren Gizlen çok teşekkür ederim.
iyi akşamlar.

 

[Orion1]

Sn. Evren Gizlen çok teşekkür ederim.
iyi akşamlar.

Rica ederim.
İyi akşamlar.