Combobox seçimi

[magnesia]

Sayın Plint.
Başarabildiğim kadarıyla dosyayı eklemeye çalıştım.

 

[PLİNT]

Merhaba
"Userform1" kod sayfasına şu kodu ekleyin
("Listbox" sütun genişlikleri="117", "Label" genişliğine uygun)

[SIZE="2"]Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 6
.ColumnWidths = "117,117,117,117,117,0"
End With
With ListBox2
.ColumnCount = 6
.ColumnWidths = "117,117,117,117,117,0"
End With
End Sub[/SIZE]

Değişecek bölüm 1 yerine 2

[SIZE="2"]Private Sub ComboBox2_Change()
Dim fr
Dim i
Dim sütn
If ComboBox2 = "" Then Exit Sub
 
sütn = ComboBox2.ListInd[COLOR="Red"]ex + 2[/COLOR]
 
Set fr = Sheets("Firmalar")
For i = 2 To fr.Cells(Rows.Count, sütn).End(3).Row
ComboBox1.AddItem fr.Cells(i, sütn)
Next i

End Sub[/SIZE]

"Değerlendirme" sayfasında 6. satıra kadar renklendirme kodlarında hata görünmüyor, ancak satır ekleme yapıldığında 7. satıra taşabilir ama yinede
ek yaparsanız aşağıdaki kırmızı satırı ekleyin

[SIZE="2"]Private Sub Worksheet_Activate()
Dim i As Integer
[COLOR="red"]Rows(7).Interior.ColorIndex = xlNone[/COLOR]
With Sheets("Değerlendirme")
    For i = 0 To 100
        If .Cells(6, i + 2).Value < 40 Then
            .Range(.Cells(1, i + 2), .Cells(6, i + 2)).Interior.ColorIndex = 3
        End If
    Next i
End With
End Sub[/SIZE]

 

[magnesia]

Sayın Plint..
İlginize,bilginize ve emeğinize sağlık..
Çok teşekkür ederim...