Hareketli combobox

[sdegirmenci]

Değerli Hocalarım merhaba;
Hareketli Combobox' un sadece "J" Sütununda seçilen hücrelerde aktif olmasını istiyorum.Dosyam ektedir. Yardımlarınız için çok teşekkür ederim. Saygılarımla.

 

[fedeal]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Columns(10)) Is Nothing Then Exit Sub
Dim hcr As Range
Application.ScreenUpdating = False
For Each hcr In Range("K25:AL25")
hcr.EntireColumn.Hidden = False
If hcr.Value = 0 Then hcr.EntireColumn.Hidden = True

ComboBox1.Top = Rows(1).Top
ComboBox1.Top = ActiveCell.Rows(1).Top
ComboBox1.Left = ActiveCell.Rows.Left

Next
Application.ScreenUpdating = True
End Sub

kodlara kırmızı satırı ekleyin, iyi calışmalar.

 

[Ayhan Ercan]

Merhaba

İlgili sayfanın kod bölümüne aşağıda kırmızı renkel belirttiğim satırı ilave ederk deneyiniz..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hcr As Range
[COLOR=#ff0000]If Intersect(Target, Range("J:J")) Is Nothing Then Exit Sub[/COLOR]
Application.ScreenUpdating = False
For Each hcr In Range("K25:AL25")
    hcr.EntireColumn.Hidden = False
    If hcr.Value = 0 Then hcr.EntireColumn.Hidden = True
ComboBox1.Top = Rows(1).Top
ComboBox1.Top = ActiveCell.Rows(1).Top
ComboBox1.Left = ActiveCell.Rows.Left
 
Next
Application.ScreenUpdating = True
End Sub

 

[sdegirmenci]

Değerli Hocalarım fedeal ve Ayhan Ercan;
İlginize çok teşekkür ediyorum.Bir isteğim daha var ama mümkünmü bilmiyorum, "J" Sütununda bir hücre seçip combobox o hücrede aktif olduktan dalgınlıkla başka sütundaki bir hücreyi tıklayıp tekrar comboboxtan seçim yaparsak seçili olan metni "j" sütunu dışındaki aktif hücreye yazmakta. Bunu nasıl önleyebiliriz.Bir çözüm bulabilirmisiniz;

 

[fedeal]

Private Sub ComboBox1_Change()
If Intersect(ActiveCell, Columns(10)) Is Nothing Then Exit Sub
ActiveCell = ComboBox1.Value
End Sub

deneyin oluyormu?

 

[sdegirmenci]

Sayın fedeal hocam;
Çok teşekkür ederim.Bu şekilde daha kullanışlı oldu. Bilginize sağlık. İşleriniz kolay gelsin.