Hareketli combobox seçilen hücrelerde aktif olması

[sdegirmenci]

Değerli Hocalarım merhaba;
Hareketli combobox hakkında ekteki dosyam üzerinde açıkladığım konuda yardımcı olursanız sevinirim.Saygılarımla

 

[halit3]

dosyanız ekte

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz. İlgili sayfanın kod bölümüne uygulayınız.

Dim ADRES As String
 
Private Sub ComboBox1_Change()
    On Error Resume Next
    Range(ADRES) = ComboBox1
End Sub
 
Private Sub ComboBox2_Change()
    On Error Resume Next
    Range(ADRES) = ComboBox2
End Sub
 
Private Sub ComboBox3_Change()
    On Error Resume Next
    Range(ADRES) = ComboBox3
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [B5,D5,F5,H5,J5]) Is Nothing Then
        ADRES = Target.Address
        ComboBox1.Visible = True
        ComboBox1.Top = Target.Top
        ComboBox1.Left = Target.Left
        ComboBox1.Activate
        ComboBox1 = ""
        ComboBox2.Visible = False
        ComboBox3.Visible = False
    ElseIf Not Intersect(Target, [B8,B10,B12,D8,D10,D12,F8,F10,F12,H8,H10,H12,J8,J10,J12]) Is Nothing Then
        ADRES = Target.Address
        ComboBox1.Visible = False
        ComboBox2.Visible = True
        ComboBox2.Top = Target.Top
        ComboBox2.Left = Target.Left
        ComboBox2.Activate
        ComboBox2 = ""
        ComboBox3.Visible = False
    ElseIf Not Intersect(Target, [B15,D15,F15,H15,J15]) Is Nothing Then
        ADRES = Target.Address
        ComboBox1.Visible = False
        ComboBox2.Visible = False
        ComboBox3.Visible = True
        ComboBox3.Top = Target.Top
        ComboBox3.Left = Target.Left
        ComboBox3.Activate
        ComboBox3 = ""
    End If
End Sub

 

[sdegirmenci]

Sayın halit 3 ve Korhan Ayhan Hocam;
İlginize çok teşekkür ederim. halit 3 hocam sizin kodlarınızı uyguladım ama malesef bir eksiklik vvar herhalde; Korhan Ayhan Hocam sizin yazmış olduğunuz kodları uyguladım çalışıyor yalnız, bir an dalgınlıkla bu hücrelerin dışında başka bir hücre seçtiğinizde Combolardan herhangi birinde seçim yaparsanız o an aktif olan hangi hücre ise o hücreye seçileni yazmakta. Combo hangi hücrelere ait ise onun dışında bir hücrede aktif olmasın.Bu mümkün olabilirmi, bir daha bakabilirmisiniz, Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[sdegirmenci]

Sayın Korhan Ayhan Hocam ;
Bu sefer oldu, Ancak diğer hücreyi seçtiğimiz anda içinde seçili olan ismi anında seçilen hücreye yazmakta.Hücreyi seçtiğimiz anda combo boş olarak aktif olamazmı.

 

[sdegirmenci]

Sayın Korhan Ayhan Hocam;
Çok oluyorum ama üsteki mesajıma takrar bakabilirmisiniz.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[sdegirmenci]

Sayın Korhan Hocam;
Bilginize ve Yüreğinize sağlık. Çok teşekkür ederim. Tam istediğm gibi oldu. Hoşçakalın