Sayılara Yeni Bir Sayı Ekleme

Sayılara Yeni Bir Sayı Ekleme isimli kodu kullanarak, Excel sayfanızda seçtiğiniz alanda yazılı olan sayılara istediğiniz bir sayıyı ekleyebilirsiniz.

XD Destek İste
Sub addNumber()
Dim rng As Range
Dim i As Integer
i = InputBox("Bir sayı yazın", "Değer gerekli")
For Each rng In Selection
    If WorksheetFunction.IsNumber(rng) Then
        rng.Value = rng + i
    Else
    End If
Next rng
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ı

Bir aralıktaki sayılarınıza, tek seferde bir sayıyı ilave etmek ihtiyacınız olursa, üstteki kod bu ihtiyacın üstesinden kolayca gelecektir.

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Hücredeki Değere Göre İşlem Yapma
Aktif Satırı ve Sütunu Vurgulama
Excel Makroları ile Dosya Silme
Excel Makroları ile Hücreye Saat Ekleme
Seçili Satırların Sayısını Bulma
Aralıklı Olarak Satır Silme
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Satır Yüksekliklerini Otomatik Ayarlama
56 Koşula Kadar Biçimlendirme Yapma
Şeffaf UserForm Oluşturma Kodu
Excel Menüsüne Ekleme Yapma Kodu
Açılışta Üç Kere Şifre Hakkı Vermek
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Roma Rakamlarını Normal Sayılara Dönüştürme
Aktif Hücrenin Temel Bilgilerini Bulma
Dizileri Döngüye Eklemek
Excel Satır Seçme Kodu
Çoklu Bulma ve Karşısındaki Değeri Listeleme
2. Derece Denklemin Grafiğini Çizmek
Kare Kökünü Hesaplama
Yanıp Sönme Efekti Verme Kodu
Belirli Kriterlere Sahip Satırları Silme
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Excel Makroları ile Dosya Taşıma
Seçili Hücrenin Sütun Harfini Bulma
Kullanılan Tüm Sütunları Otomatik Sığdır
Sütun Genişliklerini Otomatik Ayarlama
Toplu Sütun Silme
Excel Açılırken Otomatik İşlem Yaptırma
Giriş Kutusu ve Mesaj Yazma İşlemi
Aç Penceresini Açan Makro
Hatalı Hücreleri Renklendirme
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Sayıları Yeni Bir Sayıyla Çarpma
Aktif Hücrenin Sütun Numarasını Bulma
Bir Aralıktaki Maksimum Değeri Renklendirme
Satırlardaki Farkı Renklendirme
Metnin İçinden TC Kimlik Numarasını Ayırma
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
Sayfadaki Ad Tanımlamaları Silme
Excel Satır Silme Kodu
Program Başlangıcı Kodları
Aktif Sayfayı Kopyala Yeni Bir Kitaba Yapıştır
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
ListBbox ve ComboBox Satır Kaydırma
Hücre Aralığını Kes Kopyala ve Yapıştır
Sütunu Kes Kopyala ve Yapıştır
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Bir veri aralığının en altındaki hücreye hızlıca gitmek için, Ctrl + Aşağı Ok tuşunu kullanmanız ya da fareyi aktif hücrenin alt çizgisine getirip (aşağıdaki görüntüdeki gibi) çift tıklamanız yeterli olacaktır.

Yükleniyor...