Yeşil üçgen sorunu

[SMSKMHMMT]

Kolay gelsin;
Öncelikle sorum hem makro ile alakalı hem de fonksiyon ile alakalı, yardımcı olursanız sevinirim.
1200 sayfalık bir excel çalışma kitabım bulunmakta birinci sayfada liste diğerleri köprüyle açılan sayfalar.
Açılan sayfalara liste olan sayfadan düşeyara formülü ile veri çekimleri yapıyorum.
Sayfa isimleri 1-1200 arası köprülerde 1-1200 arası bu yüzden düşeyarayı sayfa isimlerinden çalıştırıp bu şekilde veri gelmesi gerekir bu şekilde sayfa isimlerini hücreye yazdırıp düşeyarayı bu fonksiyona bağladım. düşeyaranın bağlı olduğu hücre üstünde yeşil üçgen bulunmakta ve hücreye girip enter yapınca bu kalkmakta. Bu kadar sayfaya tek tek girip bunu yapmak zor. Bende makro kaydettim bunu bütün sayfalara uygulamak istiyorum. Bu seferde şöyle bir problem ortaya çıkıyor bütün sayfaları seçip enter yapmış gibi bağlı hücrede bulunan rakam sayfa isminden farklılaşıp tek bir rakam oluyor.
Dosya yükleyemiyorum o yüzden atadığım makronun kodunu paylaşıyorum istediğim şey şu her sayfaya tek tek girip bu işlemi yapsın.


Sub yeşil_hücre()
'
' yeşil_hücre Makro
'

'
Range("C27").Select
ActiveCell.FormulaR1C1 = "1"
Range("C28").Select
End Sub

 

[excelokyanus500]

Kod bölümünde Buçalışmakitabı bölünü tıklayıp oraya yapıştırın.(Yeşil üçgen sorunu için)

Dim ErrCheckTriangle As Boolean

Private Sub Workbook_Open()
ErrCheckTriangle = Application.ErrorCheckingOptions.BackgroundChecking
Application.ErrorCheckingOptions.BackgroundChecking = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ErrorCheckingOptions.BackgroundChecking = ErrCheckTriangle
End Sub

 

[SMSKMHMMT]

cevabınız için teşekkürler fakat işe yaramadı yada ben yapamadım.
kod bölümüne worksheet seçip kodu yapıştırdım fakat çalışmadı sanırım hala aynı şekilde yine de teşekkür ederim.

 

[Korhan Ayhan]

Sanıyorum SAYI-METİN sorunu yaşıyorsunuz..

DÜŞEYARA fonksiyonunun bağlı olduğu hücrede tam olarak ne var?

 

[SMSKMHMMT]

ilginiz için teşekkürler, hücre genel olarak seçili; sayı var.
İlk sayfada; sayfaların bulunduğu bir liste olduğunu düşünün 1 köprü=1 isimli sayfa
=DÜŞEYARA(C27;'ANASAYFA'!A1:N3000;3;0) bu formüldeki c27=sayfa ismi yani 1
1200 sayfalık bir çalışma tek tek sayfa isimlerini yazmadım formülle bu sayfa isimlerini çektim sonra kopyalayıp değer olarak yapıştırdım. hücrelerde yeşil uyarı çıktı, doğal olarak da düşeyara sonucu yok olarak geliyor, c27 hücresine girip enter yapınca düşeyara çalışıyor sonuç olumlu; yani her sayfanın c27 hücresine gelip içine girip enter yapmak gerekiyor.
Kusura bakmayın karmaşık olmuş olabilir dosya yükleyebilseydim, görerek daha kolay olabilirdi.

 

[Korhan Ayhan]

Örnek dosyanızı harici dosya paylaşım sitelerine yükleyip link verebilirsiniz.

 

[excelokyanus500]

cevabınız için teşekkürler fakat işe yaramadı yada ben yapamadım.
kod bölümüne worksheet seçip kodu yapıştırdım fakat çalışmadı sanırım hala aynı şekilde yine de teşekkür ederim.

Sayfanın koduna değil daha üste bulunan çalışmakitabı koduna yapıştırın. Buçalışmakitabı veya Thisworkbook olmalı. Bu kod sadece hata denetimini gizler.

 

[HücrelereFısıldayanAdam]

Hata denetimini gizlemek sorunu çözmez hocam.
Burada makroya da ihtiyaç yok, aranan değer sayı ise diğer tarafın da sayı yapılması gerekir,

İlk yeşil üçgen uyarısı olan hücreden başlayarak, aşağı doğru tüm satırları seçin,
İlk hücrenin sağında ünlem işareti çıkacak ordan,ona tıklayın, sayıyaçevir'e tıklayın,
Böylece metin olarak saklanan sayı sorununuz kalmayacak. Düşeyara da doğru sonuç getirecektir.