Açılışta kırmızı hücre içeren sayfa açılsın

[feridici_genc]

Günaydın,
Şöyle bir sorum olacaktı: "GİRİŞ ÇIKIŞLAR" isimli sekmedeki F:F stünunda kırmızı renkli hücre var ise dosya açılışta bu sekme ile açılsın yok ise "ASIL LİSTE" ile açılsın.

Yardımlarınızı bekliyorum.

 

[Necdet]

Merhaba,

Aşağıdaki kodları BuÇalışmaKitabı'nın kod bölümüne kopyalayıp deneyiniz.

Private Sub Workbook_Open()

    Dim i   As Long, _
        Drm As Boolean
    
    i = Sheets("GİRİŞ  ÇIKIŞLAR").Cells(Rows.Count, "F").End(3).Row
    
    Do
        If Sheets("GİRİŞ  ÇIKIŞLAR").Range("F" & i).Interior.ColorIndex = 3 Then
            Drm = True
        Else
            i = i - 1
        End If
    Loop Until i < 7 Or Drm = True
    
    If Drm = True Then
        Sheets("GİRİŞ  ÇIKIŞLAR").Select
    Else
        Sheets("ASIL LİSTE").Select
    End If
    
End Sub

 

[Necdet]

Merhaba,

Renk kodu 15 değil 3 olarak kontrol etmek gerek.
Bir önceki mesajda düzelttim.

 

[feridici_genc]

Necdey bey,
kırmızı hücre yok ise ASIL LİSTE'nin açılmaması dışında düzgün çalışıyor teşekkür ederim.

 

[Necdet]

Merhaba,

bir önceki mesajı tekrar okuyunuz.

 

[feridici_genc]

Sanırım ben mesajı yazarken siz daha önce yazmışsınız görmedim.
Teşekkür ederim.

 

[Necdet]

Sanırım ben mesajı yazarken siz daha önce yazmışsınız görmedim.
Teşekkür ederim.

Öyle oldu sanırım Güle güle kullanınız.