Otomatik Sıra Numarası Ekleme

Otomatik Sıra Numarası Ekleme isimli kodu kullanarak, makrolar ile verilerinizin başlarına otomatik olarak sıra numarası eklersiniz.

XD Destek İste
Sub YazdığınızSayıKadarOtomatikEkleme()
Dim i As Integer
On Error GoTo Son

i = InputBox("Sayı yazın", "Bir sayı yazın")
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i

Son: Exit Sub
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. 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.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Kod, yazdığınız kadar olan sayıları aktif hücreden itibaren aşağı doğru sıralar. Bu nedenle boş bir hücre aralığında seçim yaptıktan sonra çalıştırmanız faydalı olacaktır.

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Excel Satır Silme Kodu
Yanıp Sönme Efekti Verme Kodu
Son Dolu Satırın Bir Altına Yazdırma
Bir Çalışma Kitabında Kaç Sayfa Var
Kopyala ve Biçimleri Yapıştır
Satırı Kes Kopyala ve Yapıştır
Excel Makroları ile İşlemci Bilgilerini Bulma
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Bir Aralığa Alfabenin Harflerini Ekleme
Top 10 Değeri Renklendirme
Tek Satırı Kes Kopyala ve Yapıştır
ListBbox ve ComboBox Satır Kaydırma
Çift Satırlı Msgbox Örneği
Sütun Genişliğini Ayarla
Hücredeki Değere Göre İşlem Yapma
Excel Makroları ile Dosya Sayısını Bulma
Küp Kökünü Hesaplama
Makro ile Hızlı Doldurma
Excel Hücresine Gitme Makrosu
Sayılara Yeni Bir Sayı Ekleme
Dizileri İç İçe Döngüye Eklemek
TextBox Nesnesinde Kuruş Göstermek
Excel Makroları ile Dosya Silme
Giriş Kutusu ve Mesaj Yazma İşlemi
Label Nesnesine Kayan Yazı Ekleme
Excel Makro ile Hücreye Veri Yazma
Aktif Hücreye Günün Tarihini Yazma
Seçili Satırların Sayısını Bulma
Excel Makroları ile Hücreye Saat Ekleme
UserForm Resize Özelliği Eklemek
Excel Makroları İle Not Defterini Açmak
Excel Hücresini Seçme Makrosu
2. Derece Denklemin Grafiğini Çizmek
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Tüm Sütunda İşlem Yapan Döngü
Kopyala ve Özel Yapıştır
Sağ Tık ile Açılan Menüye Ekleme Yapma
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
Seçili Hücrenin Sütun Harfini Bulma
Excel Alarm Kurma
Excel Makroları ile Form Çağırma
Her Kapatma İşleminde Otomatik Olarak Kaydetme
TextBox Nesnelerinin Arasında Boşluk Bırakma
Boş Hücreleri Sıfırlarla Değiştirme
Seçili Alandan İstenilen Karakteri Kaldırma
Bir Aralıktaki Minimum Değeri Renklendirme
Hücrenin Rengini Değiştirme
Seçili Sütunların Sayısını Bulma
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Excel Hücrelerine eklediğiniz Açıklama kutucuğunun, Araç çubuklarında yer alan Şekli Değiştir iconu ile istediğiniz bir şekilde değiştirebilirsiniz.
Yükleniyor...