Aynı kodları ComboBox ile çalıştırmak

[Mdemir63]

Selamlar
Arkadaşlar
aşağıdaki kodlarda [B1] hücresinden isim seçtiğimde görevini yapıyor bir sorun yok. Ancak [B1] hücresinin bağlı olduğu bir COMBOBOX var aynı kodları COMBOBOX dan da çalıştırmak istiyorum. aşağıdaki kodlarda ne gibi değişiklik yapmalıyım ?

Saygılar



'B1 Hücresinde İsim seçtiğimde M25 HÜCRESİNDEKİ BİLGİYİ VERİ SAYFASINDA T SÜTUNUNDA
'İSME KARŞILIK GELEN HÜCREYE ATAR
Private Sub Worksheet_Change(ByVal Target As Range)
Dim BUL As Range
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Set BUL = Sheets("VERİ").Columns(2).Find(Target)
If Not BUL Is Nothing Then
Sheets("VERİ").Cells(BUL.Row, "T") = [M25]
End If
Set BUL = Nothing
End Sub

 

[Korhan Ayhan]

Selamlar,

Aynı işlemi yapan makro kodunu ComboBox1_Change olayına yazarak yapabilirsiniz.

 

[Mdemir63]

Selamlar,

Aynı işlemi yapan makro kodunu ComboBox1_Change olayına yazarak yapabilirsiniz.

Selamlar

Hocam
Aşağıdaki gibi yaptım hata verdi

Run-time error'13':
Type mismatch


Saygılar


Private Sub ComboBox1_Change()
Dim BUL As Range
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Set BUL = Sheets("VERİ").Columns(2).Find(Target)
If Not BUL Is Nothing Then
Sheets("VERİ").Cells(BUL.Row, "T") = [M25]
End If
Set BUL = Nothing
End Sub

 

[Mdemir63]

Selamlar

Hocam Dosya ekte

Saygılar

 

[Mdemir63]

Hocam bakabildiniz mi?

Saygılar