- Katılım
- 24 Şubat 2009
- Mesajlar
- 1,077
- Excel Vers. ve Dili
- 2016
- Altın Üyelik Bitiş Tarihi
- 01-03-2023
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;
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.
Kod:
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