SMSKMHMMT
Altın Üye
- Katılım
- 28 Şubat 2024
- Mesajlar
- 29
- Excel Vers. ve Dili
- 2020
- Altın Üyelik Bitiş Tarihi
- 25-04-2029
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
Ö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