- Katılım
- 12 Nisan 2012
- Mesajlar
- 533
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
ListBox1.Clear
Aranan = UCase (TextBox1.Value)
Arananuzunluğu = Len (Aranan)
ürünsayısı = Çalışma Sayfası İşlevi.CountA (Çalışma Sayfaları ("Fiyatlar"). Aralık ("))
İi = 2 için ürünsayısı
ürün = UCase (Çalışma Sayfaları ("Fiyatlar"). Aralık ("E" & ii))
ürünuzunluğu = Len (ürün)
İ = 1 için ürünuzunluğu
Mid $ ise (ürün, i, Arananuzunluğu) = Aranan Öyleyse
var = 1
End If
Sonraki ben
Var = 1 ise
ListBox1.AddItem ürün
ListBox1.List (ListBox1.ListCount - 1, 1) = Çalışma Sayfaları ("Fiyatlar"). Aralık ("F" ve ii) & "TL"
var = 0
End If
Sonraki ii
"Fiyatlar" Sayfası E sütunundaki degerleri Listboxda listeliyorum.Ancak yapmak istediğim "Fiyatlar" Sayfası "A: K hücre aralığındaki degerleri listeboxda listelemek.Yardımcı olacak arkadaşa teşekkür ederim.
Aranan = UCase (TextBox1.Value)
Arananuzunluğu = Len (Aranan)
ürünsayısı = Çalışma Sayfası İşlevi.CountA (Çalışma Sayfaları ("Fiyatlar"). Aralık ("))
İi = 2 için ürünsayısı
ürün = UCase (Çalışma Sayfaları ("Fiyatlar"). Aralık ("E" & ii))
ürünuzunluğu = Len (ürün)
İ = 1 için ürünuzunluğu
Mid $ ise (ürün, i, Arananuzunluğu) = Aranan Öyleyse
var = 1
End If
Sonraki ben
Var = 1 ise
ListBox1.AddItem ürün
ListBox1.List (ListBox1.ListCount - 1, 1) = Çalışma Sayfaları ("Fiyatlar"). Aralık ("F" ve ii) & "TL"
var = 0
End If
Sonraki ii
"Fiyatlar" Sayfası E sütunundaki degerleri Listboxda listeliyorum.Ancak yapmak istediğim "Fiyatlar" Sayfası "A: K hücre aralığındaki degerleri listeboxda listelemek.Yardımcı olacak arkadaşa teşekkür ederim.