Userform'da bulunan Düşeyara butonu çalışmıyor.

[isayaman]

Merhaba Arkadaşlar,

Hazırlamış olduğum dosya'ya yeni ListBox ekledikten sonra, daha önce çalışan Düşey ara formülü çalışmıyor. Kodlamalarına baktığımda problem görünmüyor.

Yardımcı olursanız sevinirim.

Dosya indirme linki ; http://www.dosyaupload.com/V5a

Saygılarımla,

 

[Korhan Ayhan]

Hangi bölümdeki kod sonuç vermiyor.

 

[isayaman]

Hangi bölümdeki kod sonuç vermiyor.

Merhaba Hocam,

ComboBox20 den 26' ya kadar olan bölümlerdeki kodlar çalışmıyor, eskiden "Fiyatlar" Sheet sayfasında bulunan tüm yedek parça numaraları Userform üzerinde bulunan Yedekparça bölümündeki ComboBox20 de çıkıyordu, ListBox'ta değişiklik yaptıktan sonra sadece ilk 4 yedek parça numarası çıkıyor

 

[Korhan Ayhan]

Formunuzun açılma bölümündeki kodlarınıza sayfa isimlerini eklemeyi deneyin.

Eklemeler kırmızı bölümlerdir.

ComboBox20.RowSource = "Fiyat!b6:b" & [COLOR="red"]Sheets("Fiyat").[/COLOR]Range("b65000").End(xlUp).Row
ComboBox21.RowSource = "Fiyat!b6:b" & [COLOR="red"]Sheets("Fiyat").[/COLOR]Range("b65000").End(xlUp).Row
ComboBox22.RowSource = "Fiyat!b6:b" & [COLOR="red"]Sheets("Fiyat").[/COLOR]Range("b65000").End(xlUp).Row
ComboBox23.RowSource = "Fiyat!b6:b" & [COLOR="red"]Sheets("Fiyat").[/COLOR]Range("b65000").End(xlUp).Row
ComboBox24.RowSource = "Fiyat!b6:b" & [COLOR="red"]Sheets("Fiyat").[/COLOR]Range("b65000").End(xlUp).Row
ComboBox25.RowSource = "Fiyat!b6:b" & [COLOR="red"]Sheets("Fiyat").[/COLOR]Range("b65000").End(xlUp).Row
ComboBox26.RowSource = "Fiyat!b6:b" & [COLOR="red"]Sheets("Fiyat").[/COLOR]Range("b65000").End(xlUp).Row

Ayrıca ComboBox20 kodunuzu aşağıdaki gibi değiştirin.

Private Sub ComboBox20_Change()
On Error Resume Next
Dim bul As Range
For Each bul In Worksheets("Fiyat").Range("b6:b" & [COLOR="Red"]Worksheets("Fiyat").Range("A65536").End(3).Row[/COLOR])
If bul.Value = ComboBox20.Text Then
TextBox92.Value = bul(1, 2).Value
TextBox46.Value = bul(1, 3).Value
End If
Next bul
TextBox74 = TextBox46 * TextBox39
If ComboBox20.Value = "" Then
TextBox92.Value = ""
 TextBox46.Value = ""
  TextBox39.Value = ""
   TextBox74.Value = ""
 End If
 hesapla
End Sub

 

[isayaman]

Formunuzun açılma bölümündeki kodlarınıza sayfa isimlerini eklemeyi deneyin.

Eklemeler kırmızı bölümlerdir.

ComboBox20.RowSource = "Fiyat!b6:b" & [COLOR="red"]Sheets("Fiyat").[/COLOR]Range("b65000").End(xlUp).Row
ComboBox21.RowSource = "Fiyat!b6:b" & [COLOR="red"]Sheets("Fiyat").[/COLOR]Range("b65000").End(xlUp).Row
ComboBox22.RowSource = "Fiyat!b6:b" & [COLOR="red"]Sheets("Fiyat").[/COLOR]Range("b65000").End(xlUp).Row
ComboBox23.RowSource = "Fiyat!b6:b" & [COLOR="red"]Sheets("Fiyat").[/COLOR]Range("b65000").End(xlUp).Row
ComboBox24.RowSource = "Fiyat!b6:b" & [COLOR="red"]Sheets("Fiyat").[/COLOR]Range("b65000").End(xlUp).Row
ComboBox25.RowSource = "Fiyat!b6:b" & [COLOR="red"]Sheets("Fiyat").[/COLOR]Range("b65000").End(xlUp).Row
ComboBox26.RowSource = "Fiyat!b6:b" & [COLOR="red"]Sheets("Fiyat").[/COLOR]Range("b65000").End(xlUp).Row

Ayrıca ComboBox20 kodunuzu aşağıdaki gibi değiştirin.

Private Sub ComboBox20_Change()
On Error Resume Next
Dim bul As Range
For Each bul In Worksheets("Fiyat").Range("b6:b" & [COLOR="Red"]Worksheets("Fiyat").Range("A65536").End(3).Row[/COLOR])
If bul.Value = ComboBox20.Text Then
TextBox92.Value = bul(1, 2).Value
TextBox46.Value = bul(1, 3).Value
End If
Next bul
TextBox74 = TextBox46 * TextBox39
If ComboBox20.Value = "" Then
TextBox92.Value = ""
 TextBox46.Value = ""
  TextBox39.Value = ""
   TextBox74.Value = ""
 End If
 hesapla
End Sub

Teşekkürler Hocam, eline sağlık.

İyi çalışmalar dilerim.

Saygılarımla,