verileri combobox üzerine alma ve bu hücrede durma

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; Userform üzerinde bulunan iki adet ComboBox bütonu ile elimdeki kodlarla sayfalar buluyor, VE B sütunundaki ayları seçiyorum. Ancak benim isteğim burda;

Private Sub ComboBox1_Change()
    Sheets(ComboBox1.Text).Select
End Sub
 
Private Sub ComboBox2_Change()
    Dim SANDIK As Range
    
    Set SANDIK = Range("B:B").Find(ComboBox2, , , xlWhole)
    If Not SANDIK Is Nothing Then SANDIK.Select
End Sub
 
Private Sub UserForm_Initialize()
    Dim X As Byte
    
    For X = 1 To Sheets.Count
        ComboBox1.AddItem Sheets(X).Name
    Next
    
[COLOR="Red"]    For X = 1 To 12
        ComboBox2.AddItem Format(DateSerial(Year(Date), X, 1), "mmmm")[/COLOR]
        
    Next
End Sub

B Sütununda sayısal değerler var örneğin 1'den 1000'e kadar burada ComboBox2 ile bu değerleri bulup bu haneye hızlıca gitmek istiyorum bulunan değerin yanındaki hücreye veri girişi yapacağım. Yani kırmızı ile işaretli yere nasıl bir kod yazmam lazım. Herkese teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Şuanda ComboBox2' ye ay isimlerini alınıyor, bu işlem iptal mi edilecek.
Yerine B sütunundaki veriler mi gelecek ?

. . .

 

[Hacı Bayram ÖZKAN]

Evet üstadım.

 

[Emir Hüseyin Çoban]

. . .

Şu kodlar ile deneyiniz.

Private Sub ComboBox1_Change()
    Sheets(ComboBox1.Text).Select
End Sub

Private Sub ComboBox2_Change()
    sat = ComboBox2.Column(1)
    Cells(sat, "C").Select
End Sub

Private Sub UserForm_Initialize()
    
    Dim X As Byte
    
    For X = 1 To Sheets.Count
        ComboBox1.AddItem Sheets(X).Name
    Next
    '''  '''
    Dim a      As Long
    Dim i      As Long
    
    ReDim dizial(1 To 2, 1 To 1)
    
    For i = 1 To Cells(Rows.Count, "B").End(3).Row
        
        a = a + 1
        ReDim Preserve dizial(1 To 2, 1 To a)
        
        dizial(1, a) = Cells(i, "B")
        dizial(2, a) = Cells(i, "B").Row
    Next i
    
    ComboBox2.Column = dizial
    
    Erase dizial
    a = Empty
    i = Empty
    Set SV = Nothing
End Sub

. . .

 

[Hacı Bayram ÖZKAN]

Eline sağlık dua ile kal, iyi akşamlar.