Userforma ek özellik ekleme ?

[Gorarr]

Selamlar, örnek dosyamda üstadlarımın yardımı ile hazırlanmış bir form var. Bu form excelde harf bulup hücreyi işaretliyor. Ben buna ek olarak değiştirme fonksiyonu eklemeye uğraşıyorum yardımcı olabilirseniz sevinirim. Örnek dosya ektedir.

 

[Husgvarna]

Formun kod sayfasına aşağıdaki kırmızı renkli kodları ekleyerek deneyebilirsiniz.

[COLOR="Red"]Private Sub CommandButton2_Click()
For x = 1 To 15
For y = 1 To 11
If Cells(x, y) = ComboBox1.Value Then Cells(x, y) = ComboBox2.Value
Next y
Next x
End Sub[/COLOR]

Private Sub UserForm_Initialize()
  Dim AllCells As Range, Cell As Range
    Dim ciftolmayan As New Collection
    Dim Item
    Set AllCells = Range("A1:K15")
    On Error Resume Next
    For Each Cell In AllCells
        ciftolmayan.Add Cell.Value, CStr(Cell.Value)
    Next Cell
    On Error GoTo 0
    For Each Item In ciftolmayan
        UserForm1.ComboBox1.AddItem Item
     [COLOR="#ff0000"]UserForm1.ComboBox2.AddItem Item[/COLOR]
    Next Item
End Sub
Private Sub CommandButton1_Click()
For x = 1 To 15
For y = 1 To 11
Cells(x, y).Interior.ColorIndex = xlNone
If Cells(x, y) = ComboBox1.Value Then
Cells(x, y).Interior.ColorIndex = 6
End If
Next y
Next x
End Sub

 

[Gorarr]

Çok teşekkür ederim. Elinize sağlık harika olmuş.