ındrect formülü

[besen]

Ekteki dosyada "F1" hücresie önceki günün sheet ismi gelsin.
"C3" hücresine de indirect formülüyle önceki günün devri gelsin istiyorum.
Ben 13.10.13 sheetinde C3 hücresine formül yazdım ama, beceremedim.
teşekkürler.

 

[turist]

Ekli dosyayı inceleyiniz.

 

[besen]

Üstat emeğinize sağlık. Ancak iki sorum vardı. İkincisi cevaplanmış. İlki şöyleydi.
Ekteki dosyada "F1" hücresine önceki günün sheet ismi gelsin.
Yani 13.10.2013 sheetinin F1 hücresine 12.10.2013 sheet ismi, 14.10.2013 sheetinin F1 hücresine 13.10.2013 sheet ismi.
teşekkürler

 

[bzace]

Merhaba,
Bu çalışma kitabının içine ,

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For i = 2 To Sheets.Count: Sheets(i).[COLOR="Red"][B][f1][/B][/COLOR] = Sheets(i - 1).Name: Next
End Sub

Ekleyip denermisiniz.

 

[besen]

dosya içinde modüle olarak mı ekleyeceğim. sheet lerin içine mi yazacağım?
her ikisini de denedim, sanırm bir şeyi eksik yapıyorum.
F1 hücresine gelmesi için ayrıca ne yapmam gerekecek.
bir sonraki gün 15.10.13 sheetini açtığımızda ne yapmak gerekecek?
teşekkürler.

 

[bzace]

F1 Hücresine gelmesi için 4 numaralı mesajdaki kırmızı yere bakınız başka hücre içne yazdırmak istiyorsanız orada değişiklik yapınız.Sayfa ismi açtıkca kendisi otomatik bir önceki sayfa adını getirir ilgili hücreye.

Eklediğim dosyayı inceleyiniz kodun nereye yazıldığını göreceksiniz.Kod sayfasına girerek Sayfa isimlerinin üzerindeki "Buçalışma kitabı" ın içine bakınız.

 

[besen]

teşekkür. tamamdır.

 

[bzace]

Kolay gelsin.
Çalışmalarınız da başarılar.

 

[besen]

Merhaba son bir istek.
F1 'e yazdığımız makro direkt olarak Indirectli formülün içine gelebilir mi?
Sonuçta F1 e fırmülde okutmak için getiriyoruz.
Teşekkürler.

 

[besen]

Tekar merhaba, özel mesaj uyarınız için teşekkürler.

Gönderdiğiniz formülleri 4 ayrı dosyada çalıştırdım. Bir dosyada hata oluyor, nedenini bir türlü bulamadım.
HATALI dosyasında "F1" alanına bilgi gelmiyor. Bir bakar mısınız, nerde hata yapmışım.
Anlayışınız ve yardımlarınız için teşekkürler.

 

[bzace]

Hayırlı akşamlar,
Bir önceki sayfa adını getireceğiniz kod'u "Bu çalışma kitabının içine İlgili yerden silip denermisiniz.

Formülle bir önceki sayfa adını nasıl alırız ilgili hücreye bir fikrim yok.

 

[besen]

sheetin içi zaten boş ama.

 

[bzace]

Hatali 1 adlı dosyada tüm kod sayfalarına girerek yapılan değişikliklere bakınız sizin gönderdiğiniz dosyaya göre farklılıklar vardır.

Hatalı 2 adlı dosyada THISWORKBOOK'un içine,

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For i = 2 To Sheets.Count: Sheets(i).[f1] = Sheets(i - 1).Name: Next
End Sub

Kodu yapıştırınız.F1 hücresine bir önceki sayfa isimlerini alacak.
G1 hücresine de,

=SAĞDAN(HÜCRE("DosyaAdı");UZUNLUK(HÜCRE("DosyaAdı"))-MBUL("]";HÜCRE("DosyaAdı");1))

Yazın ilgili sayfa adını alacakdır.Hangisini isterseniz kullanın.

Formül ile bir önceki sayfa adının nasıl geldiğini öğrenmek isterim.

 

[besen]

Sayın bzace emeğiniz gerçekten çok teşekkür.
Ancak Normal dosyada ki thisworkbook un içi de boş ancak çalışıyor.
zaten boş kalması gerekiyor. çünkü bu makronun her sheette değil tanımlanmış sheetlerde çalışmasını istiyorum. thisworkbooka yazınca her sheet geliyor.
Şöyle bir şey denedim. formülü tis workbook a bir kere yazdım. makro çalıştı. sonra sildim, makro çalışmaya devam etti. Yani bir şekilde sorun çözüldü.

=SAĞDAN(HÜCRE("DosyaAdı");UZUNLUK(HÜCRE("DosyaAdı"))-MBUL("]";HÜCRE("DosyaAdı");1))

bu formülün ingilizcesi nedir? Nerede kullanacağım.
teşekkürler

 

[Korhan Ayhan]

Alternatif olarak ekteki örnek dosyayı inceleyiniz.