Excel Kitabındaki Sayfa Adlarının Listelenmesi
Excel Kitabındaki Sayfa Adlarının Listelenmesi isimli kodu kullanarak, aktif sayfanın A sütununa tüm sayfa isimlerini otomatik olarak yazdırabilirsiniz.
XD Destek İsteSub Sayfalari_Listele()
Dim Syf As Worksheet
For Each Syf In ThisWorkbook.Worksheets
ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0) = Syf.Name
Next Syf
End Sub
Gerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Kodumuzda Aktif sayfanın A sütunun en son dolu hücresinin bir alt hücresine otomatik yazdırma sağlanmıştır. Bu alanı kendinize göre revize edebilirsiniz.
#Excel Kitabındaki Sayfa Adlarının Listelenmesi
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum
Daha önce yorum yapılmamış!
Excel'in MUTLAK fonksiyonunu kullanarak, bir negatif sayıyı kolayca pozitif hale getirebileceğinizi biliyor muydunuz?
A2 hücresinde -525,52 şeklinde bir değer olduğunu varsayalım.
B2 hücresine, =MUTLAK(A2) yazdığınızda, sonucun 525,52 şekline döneceğini göreceksiniz.
Not: Pozitif olan rakamlar aynen korunur.
Eğer bir aralıkta yer alan ve birden fazla negatif sayıyı, tek seferde ve bir kereye mahsus pozitif değere sayıya dönüştürmek isterseniz:
A2 hücresinde -525,52 şeklinde bir değer olduğunu varsayalım.
B2 hücresine, =MUTLAK(A2) yazdığınızda, sonucun 525,52 şekline döneceğini göreceksiniz.
Not: Pozitif olan rakamlar aynen korunur.
Eğer bir aralıkta yer alan ve birden fazla negatif sayıyı, tek seferde ve bir kereye mahsus pozitif değere sayıya dönüştürmek isterseniz:
- Boş bir hücreye -1 yazın ve -1 sayısının yer aldığı hücreyi kopyalayın.
- Dönüştürmek istediğiniz negatif sayıları fareniz ile seçin.
- özel Yapıştır -> Değerler -> çarp deyin.