Soru Ay Geçişleri

[MESUT K]

Herkese Merhaba
Sorumu eklediğim dosya içerisinde detaylı olarak anlatmaya çalıştım.Üstadlarımdan yardım istiyorum

Saygılarımla

 

[Korhan Ayhan]

Deneyiniz.

=ARA(2;1/(KAYDIR($C$9;;;KAÇINCI(METNEÇEVİR(BUGÜN()+120;"aaaa");$B$9:$B$20;0))<>"");$C$9:$C$20)

NİSAN-HAZİRAN-EKİM aylarının adını düzeltip deneyin.

 

[MESUT K]

Korhan Bey çok özürdiliyorum özellikle belirtmeyi unuttum.Sadece kod olarak istiyorum.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Donem_Bul()
    Dim Ay As Range
    Range("D6").ClearContents
    Set Ay = Range("B9:B21").Find(Format(Date, "mmmm"), , , xlWhole)
    If Not Ay Is Nothing Then Range("D6") = Ay.Offset(0, 1).MergeArea.Cells(1, 1)
End Sub

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırırsanız sayfayı aktifleştirdiğinizde belirttiğiniz işlemi yapar:

Private Sub Worksheet_Activate()
[D6] = Evaluate("=LOOKUP(MONTH(TODAY()),{1;3;5;10;12},{""KIŞ"";""YAZA GEÇİŞ"";""YAZ"";""KIŞA GEÇİŞ"";""KIŞ""})")
End Sub

 

[MESUT K]

Deneyiniz.

Option Explicit

Sub Donem_Bul()
    Dim Ay As Range
    Range("D6").ClearContents
    Set Ay = Range("B9:B21").Find(Format(Date, "mmmm"), , , xlWhole)
    If Not Ay Is Nothing Then Range("D6") = Ay.Offset(0, 1).MergeArea.Cells(1, 1)
End Sub

kodu yapıştım.çalışmadı

 

[MESUT K]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırırsanız sayfayı aktifleştirdiğinizde belirttiğiniz işlemi yapar:

Private Sub Worksheet_Activate()
[D6] = Evaluate("=LOOKUP(MONTH(TODAY()),{1;3;5;10;12},{""KIŞ"";""YAZA GEÇİŞ"";""YAZ"";""KIŞA GEÇİŞ"";""KIŞ""})")
End Sub

kod çalışmadı

 

[MESUT K]

Birşey belirtmek istiyorum.kod hücrelerdeki yazılı olan ayları referans almamalı.kış dönemi ve diğer dönemler hangi ayları kapsıyorsa kodun içinde yeralmalı

 

[YUSUF44]

Kodun çalışması için dosyada başka sayfaya ya da başka dosyaya geçip geri dönmeniz gerekiyor. Kod "sayfa aktifleştirildiğinde" çalışıyor. Başka türlü çalışmasını istiyorsanız hangi durumda çalışacağını belirtmeniz gerekiyor. Ayrıca herhangi bir hücreyi referans almıyor, istediğiniz gibi kod içinde değerlendirme yapılıyor.

 

[Korhan Ayhan]

Kod çalışmadı demişsiniz. Peki çalışması için ne yaptınız?

 

[MESUT K]

Kodun çalışması için dosyada başka sayfaya ya da başka dosyaya geçip geri dönmeniz gerekiyor. Kod "sayfa aktifleştirildiğinde" çalışıyor. Başka türlü çalışmasını istiyorsanız hangi durumda çalışacağını belirtmeniz gerekiyor. Ayrıca herhangi bir hücreyi referans almıyor, istediğiniz gibi kod içinde değerlendirme yapılıyor.

Yusuf Bey başka sayfadan aktif sayfaya geçince kod çalıştı.Sistem saatini referans alarak direk dosyayı açar açmaz çalışması için ne yapabiliriz

 

[YUSUF44]

Benim bildiğim dosya kapalıyken açıldığında da sayfa aktifleştiği için çalışması gerekiyor.

 

[MESUT K]

Benim bildiğim dosya kapalıyken açıldığında da sayfa aktifleştiği için çalışması gerekiyor.

"E6" hücresindeki bilgiyi silip dosyayı kapatıyorum tekrar açıyorum kod çalışmıyor bilgi gelmiyor sekmeler arası geçiş yapıp aktif sayfaya geliyorum kod çalışıyor "E6" hücresine bilgi geliyor

 

[Korhan Ayhan]

Aşağıdaki kodu dosyanızın "BUÇALIŞMAKİTABI" ya da "THISWORKBOOK" bölümüne uygulayınız.

Option Explicit

Private Sub Workbook_Open()
    Dim Ay As Range
    With Sheets("Sheet1")
        .Range("D6").ClearContents
        Set Ay = .Range("B9:B21").Find(Format(Date + 260, "mmmm"), , , xlWhole)
        If Not Ay Is Nothing Then .Range("D6") = Ay.Offset(0, 1).MergeArea.Cells(1, 1)
    End With
End Sub

 

[MESUT K]

Aşağıdaki kodu dosyanızın "BUÇALIŞMAKİTABI" ya da "THISWORKBOOK" bölümüne uygulayınız.

Option Explicit

Private Sub Workbook_Open()
    Dim Ay As Range
    With Sheets("Sheet1")
        .Range("D6").ClearContents
        Set Ay = .Range("B9:B21").Find(Format(Date + 260, "mmmm"), , , xlWhole)
        If Not Ay Is Nothing Then .Range("D6") = Ay.Offset(0, 1).MergeArea.Cells(1, 1)
    End With
End Sub

Korhan Bey kod THISWORKBOOK bölümüne yapıştırınca çalıştı."E6" hücresindeki bilgiyi silip dosyayı kapatıyorum tekrar açıyorum kod çalışıyor.

 

[MESUT K]

Benim bildiğim dosya kapalıyken açıldığında da sayfa aktifleştiği için çalışması gerekiyor.

Yusuf Bey desteğiniz için çok teşekkürler.Verdiğiniz kod çalışıyor

 

[MESUT K]

Aşağıdaki kodu dosyanızın "BUÇALIŞMAKİTABI" ya da "THISWORKBOOK" bölümüne uygulayınız.

Option Explicit

Private Sub Workbook_Open()
    Dim Ay As Range
    With Sheets("Sheet1")
        .Range("D6").ClearContents
        Set Ay = .Range("B9:B21").Find(Format(Date + 260, "mmmm"), , , xlWhole)
        If Not Ay Is Nothing Then .Range("D6") = Ay.Offset(0, 1).MergeArea.Cells(1, 1)
    End With
End Sub

Korhan Bey desteğiniz için çok teşekkürler.Verdiğiniz kod çalışıyor