Açılışta İstediğim Sayfadaki Makroyu Çalıştırmak YARDIM

[guntacmert]

merhaba arkadaşlar.
uzun süredir forumlarda arıyorum ama bulamadım bir türlü.
sormak istemedim araştırıp bulmayı tercih ettim ama nafile.

ekteki dosyamda sadece işlem yapmak istediğim sayfaları bıraktım. diğer raporlamalarla ilgili sayfaları sildim. bakıp yardımcı olabilecek arkadaş için ise ayrıntıları belirttim. ilgilenen br arkadaş çıkarsa çok sevinirim.

ve bugüne kadar da edindiğim bilgileri ve yaptığım tablolarda kullandığım birçok kodu siteniz sayesinde öğrendim. örnek tabloları vs diğer bilgileri paylaşanlara da çok teşekkür ederim. sayenizde çok güzel raporlamalar alabiliyorum.

 

[Necdet]

Merhaba,

Aşağıdaki kod ThisWorkbook(Bu çalışma kitabı) un kod bölümünde olmalı.

Private Sub Workbook_Open()
 
    Sheets("Genel").Select
 
End Sub

2. sorunuz değişik şekillerde yapılabilir ama tam olarak şartı anlamadığım için şöyle önerecem :

EuroKur sayfasında B2 hücresi değiştiği an otomatik program çalıştırılabilinir.

Bunun için EuroKur sayfasının kod bölümüne aşağıdaki kodları kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [B2]) Is Nothing Then Exit Sub
    If Not Target.Value = "" Then Call BIRGUNONCEKIKUR
 
End Sub

 

[dEdE]

Sayın Yeşertener,
Ben mi yanlış anladım.

If Target.Value [COLOR="Red"]=[/COLOR] "" Then Call BIRGUNONCEKIKUR

Kırmızı bölüm <> şeklinde olmayacak mı?

 

[Necdet]

Merhaba,

Evet eksik yazmışım, ben kodlarda <> işaretini beğenmediğim için Not kullanıyordum, yazmayı unutmuşum

If Not Target.Value = ""

olmalı. Asıl mesajımda da düzelttim.

Teşekkürler düzeltmeniz için sayın dEdE.

 

[guntacmert]

ilginize teşekkürler. deniyorum.

 

[guntacmert]

Bir yerde takıldım desem ayıp olmaz umarım.

Private Sub Workbook_Open()
 
    Sheets("Genel").Select
 
End Sub

yukarıdaki kod ile açılıştaki istediğim olay tamamdır. Hangi sayfada kaydedersem kaydedeyim dosyam GENEL sayfasında açılmakta.

2. istediğim pek uygulamada olmadı neden derseniz. Ben tarih girmiyorum tabloya. B2 hücresine tarihi aşağıdaki kod ile atıyor.

=EĞER((B1-1)>=BUGÜN();"";BUGÜN())

Ama ben dosyayı kapatıp açtığımda kontrolünü kendisinin yapmasını istiyorum.

Yani dosyayı kaydettim kapattım. Açtığımda Genel sayfasına girdiği gibi aynı zamanda da EuroKur sayfasında kur güncellemesi yapmasını istiyorum...
Onunda makroyu çalıştırıp da olacağını düşünüyorum. Tabi üstadlarımızın arasında daha kolay yöntemi şu diyen birisi yoksa
Tabi oluru varsa bu işin

Ayrıca zahmet edip cevap verdiğiniz için de ayrıca teşekkürler.

 

[guntacmert]

ilgilenen arkadaşlara teşekkürler şimdiden. kodları kurcalayarak istediğim sonuca ulaştım
iyi akşamlar.