Hareketli combobox

[sdegirmenci]

Değerli Hocalarım merhaba;
Ekli dosyam üzerinde göreceğiniz gibi, hareketli combobox ' un liste seçimini tıkladığımızda üzerine gelmiş olduğu hücreye göre yapması mümkünmü? Ayrıca veriyi seçtiğimiz anda seçili hücreye o veriyi yazmalı , diğer hücreye atladığımızda orada da hangi veriyi seçersek o hücreye yazmalı. Bu söylediğim mümkünmü acaba?. Yardımcı olursanız sevinirim.Şimdiden çok teşekkür ediyorum.İşleriniz kolay gelsin.

 

[meslan]

Sn. sdegirmenci şunu bir dene oluyorsa diğerlerini kendin uyarlarsın. Kolay gelsin.

Private Sub ComboBox1_Change()
ActiveCell = ComboBox1.value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Top = [n13].Top And ActiveCell.Left = [n13].Left Or _
ActiveCell.Top = [n15].Top And ActiveCell.Left = [n15].Left Then
ComboBox1.ListFillRange = "data!g3: g" & Sheets("data").[g65536].End(xlUp).Row
ComboBox1.Top = Rows(1).Top
ComboBox1.Top = ActiveCell.Rows(1).Top
ComboBox1.Left = ActiveCell.Rows.Left
End If
If ActiveCell.Top = [n9].Top And ActiveCell.Left = [n9].Left Or _
ActiveCell.Top = [z9].Top And ActiveCell.Left = [z9].Left Then
ComboBox1.ListFillRange = "data!b3: b" & Sheets("data").[b65536].End(xlUp).Row
ComboBox1.Top = Rows(1).Top
ComboBox1.Top = ActiveCell.Rows(1).Top
ComboBox1.Left = ActiveCell.Rows.Left
End If
End Sub

 

[sdegirmenci]

Hocam merhaba;
Yazmış olduğunuz kodu sayfaya ekledim.Liste seçimlerini yapmakta. yalnız seçilen ismi o hücreye yazdırmasını , oradan diğer hücreye atladığımızda da ordada seçtiğimiz başka veriyi üzerinde olduğu hücreye yazdırmasını istemiştim bu mümkünmü acaba;
Selamlar..

 

[meslan]

Sn.Şerafettin Bey denerseniz yazıyor.Comboboxta seçim yapmanız yeterli. Diğer seçenekleri siz istediğiniz gibi ayarlayın.

 

[sdegirmenci]

Hocam özür dilerim eksik kopyalamışım.Tekrar teşekkür ederim.Hoşçakalın.