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

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
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

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Selamlar

Hocam Dosya ekte

Saygılar
 

Ekli dosyalar

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,862
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Hocam bakabildiniz mi?

Saygılar
 
Üst