- Katılım
- 5 Eylül 2007
- Mesajlar
- 1,247
- Excel Vers. ve Dili
- ofis 2010
- Altın Üyelik Bitiş Tarihi
- 21-07-2024
Çalışma kitabında KumasC çalışma sayfasının H sütunundaki ürün isimlerini
user formda bu şekilde seçenekler listeleniyor. merak ettiğim "KumasC" çalışma sayfasındaki ürünlerin bakiyesi sıfır ve altını düştüğünde ürünün ismi "Koşullu biçimlendirme " ile Kırmızıya dönüyor. Dikkatimi çekti bu rengi değişen ürünü userform' da seçerken yani daha seçmeden buradaki kırmızılık orada da görülebilir mi.? yoksa ürün seçtikten sonra bakiyesini zaten görebiliyorum. Eğer olursa başka işlemlerimde kullanabilirim. Teşekkürler
Kod:
Private Sub ComboBox1_Change()
Dim S1 As Worksheet, Bul As Range, Son As Long, Veri As Range, Say As Long, Liste()
Set S1 = Sheets("KumasC")
ReDim Liste(1 To 1)
Say = 1
Son = S1.Cells(S1.Rows.Count, "H").End(xlUp).Row
If ComboBox1.Value <> "" Then
For Each Veri In S1.Range("H4:H" & Son)
If Veri.Value Like "*" & UCase(Replace(Replace(ComboBox1.Value, "ı", "I"), "i", "İ")) & "*" Then
ReDim Preserve Liste(1 To Say)
Liste(Say) = Veri.Value
Say = Say + 1
End If
Next
ComboBox1.List = Liste
ComboBox1.DropDown
Erase Liste
Set Bul = S1.Range("H:H").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not Bul Is Nothing Then
TextBox6.Value = Format(S1.Cells(Bul.Row, "C"), "#,##0.00")
TextBox11.Value = Format(Bul.Offset(0, 3), "#,##0.00")
ComboBox1.DropDown
End If
End If
End Sub
Ekli dosyalar
-
416.5 KB Görüntüleme: 12