Comboboxta seçtiğim verinin reklenmesi

[ynmcan]

Merhaba arkadaşlar,

*userform üzerindeki combobox sayfa1 deki d4:d10 hücrelerinden veri almakta. *benim burada yapmak istediğim combobox' ta seçtiğim verinin bulunduğu hücrenin butona basınca yeşil olması. Yardımcı olursanız sevinirim. örnek dosyam ekte.

 

[dEdE]

Merhaba,
Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
Sheets(1).Select
[D:D].Interior.ColorIndex = xlNone
Set bul = Cells.Find(ComboBox1.Value, , , xlWhole)
If Not bul Is Nothing Then
bul.Select
ActiveCell.Interior.ColorIndex = 4
End If
End Sub

 

[algil]

Merhaba

Aşağıdaki kod işini görür.

Private Sub CommandButton1_Click()
asd = ComboBox1.ListIndex
Cells(asd + 4, "d").Interior.Color = vbGreen
End Sub

 

[Orion1]

Private Sub CommandButton1_Click()
Range("D4:D10").Interior.ColorIndex = xlNone
If ComboBox1.ListIndex < 0 Then Exit Sub
Range("D" & ComboBox1.ListIndex + 4).Interior.ColorIndex = 4
End Sub

 

[ynmcan]

Sayın Dede ve Algil,
İki kodta işimi görür teşekkür ederim. Ayrıca bu userformu kapatıp açtığımda comboboxta bu yeşil olan hücredeki veriyi görmemiz mümkünmü. ( Bu kodlarla userformu kapatıp açtığımda combobox boş olarak geliyor.)

 

[Orion1]

Sayın Dede ve Algil,
İki kodta işimi görür teşekkür ederim. Ayrıca bu userformu kapatıp açtığımda comboboxta bu yeşil olan hücredeki veriyi görmemiz mümkünmü. ( Bu kodlarla userformu kapatıp açtığımda combobox boş olarak geliyor.)

Benim yazdığım kod işiniz görmüyormu?

 

[ynmcan]

Sayın Evren,
sizin yolladığınız kodda işimi görür.(yolladığınız kodu ben cevap yazarken geldiği için şimdi gördüm.)

 

[algil]

merhaba

Aşağıdaki kodları deneyiniz

Private Sub CommandButton1_Click()
Range("D4:D10").Interior.ColorIndex = xlNone
asd = ComboBox1.ListIndex
Cells(asd + 4, "d").Interior.Color = vbGreen
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1! D4:D10"
For i = 4 To 9
    If Cells(i, "d").Interior.ColorIndex = 4 Then ComboBox1 = Cells(i, "d"): Exit For
Next i
End Sub

 

[ynmcan]

Private Sub CommandButton1_Click()
Range("D4:D10").Interior.ColorIndex = xlNone
asd = ComboBox1.ListIndex
Cells(asd + 4, "d").Interior.Color = vbGreen
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1! D4:D10"
For i = 4 To 9
    If Cells(i, "d").Interior.ColorIndex = 4 Then ComboBox1 = Cells(i, "d"): Exit For
Next i
End Sub

Sayın Algil,
yolladığnız kod olmuş. Size ve diğer ilgilenen arkadaşlara çok teşekkür ederim. Hayırlı akşamlar.