• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İlk açılışta başka sayfaya geçmeden kod yazmak

Katılım
15 Temmuz 2012
Mesajlar
2,802
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Merhaba herkese hayırlı geceler.

Küçük bir örnek sayfa gönderiyorum.

Benim istediğim ilk açılışta Sayfa 2'ye geçmeden Sayfa2 deki koşullu biçimlendirme kodunun yazarak Sayfa1 A1 hücresi tıklı biçimde açılmasını istiyorum.

Bir türlü yapamadım yardım edecek arkadaşlara şimdiden teşekkür ederim.
 

Ekli dosyalar

Benim istediğim ilk açılışta Sayfa 2'ye geçmeden Sayfa2 deki koşullu biçimlendirme kodunun yazarak Sayfa1 A1 hücresi tıklı biçimde açılmasını istiyorum.
Bu kısım pek anlaşılır değil.
 
Sayın Vardar Bey ilginiz için çok teşekkür ediyorum.
Sayfanın ThisWorkbook sayfasında aşağıdaki kod var.

Kod:
Private Sub Workbook_Open()
Sheets("Sayfa1").Select
Range("a1").Activate
End Sub

Aşağıdaki koduda bu kodun içine eklediğim zaman, ilk açılışta önce Sayfa2'ye geçiyor bu kodu ekliyor sonra Sayfa1'e geri geçiyor.

Kod:
Sub renk_ve_kenarlık()
Sheets("Sayfa2").Select
Range("a1").Activate
    Cells.FormatConditions.Delete
    Range("A1:b500").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A1<>"""""
    With Selection.FormatConditions(1)
        .Borders.LineStyle = xlContinuous 'kenarlık
        '.Interior.Color = 49407 'renklendirme
    End With
    Range("A1").Select
End Sub

Aşağıdaki gibi yaptığım zaman önce Sayfa2'ye geçiyor koşullu biçimlendirmeyi yazıyor sonra Sayfa1'e geri geçiyor, benim istediğim bu işlemin hiç Sayfa2'ye geçmeden olmasını istiyorum.

Kod:
Private Sub Workbook_Open()
[B]Call renk_ve_kenarlık[/B]
Sheets("Sayfa1").Select
Range("a1").Activate
End Sub
 
Başka bir çalışma sayfasıda gönderiyorum, burada butona bastığımda ARŞİV sayfasına hiç geçmeden direk VERİ sayfasındakini aktarıyor.

Benim istediğimde bunun gibi birşey yani ilk açılışta Sayfa2'deki bilgileri Sayfa2'ye geçmeden yazdırmak.
 

Ekli dosyalar

Merhaba.
Aşağıdaki kod'u ThisWorkbook/BuÇalışmaKitabı bölümüne yapıştırın, ardından Sayfa2'de koşullu biçim varsa tümünü kaldırın, belgeyi kaydedip kapatın ve tekrar açın. Belge yeniden açıldığında, Sayfa2'de koşullu biçimlendirme durumunu kontrol edin.
Kod:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
    Sheets("Sayfa2").Cells.FormatConditions.Delete
    Sheets("Sayfa2").Range("A1:b500").FormatConditions.Add Type:=xlExpression, Formula1:="=$A1<>"""""
    Sheets("Sayfa2").Range("A1:b500").FormatConditions(1).Borders.LineStyle = xlContinuous 'kenarlık
    Sheets("Sayfa2").Range("A1:b500").FormatConditions(1).Interior.Color = 49407 'renklendirme
    Sheets("Sayfa1").Activate
Application.ScreenUpdating = True
End Sub
 
Sayın Ömer Bey valla süper oldu ellerinize sağlık, çok teşekkür ediyorum.

Kodun başında ve sonunda aşağıdaki kodlar var bunlar ne anlama geliyor acaba?

Application.ScreenUpdating = False
Application.ScreenUpdating = True
 
Activate kod'u olmadığına göre (ilk denediğimde kullanmıştım) o satırları silebilirsiniz.
Anlamı şudur, activate, select, şu hücreye bunu yaz vs. kod uygulandığında,
-- False olan ilk satır işlemler yapılırken ekranda herhangi bir işlemin görüntülenmemesini,
-- True satırı ise ekran görüntüsünü normale döndürmeyi
sağlıyor.
Sizin kodda o satırlar olmadığında da sorun olmaması lazım ama o satırları sildikten sonra,
koşullu biçimi silip belgeyi kaydederek kapatıp yeniden açarak denemek lazım.
 
Sayın Ömer Bey çok teşekkür ediyorum ellerinize sağlık, Allah razı olsun hayırlı geceler.
 
Eyvallah, bilmukabele.
 
Geri
Üst