combobox la sola doğru veri

[igultekin2000]

iyi günler;

Private Sub ComboBox2_Change()
Dim ara2 As String
On Error Resume Next
ara2 = ComboBox2.Value
getir2 = Application.WorksheetFunction.VLookup(ara2, Sheets("Mamul").Range("B4:D65536"), 3, False)
TextBox9.Value = getir2
End Sub

ile aralıktaki sonraki sütunlardan veri getirebiliyoruz. ancak excel formülüyle verinin solundaki veriyi de getirme imkanımız oluyor. userform' da da böyle imkan varmıdır. yani H sütununa göre C' deki veriyi textboxa getirebiliyormuyuz. sola doğru diye aradım ama örnek bulamadım.

 

[Korhan Ayhan]

Deneyiniz.

Set S1 = Sheets("Mamul")
Set Bul = S1.Range("H:H").Find(ComboBox2.Value, , ,XlWhole)
If Not Bul Is Nothing Then
TextBox9.Value = S1.Cells(Bul.Row, "C")
End If

 

[igultekin2000]

deneyemidim

Deneyiniz.

Set S1 = Sheets("Mamul")
Set Bul = S1.Range("H:H").Find(ComboBox2.Value, , ,XlWhole)
If Not Bul Is Nothing Then
TextBox9.Value = S1.Cells(Bul.Row, "C")
End If

kusura bakmayın , kafa durdu, bu kodu hangi olaya yazmam gerekiyor.

 

[Korhan Ayhan]

Tabiki sizin kullandığınız gibi nesnenin Change olayına yazmalısınız.

Private Sub ComboBox2_Change()
Set S1 = Sheets("Mamul")
Set Bul = S1.Range("H:H").Find(ComboBox2.Value, , ,XlWhole)
If Not Bul Is Nothing Then
TextBox9.Value = S1.Cells(Bul.Row, "C")
End If
End Sub

 

[igultekin2000]

örnek kod

Tabiki sizin kullandığınız gibi nesnenin Change olayına yazmalısınız.

Private Sub ComboBox2_Change()
Set S1 = Sheets("Mamul")
Set Bul = S1.Range("H:H").Find(ComboBox2.Value, , ,XlWhole)
If Not Bul Is Nothing Then
TextBox9.Value = S1.Cells(Bul.Row, "C")
End If
End Sub

verdiğiniz kodu kendi formuma uyguladım ama sonuç alamadım, acaba nerede hata yapıyorum.

Private Sub ComboBox1_Change()

Set S1 = Sheets("KumasC")
Set Bul = S1.Range("H:H").Find(ComboBox1.Value, , , xlWhole)
If Not Bul Is Nothing Then
TextBox6.Value = S1.Cells(Bul.Row, "C")
End If

End Sub

kullanılan kumaş (combabox1) , kumaş fiyatı (textbox6)

 

[Korhan Ayhan]

Dosyanızı eklerseniz kontrol edebiliriz.

 

[igultekin2000]

dosya

Dosyanızı eklerseniz kontrol edebiliriz.

formu yeni oluşturduğum için başlangıç aşamasında bu sorundan sonra diğerlerini hallederim zannediyorum.

 

[Korhan Ayhan]

"H" sütunundaki verileriniz formülle gelen değerler olduğu için sonuç alamıyorsunuz.

Aşağıdaki kodu deneyiniz.

Private Sub ComboBox1_Change()
    Dim S1 As Worksheet, Bul As Range
    Set S1 = Sheets("KumasC")
    Set Bul = S1.Range("H:H").Find(ComboBox1.Value, , xlValues, xlWhole)
    If Not Bul Is Nothing Then
        TextBox6.Value = S1.Cells(Bul.Row, "C")
    End If
End Sub

 

[igultekin2000]

sorunsuz çalışıyor

"H" sütunundaki verileriniz formülle gelen değerler olduğu için sonuç alamıyorsunuz.

Aşağıdaki kodu deneyiniz.

Private Sub ComboBox1_Change()
    Dim S1 As Worksheet, Bul As Range
    Set S1 = Sheets("KumasC")
    Set Bul = S1.Range("H:H").Find(ComboBox1.Value, , xlValues, xlWhole)
    If Not Bul Is Nothing Then
        TextBox6.Value = S1.Cells(Bul.Row, "C")
    End If
End Sub

sorunsuz çalışıyor, teşekkür ederim.