ComboBox aktif hücreye göre veri alma

[mkuru28]

Arkadaşlar bir çalışma sayfasında B5:B35 aralığında ilgili aya ait tarihler var. D535 aralığında herhangi bir hücreye tıkladığımda oluşturduğum UserForm açılıyor. Yapmak istediğim açılan userformda bulunan ComboBox2 ye tıklanan hücre hangi satırda ise B5:B35 aralığında bulunan tarih otomatik gelsin istiyorum. Konu biraz karmaşık olabilir. O nedenle örnek bir çalışma kitabı ekledim ve orada detaylı olarak anlatmaya çalıştım. Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

Örnek dosya

 

[Necdet]

Merhaba

Tek bir tarih için neden Combobox'ı yeğlediniz pek anlamadım. Textbox da olabilirdi.
İki satır verecem, birini kullanın. Birinci satır sadece d sütunundan ise , ikinci satır bulunduğu satırdan B sütunundaki tarihi alır.

Private Sub UserForm_Initialize()

'Satırlardan birini seçin
ComboBox2.Value = Format(ActiveCell.Offset(0, -2), "dd.mm.yyyy")
ComboBox2.Value = Format(Cells(ActiveCell.Row, "B"), "dd.mm.yyyy")

End Sub

 

[alicimri]

Userformun modülüne aşağıdaki kodu yapıştırın.

Private Sub UserForm_Initialize()
UserForm1.ComboBox2.Value = Format(Cells(ActiveCell.Row, 2).Value, "dd.mm.yyyy")
End Sub

 

[mkuru28]

Arkadaşlar yardımlarınız için teşekkür ederim. Tam istediğim gibi olmuş.