Veri Doğrulama listesi içinde arama

[tirEdsOuL]

Merhaba;

Veri doğrulama içinde arama yapmak ile ilgili forumda Murat OSMA arkadaşımızın paylaşmış olduğu bir kodu buldum. Kod "D7" hücresi için doğru şekilde çalışmaktadır.
Yalnız şöyle bir sorum olacak,
Ben bu doğrulama işlemlerini D8 hücresine "Doseme" adını verdiğim ComboBox'a "DosemeList" adındaki verileri, D6 hücresine "Arac" adını verdiğim ComboBox'a "AracList" adındaki verileri getirmesini istiyorum. Kodları komple kopyalayıp isimlerini değiştirerek denedim ama hata verdi.
Destekleriniz için teşekkürler..

Dim nvE As Object
Private Sub [COLOR="Red"]Renk[/COLOR]_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   If KeyCode = 13 Then
      nvE.Visible = False
      ActiveCell.Offset(1, 0).Select
   End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   On Error Resume Next
   Set nvE = ActiveSheet.OLEObjects([COLOR="Red"]"Renk"[/COLOR])
   On Error GoTo 0
   If nvE Is Nothing Then
      With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
                                      Width:=Target.Width, _
                                      Height:=Target.Height)
         .Name = [COLOR="Red"]"Renk"[/COLOR]
      End With
      Set nvE = ActiveSheet.OLEObjects([COLOR="Red"]"Renk"[/COLOR])
   End If

   Set Target = Intersect(Target, Range([COLOR="Red"]"D7"[/COLOR]))
   If Target Is Nothing Then
      nvE.Visible = False
      nvE.LinkedCell = ""
      Exit Sub
   ElseIf Target.Count > 1 Or Target.Row = 1 Then
      nvE.Visible = False
      nvE.LinkedCell = ""
      Exit Sub
   End If

   With nvE
      Application.ScreenUpdating = False
      .Top = Target.Top
      .Left = Target.Left
      .ListFillRange = [COLOR="Red"]"RenkList"[/COLOR]
      .LinkedCell = Target.Address
      .Enabled = True
      .Visible = True
      .Activate
   End With
End Sub