Tarih Ara Bul hk.

[mumugul]

Merhaba,

Find komutu ile Tarih arayıp bulmayı beceremediğim için aşağıda ki kodu ürettim!
Find komutu ile Tarih arayıp bulmayı neden beceremiyorum sizce?
Bir de bu aşağıda ki kod olmuş mu dersiniz?
Bu kod halihazırda işimi görüyor.
Hücrelerim/Sütun başlıklarım, "Kasım 18","Aralık 18"," Ocak 19"... şeklin de gidiyor.
Yardımcı olur musunuz?

Saygılarımla...

Private Sub CommandButton1_Click()

Dim Ay() As Variant
Dim Bul As String
Dim Sonuc As Range

Ay = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
Bul = Ay(Month(ComboBox1.Value) - 1) & " " & Right(Year(ComboBox1.Value), 2)

Set Sonuc = Worksheets("Sayfa1").[1:1].Find(Bul, , xlValues, xlWhole)

MsgBox Sonuc.Address

End Sub

 

[Erdem Akdemir]

Örnek dosya ekleyebilir misiniz.

 

[mumugul]

Merhaba,

Örnek dosya ekte.

 

[mumugul]

Merhaba,

Konu güncel, yardımcı olur musunuz?

Saygılarımla...