formülleri makroya çevirme

[Emir Hüseyin Çoban]

04.09.2010

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu "BUGÜNKÜ GÖREVLER" isimli sayfanızın kod bölümüna uygulayın. Bu sayfayı aktif ettiğinizde kod otomatik olarak çalışacaktır.

Option Explicit
 
Private Sub Worksheet_Activate()
    Dim S1 As Worksheet, S2 As Worksheet
 
    Application.ScreenUpdating = False
    Set S1 = Sheets("TÜM GÖREVLER")
    Set S2 = Sheets("BUGÜNKÜ GÖREVLER")
    S1.Range("$A$1:$B$65536").AutoFilter Field:=1, Criteria1:=CDate(Date)
    S1.Range("A1").CurrentRegion.Copy S2.Range("A1")
    S2.Range("A:B").EntireColumn.AutoFit
    S1.Range("$A$1:$B$65536").AutoFilter
    Set S1 = Nothing
    Set S2 = Nothing
    Application.ScreenUpdating = True
End Sub

 

[Emir Hüseyin Çoban]

04.09.2010

 

[Emir Hüseyin Çoban]

04.09.2010

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajıma bir örnek dosya ekledim.

2. sayfanızda çok özel bir biçimlendirme olmadığı için kodu bu şekilde düzenledim.

Eğer 2. sayfanızın biçimi önemli ise kodu değiştirebiliriz.

 

[Emir Hüseyin Çoban]

04.09.2010

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[Emir Hüseyin Çoban]

04.09.2010

 

[Korhan Ayhan]

Selamlar,

#7 nolu mesajımdaki dosyayı güncelledim. İncelermisiniz.

 

[Emir Hüseyin Çoban]

04.09.2010

 

[Korhan Ayhan]

Selamlar,

Evet doğrudur. Çünkü siz hiçbir mesajınızda TÜM GÖREVLER sayfasında değişiklik yaptığımda şu işlem olsun gibisinden bir açıklamada bulunmadınız. Hatta ilk mesajızla son mesajınızdaki isteklerinizin sayısıda değişti.

Sorularınızın net çözüme ulaşması için tüm detayları belirtmelisiniz.

 

[Emir Hüseyin Çoban]

vaktinizi aldım, iyi günler