Combobox aktif hücreye yazsın

[mesutaygun70]

Sayfada oluşturduğum Combobox var. Tek combobox Linkedcell kısmı na hücre girmesem hangi hücre aktifse o kısma veriyi girse. Böyle bir şey yapmam mümkünmü. Listfillrange kısmına formül oluşturduğum için yaklaşık 120 tane combobox oluşturmam gerek hepsi aynı yerden veriyi alıyor . Tek combobox ta aktif hücreye veri girse ama bir sonraki hücreyi tıklayınca önceki hücrenin içeriği değişmese .

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

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

 

[mesutaygun70]

Deneyiniz.

Option Explicit

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

Teşekkürler
Ama;bu kodun sadece Sayfa7 B ve C sutunlarında çalışmasını sağlayabilirmiyiz.

 

[Korhan Ayhan]

Elbette sağlanabilir. Fakat bu detayı ilk mesajınızda neden vermediğinizi açıkçası merak ettim.

 

[mesutaygun70]

Elbette sağlanabilir. Fakat bu detayı ilk mesajınızda neden vermediğinizi açıkçası merak ettim.

Sizin yazdığınız kodu denedim. Farklı sayfalarda da Combobox açılıyor ve sayfanın içeriğini değiştiriyor. Deneyene kadar böyle bir hata vereceğini düşünmedim. Nacizane kendi bilgim ile kodun başına Sayfa7.Range("b1:c65000").activesell.............. şeklinde yaptım ama debug vb türden bir hata aldım. Bu güne kadar her mesajımın altında bu sayfadaki gerek kurucu gerek kullanıcı admin vs teşekkür ederim. Sayenizde ben bir nebzede olsun exceli öğrendin ve kendimi bu sayfanın müdavimi olarak görüp kime yardım edebilirim diye mesajlara bakar oldum. Zaman ayırdığınız için teşekkürler ama denemeden böyle olacağını hiç düşünmedim.

 

[Korhan Ayhan]

Deneyiniz.

Sayfa7 dediğiniz sayfa aktif durumda ise kod doğru çalışır. Kendinize uyarlarsınız.

Option Explicit

Private Sub ComboBox1_Change()
    If ActiveSheet.Name = "Sayfa Adınızı Yazınız" Then
        Select Case ActiveCell.Column
            Case 2, 3: ActiveCell.Value = ComboBox1.Value
        End Select
    End If
End Sub

 

[mesutaygun70]

Sadece b3 hücresine yazıyor. Başka hücrelere yazmıyor, ilginiz için ayrıca teşekkürler

 

[Korhan Ayhan]

Bu durumda örnek dosya paylaşın durumu inceleyelim.

 

[Orion1]

Tek combobox ta aktif hücreye veri girse

Sadece b3 hücresine yazıyor. Başka hücrelere yazmıyor, ilginiz için ayrıca teşekkürler

Üstteki satırda tek hücreye diyorsunuz.