Hücre İçine ComboBox Ekleme

[sametguler]

Ad Soyad alanında bulunan hücrelere ( sadece kişilere ) ComboBox eklemek istiyorum. Verileri PARAMETRELER sayfasındaki isim listesinden çekecek. ComboBox verileri alfabetik olarak sıralayacak ve harfe bastıkça uygun isimi ekrana verecek.

Not: UserForm üzerinde değilde, excel sayfasındaki hücrelerde olması gerekiyor. Veriler yazdıkça gelmediği için Açılır Liste olmayacak.

Böyle bişey yapabilir miyiz bilmiyorum. Ama yardımcı olursanız çok sevinirim.

Hayırlı Cumalar

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

Hücrelere çift tıkladığınızda combobox görünür hale gelecektir.

 

[sametguler]

Çok güzel olmuş. Teşekkür ederim.
Fakat ComboBox un sağ oku çok küçük çıkıyor. Nedeni nedir hocam. Tıklayıp listeye bakmak isteyen için zor olabilir.
Ve çift tıklama değilde hücreye tek tıklayıncada ComboBox görünse daha iyi olurdu.

 

[Korhan Ayhan]

Sayfanızın "Zoom" ayarını büyütürseniz sağ ok tuşu biraz daha belirginleşir.

 

[sametguler]

Çift tıklama değilde hücreye tek tıklayıncada ComboBox görünse olur mu?

 

[Korhan Ayhan]

#2 nolu mesajımdaki dosyayı güncelledim. Tekrar deneyiniz.

 

[sametguler]

Korhan Hocam Sizden Allah Razı Olsun. Çok güzel oldu.
Fakat ComboBox ekrana geldikten sonra ENTER tuşuna basılmazsa, ComboBox verisini hücreye aktarmadan çıkıyor.
1- ComboBox içine veri girilirse yada listeden isim seçilirse; sonrasında ENTER tuşuna bastıktan sonra yada ComboBox içinden çıkıldığı zaman ( başka bir hücre tıklandığı zaman ) ComboBox içindeki veriyi hücreye aktarması gerekiyor.
2- Buradaki amaç ENTER tuşuna basma zorunluluğunu ortadan kaldırmak.

Tekrara teşekkür ediyorum.

 

[sametguler]

Konu Günceldir.

 

[Korhan Ayhan]

Deneyiniz.

 

[sametguler]

Korhan AYHAN hocam çok güzel oldu. Teşekkür ederim.
Ad Soyad alanlarına satır eklediğimiz zaman, yeni satırlarda Ad Soyad alanında ComboBox aktif olmuyor.
Nadir de olsa satır eklenme ihtimali varda. Aslında bunu en başta söylemem gerekirdi ama unuttum. Kusura bakmayın

 

[Korhan Ayhan]

Merhaba,

Dosyadaki kodlar isim alanı boyunca çalışır. SIRA NO alanında sayısal veri olması yeterlidir. Buna dikkat edin.

 

[sametguler]

Dosyanın son halini ekledim. Fakat sadece PARAMETRELER sayfasında sıkıntı var.
Aşağıdaki kod;
PARAMETRELER sayfasına etki ediyor. Etki etmemesi lazım. PARAMETRELER sayfasında C sütünunda bazı yerlere kendi kendine isim yazıyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.ComboBox1.Visible = False
If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
If Cells(Target.Row, 1) <> "" Then
If IsNumeric(Cells(Target.Row, 1)) Then
Set S1 = Sheets("PARAMETRELER")
Son = S1.Cells(S1.Rows.Count, 3).End(3).Row
Me.ComboBox1.Top = Target.Top
Me.ComboBox1.Left = Target.Left
Me.ComboBox1.Visible = True
Me.ComboBox1.Value = ""
Me.ComboBox1.ListFillRange = "PARAMETRELER!C1:C" & Son
Me.ComboBox1.Activate
End If
End If
End Sub


sorun nedir acaba?

 

[Korhan Ayhan]

Eklediğiniz dosyayı denedim. Bende bahsettiğiniz durum oluşmadı.

 

[şehiriçi]

sayın korhan bey ben excel 2003 versiyonu kullanıyorum .ad soyad hücresine giriş yapınca sayfanın vbe modülünde "compile error" "method or data member not found" şeklinde uyarı mesajı geliyor .
acaba combobox1 in bende görünmemesinin sebebi 2003 versiyonu mu yoksa başka bir şeymi . bu konu benimde ilgi alanımda cevaplarsanız memnun olacağım teşekkürler

 

[Korhan Ayhan]

Versiyon farklılığından dolayı sorun çıkabilir.

Siz kendi dosyanızda yeniden ComboBox ekleyip deneyin. Büyük ihtimalle sorun düzelecektir.