verilerin ComboBox üzerine gelmesi

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; ekli dosyamda, ayların ComboBox üzerine gelmesini istiyorum, ve hangi ay seçildiğinde imleçin o hücrede durmasını istiyorum. Hepinize teşekkürler.

 

[Hacı Bayram ÖZKAN]

ARKADAŞLAR; bu dosyaya bir bakarmısınız.?

 

[Orion1]

Dosyanız ektedir.

Sub auto_open()
Dim sh As Worksheet, i As Long, aylar()
Dim k As Range, x As Byte
aylar = Array("", "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS" _
, "EYLÜL", "EKİM", "KASIM", "ARALIK", "TOPLAM")
Set sh = Sheets("Sayfa1")
Sayfa1.ComboBox1.Clear
sat = sh.Cells(65536, "D").End(xlUp).Row
For i = 1 To UBound(aylar)
    Set k = sh.Range("D2:D" & sat).Find(aylar(i), , xlValues, xlWhole)
    If Not k Is Nothing Then
        Sayfa1.ComboBox1.AddItem
        Sayfa1.ComboBox1.Column(0, x) = k.Value
        Sayfa1.ComboBox1.Column(1, x) = k.Row
        x = x + 1
    End If
Next

End Sub

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets("Sayfa1").Cells(ComboBox1.Column(1), "D").Select
End Sub

 

[Excelmy]

Sayın tarzanhaci

Ekli dosyayı inceleyiniz.

 

[Excelmy]

Değerli Orion1 hocam

Benden önce davranmışsınız.
Cevap verilmiş dikkat etmedim.

Saygılarımla.

 

[Orion1]

Değerli Orion1 hocam

Benden önce davranmışsınız.
Cevap verilmiş dikkat etmedim.

Saygılarımla.

Rica ederim.
Farklı alternatifler her zaman lazımdır.

 

[Hacı Bayram ÖZKAN]

Teşekkürler

Rica ederim.
Farklı alternatifler her zaman lazımdır.

Sayın Orion1 ve Kuman; elinize sağlık dua ile kalın,