Soru Sayfanın ilk satırındaki tarihler arasında değer arattırmak

[bluefalcon]

Arkadaşlar merhaba,

Ekte göndermiş olduğum dosya kod sayfasında da belirttiğim üzere bir dizi işlemi otomatize etmek istiyorum. İlk aşamada içinde bulunulan haftanın ilk Pazartesi gününü bir değere atadım. Bu değeri de sayfa sütunlarının ilk satırlarında bulunan tarih değerleri içerisinde arattırarak bulunduğunda sütun numarasını farklı bir değere atamak istiyorum. Find fonksiyonuna yazdığım Tarih değerine Cstr, Clng ile tür değişimlerini uyguladım ama set ettiğim değere atama yapmadı. Yani hangi sütunda güncel haftanın ilk pazartesi günü yer alıyor bulduramadım. Yardımcı olabilir misiniz?

 

[bmutlu966]

Sanırım bu şekilde yapmak istiyorsunuz.

Sub Macro1()

Dim NCN As Integer
  
C_Mond = Date - Weekday(Date, vbMonday) + 1

For t = 1 To Columns.Count
    If Cells(1, t) = C_Mond Then Exit For
Next

C_sut = t 'tarih bulunduktan sonra numarasını bulduracağım

NCN = 5
Range(Columns(NCN), Columns(C_sut)).EntireColumn.Hidden = True 've NCN değerinden sonraki kısmı gizleyeceğim.


End Sub

 

[Korhan Ayhan]

Alternatif;

Alttaki kod bende çalıştı..

Sub Test()
    Dim First_Monday As Date, Find_Date As Range, X As Integer
    
    Columns.Hidden = False
    
    First_Monday = Date - Weekday(Date, vbMonday) + 1

    Set Find_Date = Rows(1).Find(What:=First_Monday, LookAt:=xlWhole)
    
    X = 5
    
    If Not Find_Date Is Nothing Then Columns(X).Resize(, Find_Date.Column - X + 1).Hidden = True
End Sub

 

[bluefalcon]

budur işte, elinize emeğinize sağlık, çok çok teşekkür ederim.